***************我动态创建的EDIT，怎么给他加 OnChange事件

Question

我动态创建的EDIT，怎么给他加 OnChange事件

Answer 1

procedure EditChange(Sender: TObject);
begin
  showmessage(Tedit(Sender).text);
end;var NewEdit:Tedit;
begin
   NewEdit:=Tedit.Create(self);
   NewEdit.Parent:=self;
   NewEdit.SetBounds(10,20,50,21);
   NewEdit.OnChange:=EditChange;
end;

Answer 2

楼上写的基本正确，但稍微有些问题：
procedure TForm1.EditChange(Sender: TObject);
begin
  showmessage(Tedit(Sender).text);
end;

Answer 3

procedure TForm1.EditChange(Sender: TObject);
begin
  showmessage(Tedit(Sender).text);
end;procedure TForm1.Button1Click(Sender: TObject);
var NewEdit:Tedit;
begin
   NewEdit:=Tedit.Create(nil);
   NewEdit.Parent:=self;
   NewEdit.SetBounds(10,20,50,21);
   NewEdit.OnChange:=EditChange;
end;

Answer 4

delphi 学习群：31469235
加入请注明 csdn 字样