怎样在主窗体的一个panel里打开一个子窗体 我在主窗体的RzGroup里添加要打开链接,点击链接后,怎样在主窗体的一个panel里打开一个子窗体 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 设置窗体Parent为Panel后 ,打开子窗体会闪烁,怎么解决啊另外打开另外一个子窗体时,怎么关闭另一个已经打开的子窗体 窗体闪烁可以用双缓冲试试panel.DoubleBuffered := True;关闭其他的子窗体要写事件来实现 子窗口无边框用一form变量,记录子窗口;或者判断panel是否有子控件 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls,Unit2, Unit3;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Panel1: TPanel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } ActiveForm:TForm; procedure ShowForm(aform:TForm;aformClass:TFormClass); public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var form: TForm2;begin ShowForm(form,TForm2);end;procedure TForm1.Button2Click(Sender: TObject);var form: TForm3;begin ShowForm(form,TForm3);end;procedure TForm1.ShowForm(aform:TForm;aformClass:TFormClass);begin if assigned(self.ActiveForm) then self.ActiveForm.Destroy; aform:= aformClass.Create(owner); aform.Parent:= self.Panel1; aform.Top:=0; aform.Left:=0; aform.Show; self.ActiveForm:= aform;end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin if assigned(activeForm) then activeForm.Destroy;end;end.form2和form3为动态创建 Delphi操作excel,使用NumberFormatLocal设置格式的问题 怎样验证在DBGrideh的方格中输入的数据是否有效? 在那里看自己的专家分啊? 用多线程设置网络监听.高手请进 调用 安装了一个新控件,使用的时候报“没有注册类别”,这是什么意思,怎么解决? 经典问题:mts,客户端运行时提示:无法创建终结点!怎么回事? startservice需要什么文件包含啊 这段程序是否有错? DCOMConnection的"没有注册类别"问题 ??? FastReport 简单主报表 子报表问题 ??? RAVE事件编辑器
另外打开另外一个子窗体时,怎么关闭另一个已经打开的子窗体
panel.DoubleBuffered := True;
关闭其他的子窗体要写事件来实现
用一form变量,记录子窗口;或者判断panel是否有子控件
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls,Unit2, Unit3;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Panel1: TPanel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
ActiveForm:TForm;
procedure ShowForm(aform:TForm;aformClass:TFormClass);
public
{ Public declarations }
end;var
Form1: TForm1;implementation
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
form: TForm2;
begin
ShowForm(form,TForm2);
end;procedure TForm1.Button2Click(Sender: TObject);
var
form: TForm3;
begin
ShowForm(form,TForm3);
end;procedure TForm1.ShowForm(aform:TForm;aformClass:TFormClass);
begin
if assigned(self.ActiveForm) then self.ActiveForm.Destroy;
aform:= aformClass.Create(owner);
aform.Parent:= self.Panel1;
aform.Top:=0;
aform.Left:=0;
aform.Show;
self.ActiveForm:= aform;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if assigned(activeForm) then activeForm.Destroy;
end;end.
form2和form3为动态创建