[DELPHI]Event aan procedure toewijzen met code

[Verwijderd]

Ik wil een event toewijzen aan een procedure met code.
Er wordt nu automatisch een procedure toegewezen als je dubbel klikt op dat event in de object inspector, maar ik wil het kunnen toewijzen in de code zelf zodat ik onder runtime kan wisselen van procedure bijvoorbeeld.

[Creepy]

wat lukt er niet?

code:

Procedure blaat(sender: TObject);
begin
     // blaat
end;

.....

Button.onclick:=blaat;

[whoami]

Meer moet dat niet zijn...

[Verwijderd]

Op woensdag 09 januari 2002 13:08 schreef whoami het volgende:
Meer moet dat niet zijn...

Helaas gaat dit niet werken. Dit topic is al eens eerder geweest, weet alleen niet meer te vinden.
Je event zal binnen een class gedefinieerd moeten zijn, onderstaande werkt dus niet:

code:

procedure Blaat(Sender: TObject);
begin
  ShowMessage('Dit kan dus niet');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2.OnClick := Blaat;
end;

Wat wel werkt:

code:

procedure TForm1.Blaat(Sender: TObject);
begin
  ShowMessage('Dit kan wel');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2.OnClick := Blaat;
end;

Met behulp van nil kun je het event weer 'verwijderen'.

code:

Button2.OnClick := nil;

Suc6

[whoami]

OK, het moeten member functies zijn. Had dat over het hoofd gezien.

[Creepy]

Tging om het idee he

* Creepy is er op tegen om complete copy&paste code te geven..

Het forum heet P&W, geen C&P!