关于动态创建控件(50分)

  • 主题发起人 主题发起人 完颜康
  • 开始时间 开始时间

完颜康

Unregistered / Unconfirmed
GUEST, unregistred user!
现在我已经动态的创建了一个控件 tcombobox、tedit,现在我要在他的onExit和onEnter事件
中写代码,怎么办?
(我发现这两个事件不同于onChange事件,onChange事件就可以这样来实现
edit1.onchange:=form1.一个方法。)
 
我试过了,可以触发,代码如下

.....
private
edit1:TEdit;
procedure Exit(Sender: TObject);
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1:=Tedit.create(self);
edit1.Parent:=self;
edit1.visible:=true;
edit1.OnExit:=exit;
end;
......
 
为什么不能给 Brave加分?
我要接受他的答案
 
刚才不小心加错分了~~~不过我刚才到另外一个问题里给Brave加了50分~~
我感觉brave是个高人~~能不能认识以下?oicq:10082765(验证:dfw)
也欢迎其他人把我加到好友
 
我加了你了,我的qq:1717117
 
后退
顶部