delphi 如何在界面创建之后再对控件进行监听监听

Question

本帖最后由 a137993530 于 2013-08-11 14:20:03 编辑

Answer 1

你这个可以先判别数据模块是否建立。
procedure TForm1.DBEdit1Change(Sender: TObject);
begin
   if not Assigend(MyDataModule) then exit; //数据模块没有建立，什么也不做，退出事件处理。
   label1.Caption := dbedit1.Text;
end;

Answer 2

类似于
procedure TForm1.FormCreate(Sender: TObject);
begin
   ededit1.onchange := LabelChangeName();
end;
你说的这样可以实现呀有什么疑问吗？

Answer 3

这个语句没法通过语法检查，会直接报错啊
ededit1.onchange := LabelChangeName();

Answer 4

procedure LabelChangeName(Sender: TObject);