onshow事件什么时候发生? 为什么我的程序有的onshow事件在create时就触发了,有的就没有啊? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 看下面的方法,你就知道事件的前后顺序了。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormResize(Sender: TObject); procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin ShowMessage('Create!');end;procedure TForm1.FormShow(Sender: TObject);begin ShowMessage('Show');end;procedure TForm1.FormResize(Sender: TObject);begin ShowMessage('Resize');end;procedure TForm1.FormActivate(Sender: TObject);begin ShowMessage('Activate!');end;end. 这个我知道的比如我有 Application.CreateForm(TFrmMain, FrmMain); Application.CreateForm(TFrmLogin, FrmLogin); Application.CreateForm(TAboutBox, AboutBox); Application.CreateForm(TfmSetup, fmSetup); Application.CreateForm(TFrmDaseData, FrmDaseData); Application.CreateForm(TFrmEditData, FrmEditData);后几个formCreate全没有写什么东西但是FrmEditData里的show事件在Application.CreateForm(TFrmEditData, FrmEditData);后就发生了。 而其它几个form中的show事件,是在我form.show后再发生的 在show的时候触发阿:)WM_SHOW消息不过非常赞成一楼的方法----学语言和编程就该这样,佩服,学习 动态生成后的按钮如何保存 webbrowser控件的问题 设置SPEEDBUTTON的 CAPTION多行显示 _SendMsg@8 调用方法? delphi最终群 ..群的人多是你的加入..群的强大是你的支持..欢迎你的指教.. 关于Delphi 8的书籍 本人出售两套系统的源代码.一为ERP系统代码30万行。另一为三层架构的企业内部物流管理系统。详情请看。 串口取数据的控制问题, 如何给文件改名?(在线等待!) ch81(missile) 过来拿分! 谁能提供一个基于互联网的文件传输源码啊? 请问谁知道 换肤控件SkinEngine Version 3.4.5在那里有下载?
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
ShowMessage('Create!');
end;procedure TForm1.FormShow(Sender: TObject);
begin
ShowMessage('Show');
end;procedure TForm1.FormResize(Sender: TObject);
begin
ShowMessage('Resize');
end;procedure TForm1.FormActivate(Sender: TObject);
begin
ShowMessage('Activate!');
end;end.
比如我有
Application.CreateForm(TFrmMain, FrmMain);
Application.CreateForm(TFrmLogin, FrmLogin);
Application.CreateForm(TAboutBox, AboutBox);
Application.CreateForm(TfmSetup, fmSetup);
Application.CreateForm(TFrmDaseData, FrmDaseData);
Application.CreateForm(TFrmEditData, FrmEditData);
后几个formCreate全没有写什么东西但是
FrmEditData里的show事件在Application.CreateForm(TFrmEditData, FrmEditData);
后就发生了。
WM_SHOW消息
不过非常赞成一楼的方法----学语言和编程就该这样,佩服,学习