Thema: Delphi Events vergleichen

Einzelnen Beitrag anzeigen

Benutzerbild von igel457
igel457

Registriert seit: 31. Aug 2005
1.622 Beiträge
 
FreePascal / Lazarus
 
#1

Events vergleichen

  Alt 18. Aug 2006, 17:54
Hallo, ich habe ein "kleines" Problem...

Und zwar setze ich mit...
Delphi-Quellcode:
procedure TDXLuaGUIManager.ACallBack1(Sender:TObject);
begin
  with Sender as TDXComponent do
  begin
    OnClick := AClick;
  end;
end;
...OnClick (TNotifyEvent) einer Komponente auf die Prozedut AClick. Die Deklaration davon sieht so aus:
procedure AClick(Sender:TObject); Nun möchte ich überprüfen, ob OnClick auf AClick gesetzt worden ist.
Der Code von mir:
Delphi-Quellcode:
procedure TDXLuaGUIManager.ACallBack2(Sender:TObject);
begin
  with Sender as TDXComponent do
  begin
    if OnClick = AClick| then OnClick := nil;
  end;
end;
Leider spuckt mir der Compiler bei | eine Fehlermeldung (E2035 Nicht genügend wirkliche Parameter) aus.
Ich habe leider keine Ahnung, wie ich diesen Vergleich durführen kann. Ich habe es auch schon mit der Addresse (@) versucht, aber das hat auch nicht funktioniert.

Danke!
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
  Mit Zitat antworten Zitat