怎样把一个控件从一个TPanel里拖到另一个TPanel里

[shenjhshen]

怎样把一个控件从一个TPanel里拖到另一个TPanel里

[阿呆_]

设计期: ctrl+c, ctrl+v
运行期: panel2.parent := panel1

[shenjhshen]

闭嘴

[shenjhshen]

运行中拖拽，把一个控件从一个TPanel里拖到另一个TPanel里，直接改变parent，那是跳

[shenjhshen]

怎么没有好心的人帮助一下呢

[catfather46]

?!不懂你的意思？！

[cncharles]

在Object Tree View中直接拖,
或者用Ctrl+X, 再在目标 Panel上面用 Ctrl+V

only for design time, if run time

Control1.parent := panel1;

[struggle813]

unit Unit1;

interface
刚写的DEMO，不知是你的意思吗
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Button1: TButton;
procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Panel2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure Panel2DragDrop(Sender, Source: TObject; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure ControlBeginDrag(Sender:TObject);
begin
TControl(Sender).BeginDrag(false,6);
end;

procedure ControlDragDrop(Sender,Source:TObject);
begin
TControl(Source).Parent:=TWinControl(Sender);
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ControlBeginDrag(Sender);
end;

procedure TForm1.Panel2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:=true;
end;

procedure TForm1.Panel2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
ControlDragDrop(Sender,Source);
end;

end.

[shenjhshen]

差不多，还要该该

[shenjhshen]

明天来给分