请帮忙--毕业设计中遇到的问题（2）(50分)

  • 主题发起人 主题发起人 无影
  • 开始时间 开始时间
无

无影

Unregistered / Unconfirmed
GUEST, unregistred user!
在FORM.CREATE 紧接着执行的程序段加在哪里?
要求:在FORM未显示前
 
OnShow事件
 
create
show
activate
就行了。
 
假如只想在CREATE 后只执行一次，应作个标示Done:Boolean，OnShow第一次执行后就
将它设为True ,以后OnShow不再执行就是
 
OnCreate，绝对只执行一次，且在ONShow前
 
自己动手去证明：
procedure TForm1.FormCreate(Sender: TObject);
begin
Caption := 'OnCreate ';
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Caption := Caption + 'OnShow ';
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Caption := Caption + 'OnActive ';
end;

运行，再看看窗口标题，明白？
 
一个办法：用OnCreate；
另一个：先将Form1的Visible设为False;
Form1:=TForm1.Create(Application);
{Call USelf Procedure};
Form1.Show;
最后在Form1.OnDestroy写: Free;
 
to croco:
看得见吗? 呵呵.
 
to superMMx:
可以的，在CAPTION前加个FORM1就行！
 
oncreate也有可能在窗口显示前和显示后执行两种方案，
好象可以设置一个可见的属性，忘了，自已找找吧
 
最好在每个事件里加个showmessage
单步执行程序！
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
晨
发布我的毕业设计（提意见有分）(300分)
2 3 4 5 6
回复
108
查看
3K
wind8bell
W
B
请大家给个建议，毕业设计做什么好啊，稍微难点(10分)
回复
3
查看
155
birch2002
B
E
2个问题，求教各位，我做毕设很急！！！！！！(20分)
回复
7
查看
90
elimago
E
B
请大家给个建议，毕业设计做什么好啊，稍微难点啊(10分)
回复
5
查看
135
lwowo
L
后退
顶部