如何自定义过程

Question

事件赋值?
最好这样,在mybutton.onclick里面
代码
tform.onbuttclk(sender);
即可实现目的!

Answer 1

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    procedure okbuttclk(Sender: TObject);
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  password:Tedit;
  okbutt:Tbutton;
......
  okbutt.onClick:=okbuttclk;

Answer 2

哥们，要对过程赋值，要满足声明一模一样才行，onclick是对象方法
所以声明是procedure (Sender: TObject) of object;
你也要在最后加一个 of object就行了
  procedure okbuttclk(sender:tobject) of object;

Answer 3

其实最一般的方法是重载标准事件的派遣方法，如下
type 
    tmybutton = class(tbutton)
    protected
      procedure click;override;
    end;procedure tmybutton.click;
begin
  inherited click;
  //你自己的代码
end;