急急问：可不可以得到组件在屏幕上的相对位置(200分)

M

mykai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #1

想在edit的下面弹出窗体，做帮助输入窗体
谢谢啦
急

 

M

MilkRoad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #2

Edit.ClientToScreen(Point(Edit.Left, Edit.Top));

 

Z

zhai_xin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #3

(edit1.left,edit1.top+edit1.length)

 

H

hongfei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #4

up

 

Z

zhai_xin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #5

form2.left:=form1.left+edit1.left;
form2.top:=form1.top+edit1.top+edit1.height+Form1.Height-Form1.ClientHeight;
也可以把Form1.Height-Form1.ClientHeight换成一个具体数值，大概要大于23

 

Z

zhai_xin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #6

Edit.ClientToScreen(Point(Edit.Left, Edit.Top+Edit.height));

 

P

peng_qs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #7

用TControl.ClientToScreen(const Point: TPoint): TPoint;可以搞定.

 

H

hongfei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #8

up to MilkRoad

 

M

mykai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #9

解决了
原码
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;
效果不错
给分了

 

M

mykai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #10

谢谢