窗体创建的问题,f:=TForm2.create(self);f:=TForm2.create(nil);f:=TForm2.create(Application);这三种方法创建的窗体有什么不同?关闭窗

5556667 2004-12-22 11:55:45

窗体创建的问题,f:=TForm2.create(self);f:=TForm2.create(nil);f:=TForm2.create(Application);这三种方法创建的窗体有什么不同?关闭窗件释放内存时分别要用什么语句?

...全文

153 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

thunderniao 2004-12-28

打赏
举报

回复

Self或者nil必须自己手工Free窗体。Application自动Free

石榴刺猬 2004-12-22

打赏
举报

回复

VCL的老问题。

Create方法的参数是Owner，就是窗体是由谁负责释放内存的。

如果是Self或者nil，你必须自己手工Free窗体。如果是Application，那么程序退出的时候会自动Free的。

释放窗体使用 f.Free;

fayeflash 2004-12-22

打赏
举报

回复

我一般都用nil，自己创建，自己释放！

76liujing 2004-12-22

打赏
举报

回复

如果是self，就有self卸载时释放创建的窗体。
当然以上窗体都可以手工用free释放

cxGrid右键菜单源码含源码 //CXVIEW的右键菜单 { Tag=19003 //TableView.Columns[i].Tag=19003 表示此列是计算列; } unit ABcxGridPopupMenuU; interface // 关闭RTTI反射机制减少EXE文件尺寸 {$IF CompilerVersion >= 21.0} {$WEAKLINKRTTI ON} {$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])} {$IFEND} uses ABPubListBoxItemU,ABPubMemo

delphi的字幕滚动窗体程序代码如下 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TForm1 = class(TForm) Timer1: TTimer; Edit1: TEdit; Button3: TButton; Button2: TButton; TrackBar1: TTrackBar; Panel1: TPanel; Label1: TLabel; Label2: TLabel; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure TrackBar1Change(Sender: TObject); procedure FormDestroy(Sender: TObject); private procedure zShowText; Procedure zBmpCreate; procedure zSetBmp; procedure zSetLineHeight; procedure zShowLine(sender :TObject); { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} var currline, LineHeight:integer; sItem:TStringList; bmp:TBitMap; bRect,R1:TRect; iDc:HDC; procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Enabled:=False; iDC:=GetDc(Panel1.handle); Currline:=0; end; procedure TForm1.zShowLine(sender :TObject); begin zShowText; end; procedure TForm1.Timer1Timer(Sender: TObject); begin zShowLine(self);//显示字符串 //bitblt 转移矩形图 (目标句柄，LS x,y,宽，高，源句柄，LS x,y,光栅运算符） BitBlt(iDc,0,0,Panel1.Width,Panel1.Height, Bmp.Canvas.Handle,0,Currline,srcCopy); //改变currline可实现左移右移 Inc(Currline,1); if Currline>=bRect.Bottom-panel1.Height+100 then begin Timer1.Enabled:=False; Currline:=0; end; end; procedure TForm1.zShowText; var ss:string; ReadFile:TextFile; begin AssignFile(ReadFile,Edit1.Text); Reset(ReadFile); sItem:=TStringList.Create; with sItem do while not eof(ReadFile) do begin Readln(ReadFile,ss); add(ss); end; CloseFile(ReadFile); zBmpCreate; sItem.Free;//释放串 end; procedure TForm1.zBmpCreate; //创建图片 var i,y:integer; //y begin if bmp<>nil then bmp.free; bmp:=TBitMap.Create; zSetBmp; R1.Right:=bRect.Right; R1.Bottom:=bRect.Bottom; y:=Panel1.Height-100; for i:=0 to sItem.Count-1 do // 从0到行数循环显示图片 begin R1.Top:=y; R1.Bottom:=R1.Top+LineHeight; //中对齐 DrawText(Bmp.Canvas.Handle,pChar(sItem[i]),-1,R1,Dt_Center or Dt_Top); //左对齐 //DrawText(Bmp.Canvas.Handle,pChar(sItem[i]),-1,R1,Dt_Left or Dt_Top); //右对齐 //DrawText(Bmp.Canvas.Handle,pChar(sItem[i]),-1,R1,Dt_Right or Dt_Top); Inc(y,LineHeight); end; end; procedure TForm1.zSetBmp; begin zSetLineHeight; with bRect do //Rect 矩形坐标(左上x,左下y,右上x,右下y) begin Top:=0; Left:=0; Right:=Panel1.Width; Bottom:=LineHeight*sItem.Count+Height;//行高*行数+form高度 end; with Bmp do begin Height:=bRect.Bottom+100;//图片高度 Width:=bRect.Right; with Canvas do //canvas 画布 begin FillRect(bRect); Brush.Style:=bsClear; end; end; end; procedure TForm1.zSetLineHeight; {设置行间隔} var Metrics:TTextMetric; //设置字体 API begin GetTextMetrics(iDc,Metrics); LineHeight:=Metrics.tmHeight+Metrics.tmInternalLeading-Bmp.Canvas.Font.Height; end; procedure TForm1.Button2Click(Sender: TObject); begin if Edit1.Text='' then ShowMessage('请输入文件地址') else Timer1.Enabled:=not Timer1.Enabled; end; procedure TForm1.Button3Click(Sender: TObject); begin timer1.Enabled :=false; Currline:=0; Button2.Click; end; procedure TForm1.TrackBar1Change(Sender: TObject); begin Timer1.Interval:=TrackBar1.Position*5; end; procedure TForm1.FormDestroy(Sender: TObject); begin if Bmp<>nil then Bmp.Free; end; end.

窗体创建和函数关联相关的两个小问题 VCL组件开发及应用http://www.delphi2007.net/DelphiVCL/html/delphi_20061222112800193.html 1，用窗体名称作为传入参数，创建窗体，怎么避免重复创建？如下面代码中注释调的部分；使用not assigned()判断返回的结果每次都是false 也就是说，as...

{**********************************************************************************************************************} 建立窗体是经常要用到他们如： form1:=tform.create(application); form1:=tform.c...

When you createDelphi objects dynamicallythat inherit from TControl, such as a TForm (representing a form/window in Delphi applications), the constructor "Create" expects an "Owner" parameter: 当动...

5,386

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章