Procedure proc1; begin do something; end; procedure proc2; begin do something; end; I want to assign these two different procedure to a button's OnClick event according some value,such as following pesudo code: if flag=10 then button1.proc1 else button1.proc2; who can tell me how to write the right code? thanks.

You need a TNotifyEvent, not a procedure....    

type
    TMyClass = class
        class procedure proc1(Sender: TObject);
        class procedure proc2(Sender: TObject);
    end;    procecedure TMyClass.proc1(Sender:TObject);
begin
end;    procecedure TMyClass.proc2(Sender:TObject);
begin
end;
{.....}
if flag=10 then
    button1.OnClick := TMyClass.proc1 
else
    button1.OnClick := TMyClass.proc2;

發表人 - william 於 2004/02/06 15:13:31

您好： 不好意思發表後才知重複了  

 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if flag=10 then
    proc1
  else proc2;
end;

~~應無所住而生其心~~ 發表人 - Terrychen 於 2004/02/06 15:15:40

william, if I use code like this: procedure TForm1.button1OnClick(Sender:TObject); class procedure proc1(Sender: TObject); begin ... end; class procedure proc2(Sender: TObject); begin ... end; begin form2:=TForm2.create(application); if flag=10 then form2.button1.proc1 else form2.button1.proc2; form2.showmodal; form2.free; end; can the code compile or run right?

I get "Incompatible type:method pointer and regular procedure". why?

unit Unit1;    interface    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls;    type
    TForm1 = class(TForm)
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
    private
    public
    end;        TMyClass = class
        class procedure proc1(Sender: TObject);
        class procedure proc2(Sender: TObject);
    end;    var
    Form1: TForm1;
    flag: integer;    implementation    uses Unit2;    {$R *.dfm}    { TMyClass }    class procedure TMyClass.proc1(Sender: TObject);
begin    end;    class procedure TMyClass.proc2(Sender: TObject);
begin    end;    procedure TForm1.Button1Click(Sender: TObject);
begin
    form2 := TForm2.create(self);
    if flag=10 then
        form2.button1.OnClick := TMyClass.proc1
    else
        form2.button1.OnClick := TMyClass.proc2;
    form2.showmodal;
    form2.free;
end;    end.

here I must use nested local procedures and assign these procedure to OnClick event according to different flag values.

No, you cannot use local procedures. You must either use a class procedure or an object's method.