Nach Schließen mit 'X' in die TNA

[Matze]

Zitat von MathiasSimmack:

Das ist aber kein Firewall, oder?

Deshalb sag ich's ja.

Zitat von MathiasSimmack:

Aber gut, da will die S(ch)pyware aktiv bleiben, das kann man verstehen ...

Hmm, du könntest recht haben.

[iddqd]

Hi nochmal!

Das Programm kann man dann via einem PopMenu beenden -> rechtsclick auf TNA und dann auf Beenden oder so !
(wie man das von vielen Programmen kennt, und ist eigentlich auch besser so !)

Jetzt hab ich aber folgendes Problem mit

Code:

Action := caNone;
Application.Minimize;

, weil nämlich das Abmelden (W2K) nicht mehr funzt. (Vermutlich weil sich mein Prog nicht mehr herkömmlich schließen lässt !?)

[Matze]

Und was passiert, wenn du anstatt
Action := caNone; das OnCloseQuerry-Ereignis nimmst und

Delphi-Quellcode:

if not BeendenErlaubt then
CanClose := false;

hineinschreibst?

BeendenErlaubt ist eine einfache boolsche Variable, dessen Wert du auch true setzen muss, wenn du im Tray auf "beenden" klickst. So als Beispiel.

[Mirilin]

oder einfacher :
CanClose := BeendenErlaubt mfg Tobias

[Matze]

Dass ich immer so umständlich denke, wahrscheinlich kann ich all meine Quelltexte auf 1/3 verküzen.

[iddqd]

Sorry, aber ich meine etwas anderes ....

Ich habe kein Problem mit dem Beenden des Programmes an sich. Unter "Beenden" im PopMenu nach rechtsklick auf TNA steht folgender Code:

Code:

application.terminate;

, was das Porgramm samt Icon in der TNA beendet.

Beim Abmelden des Users von W2K dürfte jedoch die Close anstatt der Terminate Methode für alle aktiven Programme aufgerufen werden, weswegen gar nichts passiert und ich zuerst das Programm manuell beenden muß bevor es geht !


Lukas

[Niko]

In dem Punkt verstehe ich das Verhalten von Delphi-Anwendungen ehrlich gesagt auch nicht ganz.
Trotzdem gibt es eine Lösung für dein Problem.
Verwende wie schon von Matze/Mirilin beschrieben eine Variable BeendenErlaubt in OnCloseQuery. Dann musst du nur noch dafür sorgen, dass sie auch beim Beenden durch Windows auf true gesetzt wird:

Delphi-Quellcode:

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.message = WM_CLOSE then
    BeendenErlaubt := true;
  Handled := false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := AppMessage;
end;

[Basic-Master]

ich benutz inmoment die tray-komponente von den jedi's und den code hier beim clicken auf das x (im onclose-event):

Delphi-Quellcode:

action := caHide;
jvtrayicon.Active := true;
jvtrayicon1.HideApplication;

... ...

[iddqd]

@Niko:

Danke für deine Mühen, geholfen hat es leider auch nicht. Das Programm bleibt stur wie ein Bock erhalten
Macht nichts ... ich machs jetzt eh' ganz anders !

[Niko]

Versteh ich eigentlich nicht; bei mir hat es so funktioniert (Delphi 7).