一个unit问题!

Question

我想在一个unit中自动执行事件(我写的事件放在FormCreate中会报错)~该如何写代码,怎么写?
谢谢各位老大~

Answer 1

initialization
begin
  .....
end;
finalization
begin
  .....
end;

Answer 2

如果要写From的“自动执行事件”代码，不能写在initialization。

Answer 3

initialization
begin
ShowMessage('abc');
end;不过你最好首先确定你的代码为什么放在FormCreate中会出错，否则，也无法保证放在initialization中可以正确执行

Answer 4

因为我是让按钮自动点击,在窗口初始化之后自动执行这个事件
==============================================================================
关键是看你的按钮自动点击做什么事情，如果有关显示的操作，可以在OnShow中去作，因为这个时候，所有的静态Form和控件包括数据模块都已经初始化完毕，在OnCreate中有些模块未初始化，肯定出错。

Answer 5

放到formshow中看看  
估计是  FormCreate 中调用你的函数时  还有一些初始化工作未完成

Answer 6

怎么样放在Formshow ,我放在FormShow没有反映~

Answer 7

简单例子：procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Ok');
end;procedure TForm1.FormShow(Sender: TObject);
begin
  Button1.Click;  //自动点击
end;

Answer 8

使用了maozefa(阿发伯)的例子,但程序还是无法执行~
不知道什么原因,郁闷中...
这是代码...
procedure FormShow(Sender: TObject);
begin
  frm_Main.A_Play.Execute;  //自动点击
end;
end.