var
P:Tpoint;
begin
p.x := Form1.Left+(Form1.Width div 2)-50; //居中 下同;
p.y := Form1.Top+(Form1.Height div 2)-50;
ShowMessagePos('提示',p.X,p.Y);
end;
var
P:Tpoint;
begin
p.x := Form1.Left+(Form1.Width div 2)-50; //居中 下同;
p.y := Form1.Top+(Form1.Height div 2)-50;
ShowMessagePos('提示',p.X,p.Y);
end;