procedure WMLButtonDown(var Msg1: TWMMouse); message WM_LButtonDblClk;

procedure WMLMouseMove(var Msg2: TWMMouse); message WM_MOUSEMOVE;

 

procedure TForm1.WMLButtonDown(var Msg1: TWMMouse);
begin
  ListBox1.Items.Add('˫ʱλã(' + IntToStr(Msg1.XPos)+':'+IntToStr(Msg1.YPos)+')');
  inherited;
end;

procedure TForm1.WMLMouseMove(var Msg2: TWMMouse);
begin
  Edit1.Text:='ǰλã('+IntToStr(Msg2.XPos)+':'+IntToStr(Msg2.YPos)+')';
end;
