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;

可以的,先声明一个变量,再create,然后设置其parent和postion,最后show出来就行了。 要注意的是: 1、控件必须要有parent 2、控件最好指定位置和大小信息 3、控件要显示出来,必须要调用show方法。

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

从代码看,少了一句给 WebBrowser 指定显示的容器(窗体或面板的 句柄): procedure TForm1.Button1Click(Sender: TObject);var wb:Twebbrowser;begin wb:=Twebbrowser.Create(self); wb.ParentWindow := Handle; //新增 wb.Left:=208; wb.Top:...

procedure TForm1.FormCreate(Sender: TObject); var fram:TFrame2; begin fram:=TFrame2.Create(Self); fram.Parent:=panel1; end; 需要uses 你新建立的farame2的单元,比如默认的unit2

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

应该可以。 窗体名称是指窗体类的类名称,还是窗体类生成的对象名称? 如果是前者,需要在按钮事件下,动态创建该窗体类的对象。 如果是后者,只需在之前隐藏该窗体,然后在按钮事件下显示出该窗体即可。 (不知道你为什么会有这样一个需求。。。)

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

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

newImage := TImage.Create(Self); newImage.Parent := Form1; //定义它的父窗体 newImage.Picture.LoadFromFile('C:/test.jpg'); newImage..........................//后面可以继续修改newImage的属性

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