procedure TForm1.Edit1Change(Sender: TObject);begin//提前写好的一个EditOnChange事件end;//下面动态创建事件procedure TForm1.Button1Click(Sender: TObject);var MyEdit:TEdit;begin MyEdit:=TEdit.Create(Self); MyEdit.Parent:=Self; MyEdit.Left:=0; MyEdit.Top:=0; MyEdit.OnChange:= Edit1Change; //设置OnChange事件end;
