怎样编程实现将某一窗体装到另一窗体的Panel控件里去? Or use docksite,just to set followwing properties.Form1.Panel1.DockSite:=True;Form2.DragKind:=dkDock;Form2.DragMode:=dmAutomatic; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 基本上不需要,如果要好看,可能Align要设为alClient。 设置Panel1.DockSite := true;将Form2的DragMode 设为dmAutomaticDragKind 设为dkDock.uses Unit2;var Form2: TForm2;{$R *.dfm}procedure TForm1.FormShow(Sender: TObject);begin Form2 := TForm2.Create(self); Form2.Show; Form2.ManualDock(Panel1);end;procedure TForm1.Panel1DockDrop(Sender: TObject; Source: TDragDockObject; X, Y: Integer);begin Panel1.Width := 100;end;procedure TForm1.Panel1UnDock(Sender: TObject; Client: TControl; NewTarget: TWinControl; var Allow: Boolean);begin if Panel1.DockClientCount = 1 then Panel1.Width := 0;end; 对了,Panel1的align设为alLeft会好看一点,panel1.width可以设宽一点。 我想获得c:\download\目录中所有ini的文件名,请问如何编写呢? 诚意要请DELPHI高手入盟... FORMATDATETIME求日期时间 怎样改变StringGrid第一列的宽度?谢 很简单的,关于列表框的问题。 谁知道ERWIN4.0乱码问题,在线等待!答对即送100分 大家帮我看看这个SQL语句在什么地方出错了。 请介绍一些有delphi源码下载的站点 请帮我翻译十几行java代码为delphi 我的程序消耗的资源太多了,怎么解决呢?给点意见吧! 哪里有李维的关于ADO的书下载?? 如何实现窗体的部分刷新?
Align要设为alClient。
将Form2的DragMode 设为dmAutomatic
DragKind 设为dkDock.uses Unit2;var
Form2: TForm2;{$R *.dfm}procedure TForm1.FormShow(Sender: TObject);
begin
Form2 := TForm2.Create(self);
Form2.Show;
Form2.ManualDock(Panel1);
end;procedure TForm1.Panel1DockDrop(Sender: TObject; Source: TDragDockObject;
X, Y: Integer);
begin
Panel1.Width := 100;
end;procedure TForm1.Panel1UnDock(Sender: TObject; Client: TControl;
NewTarget: TWinControl; var Allow: Boolean);
begin
if Panel1.DockClientCount = 1 then
Panel1.Width := 0;
end;