简单呀:
procedure TMyEdit.DealOnChange( Sender: TObject );
begin
//.........
end; constructor TMyEdit.Create( AOwner: TComponent );
begin
inherited;
OnChange := DealOnChange;
//...
end;这里写的是最最简单的办法,但不是最好的办法。
procedure TMyEdit.DealOnChange( Sender: TObject );
begin
//.........
end; constructor TMyEdit.Create( AOwner: TComponent );
begin
inherited;
OnChange := DealOnChange;
//...
end;这里写的是最最简单的办法,但不是最好的办法。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货