对于动态创建的一组combobox与edit控件怎么用鼠标对它进行拖动改变它的坐标位置到新坐标？(100分)

Z

zengyixun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #1

对于动态创建的一组combobox与edit控件怎么用鼠标对它进行拖动改变它的坐标位置到新坐标？

 

O

onlyonekgx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #2

在创建的时候把
DragMode 属性设置成 dmAutomatic


//假设Form1是接受对象，DragMode 属性也设置成 dmAutomatic
procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:=True;
end;

procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
TControl(Source).Left:=X;
TControl(Source).Top:=Y;
end;

 

P

PLA250

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #3

同意onlyonekgx,

 

Z

zengyixun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #4

我也同意，不过在combobox与edit都没有MouseDown的情况下，我怎么知道这个正在托运中
的combobox的在接受对像中的left与top呢？

 

O

onlyonekgx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #5

什么意思呀？说明白一点

 

Z

zengyixun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #6

就是combobox.left:=?;combobox.top:=?。这个问题的值怎么能得到确定啊？

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #7

combobox.left:=?;combobox.top:=?。
mouse position 自动的

 

Z

zengyixun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #8

我知道了，X，Y

 

O

onlyonekgx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #9

鼠标都没有按下，那你是怎么拖动的？
FormDragDrop(Sender, Source: TObject; X, Y: Integer);
里面不是有X，Y值吗？

 

Z

zengyixun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #10

多人接受答案了。