Event (Ereignis) at runtime ändern

[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.