procedure TForm1.Systray(var sMsg: TMessage) ?

[Trouble_Maker]

Hiho ...
habe schonmal mit dem folgenden Code gearbeitet und es hat auch alles funktioniert:

Delphi-Quellcode:

procedure TForm1.Systray(var sMsg: TMessage);
begin
  // Vorgang: Klick auf das Icon neben der Uhr und Anzeige der Anwendung
  inherited;
  if (sMsg.LParam = WM_LBUTTONDOWN) then begin
    Show;
    Shell_NotifyIcon(NIM_DELETE, @NIM);
    Application.Restore; //zeigt die Anwendung wieder an
  end;
end;

Aber ich hab einfach vergessen, wie ich das "procedure TForm1.Systray(var sMsg: TMessage);" in meinen Quelltext bekommen hab ^^

Also ich hab den Code einfach eingefügt. Und dann is ja klar, dass er das Systray nicht findet.

Könnt ihr mir helfen, wo ich im Formular/Objectinspector hinklicken muss, um dies in den Quelltext zu übernehmen !?!

Danke


cu Trouble_Maker


PS: Ich wusste wie´s geht. Habs aber vergessen

[Memo]

Na mit Copy & Paste von hier:
http://www.tipps.delphi-source.de/de...020915-4.shtml