如何修改BUTTON控件的属性或事件？

Question

我想给BUTTON控件加处事件进去？要怎么弄？
谁有相应的资料请给我一份谢谢
[email protected]

Answer 1

procedure tform1.Doonchage(Sender:TObject);
edit1.OnChange := Self.DoOnChange;

Answer 2

type  TForm1 = Class(TFORM)
  .......
  private
 //自己声明的事件
    procedure OnClick1(Sender:TObject);
    procedure OnClick2(Sender:TObject);
  public
   ...
  end;begin
//给你的 button1 赋予不同的事件
  if ........ then
    Button1.OnClick := onClick1
  else
    Button1.OnClick := onClick2end;/////////你的事件代码
procedure TForm1.OnClick1(Sender:TObject);
begin
  Showmessage('onclick1');
end;
procedure TForm1.OnClick2(Sender:TObject);
begin
  Showmessage('onclick2');
end;

Answer 3

还要加什么事件,组件自带的不够用吗?
还是想在事件处理中做些你要做的事件,如果是这样可以override产生对应事件的方法,如想在OnClick事件前后做些自己的事情可以Override TButton的Click方法
如下代码
TMyButton=class(TButton)
protect
  procedure Click;override;
end;实现部分procedure TMyButton.Click;
begin
  //添加事件前代码
  inherited;
  //添加事件后代码
end;