prss.net
当前位置:首页 >> DElphi 动态创建窗口 >>

DElphi 动态创建窗口

procedure TForm1.Button1Click(Sender: TObject); Var MyForm:TForm; begin MyForm:=TForm.Create(self); MyForm.Parent:=self; MyForm.Show; //把myform.showmodal改为myform.show end;

新建了两个窗体form1和form2,在Project->Options里面将form2设置为Available forms,在form1中添加一个button1,运行如下代码: Uses Unit2; //引用单元文件 procedure TForm1.Button1Click(Sender: TObject); begin form2:=TForm2.Create(Appli...

在Unit1中Uses Unit2, 在Unit2的implementation下面Uses Unit1, 这样两个窗口就可以相互调用了。 在Unit1里面声明一个访问数据库的方法, 在Unit2中就可以直接使用了。

delphi 的 *.dfm 文件,是 delphi 工程中定义描述窗体组成及属性设置的文件,早期版本是二进制,现在基本上 dfm 文件中的内容都是文本格式保存,类似以下: 通常,这个文件是 delphi 自动生成,与相对应的 pas 文件想配套使用,一般情况下不要手...

首先,在Form1中单击Form2中的按钮,你这个本身就是诡异的逻辑。你可以说如何在Form1执行Form2单击事件. 其次,既然是事件,那都是要条件驱动的,要么你手动去点击,要么设置另外一个事件出发他,楼上应给出了最简单的方法了;Form2.Savebtn.Clic...

1:新建一个工程。 2:添加一个tmainmenu控件。 3: procedure TForm1.Button1Click(Sender: TObject); var files,edit:tmenuitem; new,copy:tmenuitem; sub1,sub2,sub3,lines:tmenuitem; begin files:=tmenuitem.Create(self); edit:=tmenuitem...

是改变窗口标题吗?form1.caption:=‘QQ’;就可以实现啊,你自己创建的还是包含这个caption属性吧!

是的,form.free about:TForm1;begin about TForm1.Create(self); try about.ShowModal; finally about.Free; end;end;如果是about.show;請:procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin Action caFree;end; ...

procedure TForm1.CreateButton; var button: TButton; //定义 begin button := TButton.Create(Self); //创建控件关键的一句(参数为self的时候不需要释放内存) button.Parent := Self; //此行必须要,不然不能显示在Form1上面 button.Left :=...

var TestArr: array of Variant; SetLength(TestArr, 2); TestArr[0] := 'sdfsdfs'; TestArr[1] := 1111; 我想到的就只有 Variant 了,期待高手出现。

网站首页 | 网站地图
All rights reserved Powered by www.prss.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com