请问怎么获得当前窗口在桌面上的位置？

Question

在private部分加入下列代码：
procedure wmnchittest(var msg:twmnchittest);
message wm_nchittest;
procedure TForm1.wmnchittest(var msg:twmnchittest);
begin
inherited;
if (htclient=msg.result) then msg.result:=htcaption;
form1.caption:='X:'+inttostr(form1.left)+'Y:'+inttostr(form1.Top);
end;
能达到你的要求吗？　　

Answer 1

敬请关注:http://www.csdn.net/expert/topic/194/194098.shtm

Answer 2

首先要设置一下你的计算机:
   对着桌面单击鼠标右键,选择“属性”,选择“效果”页，选中“拖动窗口时显示其内容”。代码：
type
  TForm1 = Class(TForm);
   ....
  public
    procedure DoWMMoving(var msg :TMessage);message WM_Moving;
  ...
  end;
procedure TForm1.DoWMMoving(var msg :TMessage);
begin
  Label1.Caption:='Left: '+IntToStr(Left);
  Label2.Caption:='Top: ' + IntToStr(Top);
end;