我也谈谈窗体创建（读万一老师《使用多窗体时,关于节约内存和加快启动速度的思考与尝试》感想）...

http://www.cnblogs.com/del/archive/2010/01/19/1651483.html  感触比较深&＃xff0c;因为我经常使用TClipboard 却从来没有注意过这个问题&＃xff0c;要反省。

看了文章中的例子&＃xff0c;在我的项目也试了一下&＃xff0c;成功&＃xff0c;呵呵。可惜的是我觉得灵活性比较差&＃xff0c;也许是我水平比较差&＃xff0c;所以现在说出来&＃xff0c;大家探讨一下

文章中的例子:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 &＃61; class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  end;

function Form2: TForm2;

implementation

{$R *.dfm}

var
  FForm: TForm2;

function Form2: TForm2;
begin
  if FForm &＃61; nil then
    FForm :&＃61; TForm2.Create(Application);
  Result :&＃61; FForm;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action :&＃61; caFree;
end;

end.

这样&＃xff0c;我们就可以在别的单元直接使用Form2.ShowModal或者是Form2.Show等属性&＃xff0c;但是我们要对于想要控制的窗体呢&＃xff1f;比如说&＃xff0c;在窗体是有3个Btn&＃xff0c;我想根据特定的条件来设置Btn

的Enabled属性&＃xff1f;那么也就是说&＃xff0c;我们必须要Show或者ShowModal里面写这个控制代码。我常用的方法和万一老师说这个方法的比较。如下&＃xff1a;

 1 procedure TForm1.BitBtnClick(Sender:TObject);     //我常用的方法
 2 
 3 var
 4 
 5 　Form2:TForm2;　
 6 
 7 　I:Integer;
 8 
 9 begin
10 
11 　　I:&＃61;0;
12 
13 　　Form2:&＃61;TForm2.Create(Self);
14 
15 　　if I&＃61;0 then    //通过 I 来进行控制
16 
17 　　begin
18 
19 　　　　Form2.BitBtn1.Enabled:&＃61;False;  
20 
21 　　end
22 
23 　　else
24 
25 　　begin
26 
27 　　　　Form2.BitBtn1.Enabled:&＃61;False;
28 
29 　　end;
30 
31 　　Form2.ShowModal;
32 
33 　　Form2.Free;
34 
35 end;
36 
37  
38 
39 procedure TForm1.BitBtnClick(Sender:TObject);
40 
41 var
42 
43 　　I:Integer;
44 
45 begin
46 
47 　　I:&＃61;0;
48 
49 　　if I&＃61;0 then    //通过 I 来进行控制 
50 
51 　　begin
52 
53 　　　　Form2.BitBtn1.Enabled:&＃61;False;   //但是这里就会有错误了&＃xff0c;我想你已经看出来了&＃xff0c;因为我们的窗体还没有创建
54 
55 　　end
56 
57 　　else
58 
59 　　begin
60 
61 　　　　Form2.BitBtn1.Enabled:&＃61;False;
62 
63 　　end;
64 
65 　　Form2.ShowModal;// 万一老师的方法&＃xff0c;窗体是在Form2这个函数中创建的
66 
67 end;
68 
69 

通过比较之后&＃xff0c;我个人觉得&＃xff0c;如果要对新窗体的一些属性和控件进行控件&＃xff0c;万一老师的方法就缺少了一些灵活性&＃xff08;当然我想万一老师写的这个文章不是要告诉我们用这个方法去创建窗体&＃xff09;&＃xff0c;我们虽然可以在新窗体的Show事件中解决一些问题&＃xff0c;但是可能会把Show事件写的很复杂。或者利用全局变量在function中进行判断(个人觉得和Show事件中写代码本质都一样)。我还想到一个方法&＃xff0c;就是定义多个function。来对应每一个需要如下&＃xff1a;

代码

function Form21:TForm2;

function From22:TForm2;

var

　Form:TForm2;

 

function Form21:TForm2;

begin

　if Form&＃61;nil then 

　begin　

　　Form:&＃61;TForm2.Create(Application);

　　Form.BitBtn1.Enabled:&＃61;True;

　end;

　Result:&＃61;Form;

end;

 

function Form22:TForm2;

begin

　if Form&＃61;nil then 

　begin　

　　Form:&＃61;TForm2.Create(Application);

　　Form.BitBtn2.Enabled:&＃61;True;

　end;

　Result:&＃61;Form;

end;

 

Other Unit;

 

procedure TForm1.BitBtnClick(Sender TObject);

var

　　I:Integer;

begin

　I:&＃61;0;

　if I&＃61;0 then

　begin

　　Form21.ShowModal;

   end

　else

　begin

　　Form22.ShowModal;

　end;

end;

第一次写技术文章&＃xff0c;看起来有点糙&＃xff0c;呵呵&＃xff0c;希望大家多多指正。(希望万一老师能够进来点评一下)