ResFiles + Windows Unit und Programm beenden

[bembulak]

Ich hab's mal drangehängt. Sorry, ich habe da einen Post von dir übersehen.

Aber jetzt verliere ich den Überblick.

[af0815]

Läuft

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
const
     IDI_ICON1 = 101;
begin
     TrayIcon1.Icon.Handle:= LoadIcon(hInstance, MAKEINTRESOURCE(IDI_ICON1));
     TrayIcon1.PopUpMenu := PopupMenu1;
end;
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
  if self.Tag <> 1 then
  begin
    CanClose := false;
    TrayIcon1.Visible:= True;
    self.Visible:= False;
  end
  else
  begin
    if TrayIcon1.Visible then TrayIcon1.Visible:= false;
    self.Visible:= True;
  end;
end;
 
procedure TForm1.MenuItem1Click(Sender: TObject);
begin
  Form1.Visible := True;
  TrayIcon1.Visible := False;
end;
 
procedure TForm1.MenuItem2Click(Sender: TObject);
begin
     self.Tag := 1;
     Close;
end;

FormClse wird nicht benötigt, da es eigenlich zu spät ist. Das ganze macht Sinn in der FormCloseQuery. Dort ganz einfach das Behandeln. WIchtig war auch, das das TryIcon beim normalen schliessen wieder deaktiviert wird.

[bembulak]

Danke für die Hilfe!
Nachdem ich anfangs zu dumm war, CanCloseQuery an den OnClose-Event von Form1 zu binden, hat es dann doch funktioniert, wie es eigentlich soll.

Aber wo bitte, oder wie, kommt man auf solche Funktionen? Ich meine, ist es irgendwo dokumentiert, dass man die Events so übergehen und austricksen kann? Ist CanCloseQuery() ein willkürlicher Name, oder ist der wo vorgegeben, so wie Lazarus eben auch andere Prozeduren benennt?

Jedenfalls noch mals herzlichen Dank! Bin wirklich froh, dass es nun so funktionert, denn wie gesagt, das Application.Terminate; hätte mir nicht gefallen, auch wenn es vlt. gar nicht so böse ist, wie es mir scheint.

[af0815]

Nein es ist alles nicht willkürlich.

Leider ist die Dokumentation die größte Schwäche bei Lazarus. Sie taugt leider nur dann wenn man schon ein Hacker ist. Gerade für den Anfang ist vieles zu konfus.

Bei vielen Sachen kann man auf Literatur von Delphi zurückgreifen. So ist es für mich natürlich mit OnCloseQuery und OnClose zu arbeiten. Aber das sind ein paar Jahre Programmierung und Kurse dazwischen.

[bembulak]

Ah, ok.
Habe mittlerweile auch ein wenig gegoogelt und siehe da, CanCloseQuery(..) taucht da doch des Öfteren auf. Bin schon gespannt, wie viele Dinge mir in der Hinsicht noch unterkommen.
Ich habe hier zwar mittlerweile ein paar Bücher über Delphi liegen, aber CanCloseQuery ist mir da bisher nicht untergekommen. (Wobei mein Borland Delphi 7 - Grundlagen, Profiwissen, Kochbuch sehr wohl ein OnCloseQuery kennt).

Jedenfalls noch mals vielen Dank für die sehr kompetente Hilfe!