close verhindern?

[malo]

Und zwar wüsste ich gerne, ob es eine Möglichkeit gibt, close zu verhindern. Ich will nämlich mein Programm, wenn man auf das Kreuz oben rechts klickt, nur in die TNA ablegen und das Programm auf der Taskleiste verstecken. Zum schließen des Programms will ich einen extra Button erstellen(so was gibt es ja schon bei einigen (chat-)Programmen. Da kommt dann auch immer 'ne Messagebox, wo drinsteht "das Programm wird nicht beendet. Zum Beenden auf "Beenden"-Button klicken" oder so). Nur wie kann ich das Schließen meines Programms verhindern, und nur das Schließen mit meinem "beenden" button ermöglichen?

[Mario]

Dafür gibt es im Formular das Ereignis OnCloseQuery.

[Dax]

Sieh mal bei TForm.OnClose und TCloseAcation nach.
Diese Prozedur sollte eine schliessung effektiv verhindern:

Delphi-Quellcode:

procedure TForm1.OnClose(Sender: TObject; Action: TCloseAction);
begin
  Action := caNone;
  // Hier arbeitet das Programm noch weiter
end;

[malo]

Ah, gut, jetzt kann ich close verhindern, danke

[Matze]

Aber sorge dafür, dass sich das programm beenden lässt.

Einfach CanClose auf false stellen, reicht da natürlich nicht aus.

[malo]

Zitat von Matze:

Aber sorge dafür, dass sich das programm beenden lässt.

Einfach CanClose auf false stellen, reicht da natürlich nicht aus.

Ach, das ist kein Problem. Zusätzliche Variable erstellen, beim Klick auf "Beenden"-Button auf 1 setzen. Dann im OnClose schließen erlauben, wenn die Variable = 1 ist, ansonsten nicht, fertig