PopUp Menue bei Systray Icon

[lycaner]

Hallo Lazarus Gemeinde,

ich habe mir das Package mit dem SysTray zur Brust genommen und bei mir soweit als möglich nachgebaut.
Nun funktioniert das ganze aber leider nicht.

Code: Alles auswählen

// Under Windows we get the path of the executable
{$IFDEF Windows}
  pathMedia := ExtractFilePath(Application.ExeName);
{$ENDIF}
 
  IncludeTrailingBackslash(pathMedia);
 
  TrayIcon1.Hint := 'SMIS santifit Mitarbeiter Informations System';
 
  TrayIcon1.OnClick := TForm1.HandleClick ;
 
  TrayIcon1.PopUpMenu := PopupMenu;
 
end;

Beim TryIcon1.Click := HandleClick ; bleibt der Compiler stehen. fehler:

Code: Alles auswählen

main.pas(197,43) Error: Wrong number of parameters specified for call to "HandleClick"

im, HandelClick steht:

Code: Alles auswählen

procedure TForm1.HandleClick(Sender: TObject);
begin
  Application.MessageBox('Text', 'Caption', 0);
// Application.MessageBox('Text')  ;
end;

Also wie gesagt ich komme nicht weiter und weis leider nicht was ich falsch gemacht haben soll. Ohne TrayIcon1.OnClick := TForm1.HandleClick
geht das ganze, dafür habe ich aber keine PopUp Info und keine weiteren möglichkeiten die zu nutzen.

Könnt Ihr mir vielleicht weiter Helfen ?

Ich danke und wünsche nen schönen Tag.

Chris

[Socke]

Code: Alles auswählen

TrayIcon1.OnClick := TForm1.HandleClick ;

Hallo,

Free Pascal ist bei Methodenzeigern etwas strikter als Delphi, du musst also explizit die Adresse der gewünschten Methode übergeben:

Code: Alles auswählen

TryIcon1.OnClick := @Self.Handleclick;

Ansonsten versucht der Compiler die Methode HandleClick() aufzurufen und das Ergebnis an TryIcon1.OnClick zu übergeben -- das funktioniert nur nicht (weil HandleClick() nichts zurückgibt) und hat inhaltlich auch nicht wirklich Sinn.

Der andere Punkt ist, dass TForm1.HandleClick() eine Methode einer Klasse (TForm1 ist die Klasse deines Formulars) ist, ein Event-Handler in der Regel aber eine Methode eines Objektes (also einer existierenden Instanz einer Klasse) ist. Das Schlüsselwort Self liefert immer das gerade aktuelle Objekt (natürlich nur innerhalb von Objekt-Methoden).

[lycaner]

Hallo Socke,

Hallo,

Free Pascal ist bei Methodenzeigern etwas strikter als Delphi, du musst also explizit die Adresse der gewünschten Methode übergeben:

Code: Alles auswählen

TryIcon1.OnClick := @Self.Handleclick;

Ansonsten versucht der Compiler die Methode HandleClick() aufzurufen und das Ergebnis an TryIcon1.OnClick zu übergeben -- das funktioniert nur nicht (weil HandleClick() nichts zurückgibt) und hat inhaltlich auch nicht wirklich Sinn.

Vielen Dank für Deine Hilfe, jetzt gehts, ich habe wohl zu wenig probiert.

Gruss

Chris