急急问：可不可以得到组件在屏幕上的位置

Question

function ClientToScreen(const Point: TPoint): TPoint;
edit1.ClientToScreen();

Answer 1

通过Edit控件的ClientToScreen方法就可以了！

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
 var
   posi:Tpoint;
   x,y:integer;
 begin
   button1.ClientToScreen(posi);
   x:=posi.x;
   y:=posi.y;
 end;

Answer 3

各位谢谢啦
我解决了
这样就可以解决
代码段如下
解决了
原码
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
    p : Tpoint;
    x : integer;
    y : integer;
begin
    if key =13 then
    begin
        x := Edit1.Top+Edit1.height+form1.Top+23; //这个参数很奇怪只有这样才会有想要的效果:)
        y := Edit1.Left+form1.Left;
        p.x := x;
        p.y := y;
        edit1.ClientToScreen(p);
        form2.Top :=p.x;
        form2.Left := p.y;
        form2.show;
    end;end;
效果不错
给分了