procedure TForm1.ButtonClick(Sender: TObject); begin ShowMessage('AA'); end;procedure TForm1.FormCreate(Sender: TObject); begin Button1.OnClick := ButtonClick; end;————————————————————————————————— 宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。 —————————————————————————————————
procedure MyClick(sender:Tobject); begin //you code end;... DyButton:=Tbutton.create(self); with DyButton do begin //动态属性设置 DyButton.top:=10; //动态事件 DyButton.Onclick:=MyClick; end;
begin
ShowMessage('AA');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.OnClick := ButtonClick;
end;—————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
—————————————————————————————————
begin
//you code
end;...
DyButton:=Tbutton.create(self);
with DyButton do
begin
//动态属性设置
DyButton.top:=10;
//动态事件
DyButton.Onclick:=MyClick;
end;