Ereignisaufruf zuweisen - Fehlermeldung - TrayIcon

[snowman]

Hallo,

ich bin jetzt neu mit Lazarus unterwegs, habe aber vorher schon ein bisschen was mit Delphi programmiert.

Ich habe mir einen Beispielcode zum Tray-Icon aus dem Internet gesucht:
http://www.planet3dnow.de/vbulletin/sho ... ostcount=4" onclick="window.open(this.href);return false;

Unter Lazarus bekomme ich aber eine Fehlermeldung in der Zeile:

Code: Alles auswählen

Application.OnMinimize := FormMinimieren;

Code: Alles auswählen

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

Achso FormMinimieren ist do deklariert:

Code: Alles auswählen

procedure FormMinimieren(Sender: TObject);

Soweit ich weiß, müsste dies unter Delphi richtig sein. Wie muss es aber unter Lazarus zugewiesen werden?

[snowman]

Und noch etwas, was unter Delphi funktioniert unter Lazarus aber nicht:

Code: Alles auswählen

Shell_NotifyIcon(NIM_DELETE,@NID);

Dafür bekomme ich die Meldung:
main.pas(77,3) Error: Can't determine which overloaded function to call

[MAC]

herzlich willkommen hier im Lazarusforum

Der fehler ist anz einfach zu beheben, indem man ein @ davor schreibt, also so:

Code: Alles auswählen

Application.OnMinimize := @FormMinimieren;

Der Grund?
Der FPC sieht das etwas strenger als Delphi und würde versuchen die Procedure FormMinimieren aufzurufen (deswegen steht da auch nicht genügend Parameter, weil er den Parameter Sender erwartet...) Das ergebnis der procedure FormMinimieren will der FP Compiler dann an Application.OnMinimize geben.
Da FormMinimieren aber ne procedure ist und kein ergebnis hat ist das natürlich recht "sinnlos", Delphi erkennt das und macht es automatisch so wie man es will.
Bei FPC muss man noch extra Deklarieren, das man nicht FormMinimieren aufrufen will, sondern einen Pointer davon übergeben will, deshalb das @ davor...
FPC ist übrigens der Free Pascal Compiler.

Edit:
Welche units hast du bei dem 2ten Fehler extra eingebunden ?
Danke

[snowman]

Danke schon mal, hast du ja richtig ausführlich beschrieben .

Ich habe die "ShellAPI" eingebunden bzw. hier alle units :

Code: Alles auswählen

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Windows, Messages, Variants, ShellAPI, Menus;

PS:

FPC ist übrigens der Free Pascal Compiler.

Das wird ja schon als Sicherheitsabfrage bei der Anmeldung hier im Forum abgefragt

[MAC]

versuch mal

Code: Alles auswählen

var
 x:PNOTIFYICONDATAW; 
begin
x := @NID;
Shell_NotifyIcon(NIM_DELETE,@NID);
end;

Da sind anscheinend 2 Shell_NotifyIcon.
Die ein unterschiedlichen 2ten Parameter haben, einmal
PNOTIFYICONDATAA
PNOTIFYICONDATAW
// Das letzte A, bzw W...
der unterschied ist glaub ich, der mit den W benutzt WChar und der andere Char in dem Record...

[snowman]

Danke für die Hilfe, ich komme aber erst Montag dazu das zu testen.

ciao und ein schönes Wochenende.

[snowman]

Der Code von dir führt zur gleichen Fehlermeldung. Erst wenn ich dem Funktionsaufruf auch noch das "A" spendiere funktioniert es :

Code: Alles auswählen

var
  NID: TNotifyIconDataA;
begin
  Shell_NotifyIconA(NIM_DELETE,@NID);
end;

Inzwischen habe ich aber auch TTrayIcon entdeckt .

[MAC]

... und ich hab mir gedacht du hättest das extra so kompliziert (ohne TTrayIcon) gemacht ;D

[snowman]

Sagen wir es jetzt mal so, auch wenn ich TTrayIcon verwende, habe ich daraus was gelernt.