5,386
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
hfrui 2003-08-22
- 打赏
- 举报
Button1.ClientOrigin.X
Button1.ClientOrigin.Y
Button1.ClientOrigin.Y
lxpbuaa 2003-08-22
- 打赏
- 举报
var
P: TPoint;
begin
P := Point(Button1.Left, Button1.Left);
P := ClientToScreen(P);
ShowMessage(IntToStr(P.X) + ',' + IntToStr(P.Y));
end;
————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————
P: TPoint;
begin
P := Point(Button1.Left, Button1.Left);
P := ClientToScreen(P);
ShowMessage(IntToStr(P.X) + ',' + IntToStr(P.Y));
end;
————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————
