如何动态创建Form(50分)

CGF · 1998-11-16

如果我要动态创建一个Form,Form中包含两个图形按钮和一幅图片，请问各位大虾如何处理？ 谢谢。

dwwang · 1998-11-16

myform:=TMyform.Create; MyBtn:=TBitButton.Create; MyBtn.Parent:=MyForm; ... myForm.Show;

jiangtao · 1998-11-16

先建好一个新Form var  myForm:TForm1; 动态调用:  myForm:=TForm1.Create(Application);  ..动态生成控件:  myImage:=TImage.Create(myForm); //myform is myimage's owner  myImage.Parent:=MyForm;  myImage.Left:=10;  ...  myForm.Show; 不需要时释放:  myFrom.Free;//注意不要释放myImage,它会被 myForm Free,(由于Owner)

littlegrass · 1998-11-16

试试我做的About对话框控件，有Image和Button的例子，很简单！ <a href="http://personal.wol.com.cn/grass/AboutDlg.zip">AboutDlg.zip</a>

huizhang · 1998-11-16

unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, ExtCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }     procedure ButtonClick(Sender: TObject);   end; var   Form1: TForm1; implementation {$R *.DFM} Procedure TForm1.ButtonClick(sender: TObject); begin   ShowMessage('Button is clicked'); end; procedure TForm1.Button1Click(Sender: TObject); var   AForm: TForm;   AButton: TButton;   AImage: TImage; begin   AForm := TForm.Create(Application);   AButton:=TButton.Create(AForm);   AButton.left:=20;   AButton.Top:=20;   AButton.Caption := 'Try Me';   AButton.OnClick := ButtonClick;   AButton.parent:=AForm;   AImage := TImage.Create(AForm);   AImage.Left := 20;   AImage.Top := AButton.Top+Abutton.Height + 10;   AImage.LoadFromFile('c:/Windows/bubbles.bmp');   AImage.Parent:=AForm;   AForm.Show; end; end.

CGF · 1998-11-16

各位大虾： 我忘了说明的是我的程序是没有Form的,它运行后在TaskBar产生一个图标,按右键 就弹出动态的Form，Form中含有图片和按钮。 所以没办法用编写控件的方式实现，除非能动态调用这个控件。 LittleGrass大虾,等问题解决后一定也给您相应的.......)(

pegasus · 1998-11-16

>我忘了说明的是我的程序是没有Form的,它运行后在TaskBar产>生一个图标,按右键 >就弹出动态的Form，Form中含有图片和按钮。 >所以没办法用编写控件的方式实现，除非能动态调用这个控件。 完全没有必要不含有Form呀? 您可以把它的缺省属性设置为 Hide(Show = FALSE), 在Form的创建函数里在TaskBar产生一个图 标,按右键时让它显示出来不就可以了吗?

CGF · 1998-11-16

希望大虾要正视问题，因为不是任何程序都有必要拥有预先创建的Form的。

huizhang · 1998-11-16

绕了半天, 你还是要有一个 Form 不是, 只是不显示罢了, 点了 TrayIcon 后才显示

pegasus · 1998-11-16

>希望大虾要正视问题，因为不是任何程序都 >有必要拥有预先创建的Form的。 ^^^^^^^^^^^^^^^^^^^^^^^^^^ 不预先创建, 可到头来还是需要动态创建这, 这, 这, 不是舍近求远吗?

CGF · 1998-11-16

我希望通过代码生成。那位大虾愿意伸出援手！！！！！！！！！ 50分即时呈上!!!!!!!!

dwwang · 1998-11-16

你的意思是说一个Form也没有,完全动态创建? 这也是肯定可以的,不过首先能不能告诉我你是怎么 把你的程序在运行时搞成一个图标的? 也就是说帮忙把你的.dpr文件贴上来让大家看一下,好吗?

pegasus · 1998-11-16

>我希望通过代码生成。那位大虾愿意伸出援手！！ 嗨, 当然是可以办到的,例如:   虽然您没有建立Form, 但是您至少可以创建TForm类型的对象, 然后给它设置属性, 等等 问题是有没有必要, 或者说, 至少可以先用预先创建的Form作为 模版, 然后根据需要动态建立或修改已经存在的元件, 事半功倍,

pegasus · 1998-11-16

>我希望通过代码生成。那位大虾愿意伸出援手！！ 嗨, 当然是可以办到的,例如:   虽然您没有建立Form, 但是您至少可以创建TForm类型的对象, 然后给它设置属性, 等等 问题是有没有必要, 或者说, 至少可以先用预先创建的Form作为 模板, 然后根据需要动态建立或修改已经存在的元件, 事半功倍,

huizhang · 1998-11-16

Form 还是要的, 否则无法作 TrayIcon。

CGF · 1998-11-17

我的程序是没有Form的,它运行后在TaskBar产生一个图标,按右键就弹出动态的Form，Form中含有图片和按钮。 我希望通过代码生成。那位大虾愿意伸出援手！！！！！！！！！

dwwang · 1998-11-17

原理很简单,就是在你那个taskbar icon的事件中加入生成 form的代码,关键是要看如何给你的程序定义事件. 因此我才说请把你的.dpr文件贴上来看看,是怎么实现的那个 taskbar icon.你总不会是程序还没做吧!

CJ · 1998-11-17

基本上你的程序可以完全用PASCAL代码写，代码写在PROJECT的SOURCE中， 关于事件，那看一下OBJECT PASCAL 有很好的支持 我说了些什么？抱歉！ 问题可能是这样的： 如果在程序中有一个窗，但是其内容有许多变化，你可以在把窗SHOW出来之前改变其 内容： begin    form1.top := xxx;    form1.left := xxx;    ...    button1.top := xxx    ...    bitmap1.loadfromfile ...    form1.Showmodal; end;

Another_eYes · 1998-11-19

在您的主程序中定义一个变量, 类型为TForm即可 var   MyForm: TForm;   MyButton: TButton;   MyPic: TBitMap; begin   MyForm := TForm.Create(Application);   MyButton := TButton.Create(MyForm);   with MyButton do   begin     Parent:=MyForm;     Top:=...     ...   end;   ....   MyForm.showModal;   MyForm.Free;   MyForm:=nil;   .... end; 如果要用MyForm.Show的话, free可能有点麻烦, 可以通过给主程序post一个 message让主程序调用MyForm.close关闭form, 然后再free.

CGF · 1998-11-19

谢谢Another_eYes大虾，谢谢！！！

如何动态创建Form(50分)

CGF

Unregistered / Unconfirmed

dwwang

Unregistered / Unconfirmed

jiangtao

Unregistered / Unconfirmed

littlegrass

Unregistered / Unconfirmed

huizhang

Unregistered / Unconfirmed

CGF

Unregistered / Unconfirmed

pegasus

Unregistered / Unconfirmed

CGF

Unregistered / Unconfirmed

huizhang

Unregistered / Unconfirmed

pegasus

Unregistered / Unconfirmed

CGF

Unregistered / Unconfirmed

dwwang

Unregistered / Unconfirmed

pegasus

Unregistered / Unconfirmed

pegasus

Unregistered / Unconfirmed

huizhang

Unregistered / Unconfirmed

CGF

Unregistered / Unconfirmed

dwwang

Unregistered / Unconfirmed

CJ

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

CGF

Unregistered / Unconfirmed

Similar threads