组件拖动问题

[gwhdaxia]

组件拖动问题,
在一个FORM上有一个panel和一个button ,2个都可以拖动,怎么让这个panel始终在button的下边.

现在问题是拖动panel的时候,panel就吧button覆盖了,

拖动button的时候,button自然在panel上面,

现在想实现的是,让panel始终在button下边,拖动的时候也是打button下边过去,button始终在上面显示

[simonhehe]

Panel.SendToBack;

[kampan]

关注

[rainlovesea]

[Quote=引用 1 楼 simonhehe 的回复:]
Panel.SendToBack;
[/Quote]

[swayi21]

引用 1 楼 simonhehe 的回复:
Panel.SendToBack;

[gwhdaxia]

好像还是每办法解决啊,拖动的时候还是有这么个问题

[yuqianyi1974]

procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (source is Tbutton) then
  begin
    button1.Left:=x;
    button1.Top:=y;
  end;
  if (source  is Tpanel) then
  begin
    panel1.Left:=x;
    panel1.Top:=y;
  end;
  panel1.SendToBack;
end;

[opqhjb_2002]

Panel.SendToBack; 可以

[huangjacky]

bd

[jmh521]

[Quote=引用 2 楼 kampan 的回复:]
关注
[/Quote]

[gwhdaxia]

是可以的,我还在看加在什么事件里比较合适,帖子就先结了