如何让窗口出现在鼠标点击的位置?(在线等待)

[deeryu]

我想让无标题窗口出现在我鼠标点击的位置,想知道方法或者思路,请各位指点迷津.

[wdswcy]

procedure TForm1.FormCreate(Sender: TObject);
begin
self.Top:=10;
self.Left:=10;
end;

[wdswcy]

刚才错了
你试试下面的代码：
procedure TForm1.FormCreate(Sender: TObject);
var
pt:Tpoint;
begin
getcursorpos(pt);
clienttoscreen(pt);
self.Top:=pt.y;
self.Left:=pt.x;
end;

[wdswcy]

procedure TForm1.FormShow(Sender: TObject);
var
pt:Tpoint;
begin
getcursorpos(pt);
clienttoscreen(pt);
self.Top:=pt.y;
self.Left:=pt.x;
end;

对了，写到Show事件中就可以了

[chenylin]

Mouse.CursorPos.X
Mouse.CursorPos.Y