Delphi 中如何初始化事件

在程序当中，我们写了大量的事件，有些时候从数据库读取出来以后需要进行初始化执行，才能够达到效果，下面以OnChange事件为例。

首先在窗体FormShow事件里面添加过程，

procedure TBaseForm.FormShow(Sender: TObject);
begin
  inherited;
  initComboxData;
end;

 

 然后在private里面声明过程

procedure  initComboxData;

 

 最后在过程 initComboxData里面编写代码

procedure TBaseForm.initComboxData;
begin
  ComboBox1Change(ComboBox1);
end;

 

  这样就会执行ComboBox1Change这个过程了。