Event (Ereignis) at runtime ändern

[thomas2009]

Hallo

ist es möglich den Event eines Controlls at run time zu ändern ?
z.b. der Event von einem Button ist Momantan :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
showMessage('Original');
end;

Nun möchte ich den Event von Button1 mit einem anderen Button ändern
von ShowMesssage in eine ganze andere Sache. d.h. wenn ich auf Button1 anklicke bekomme ich z.B. folgendes :
Caption:='Der Event wurde von ShowMessage zu Caption geändert';

[thkerkmann]

Hi,

klar geht das

Delphi-Quellcode:

...
Interface
type
  TForm1 = ....
     procedure AndereEventProzedur(Sender:tObject);
   ....
  end

...
Implementation
...

procedure TForm1.Button2OnClick(Sender:tObject);
begin
  Button1.OnClick := AndereEventProzedur; // umbiegen auf andere Eventprozedur
end;

procedure TForm1.AndereEventProzedur(Sender:tObject);
begin
  // hier jetzt was anderes
end;

...

dann sollte es gehen.