ALT + F4 verhindern?

[Pseudemys Nelsoni]

hi,

wie kann ich das verhinden das sich mein prog per alt+f4 schliesst?

Auch in der Taskleiste das schliessen per rechtsklick sollte weg, danke

gruss silent^^

[Luckie]

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caNone;
end;

[Pseudemys Nelsoni]

hi luckie, danke für deine antwort. :)
Ich meinte aber eigentlich das es sich noch per button click (close) schliessen lassen können muss, nur per alt f4 und in der taskleiste nicht

geht das?

gruss silent

[mirage228]

du musst das ganze im OnCloseQuery behandeln

einfach CanClose := False;

und das Programm mit
Application.Terminate;

beenden

mfG
mirage228

[Pseudemys Nelsoni]

danke ;)

[Luckie]

Zitat:

Zitat von mirage228

einfach CanClose := False;
und das Programm mit
Application.Terminate;beenden

Aua. Hast du auch jedes mal von deinem Vater eins mit dem Holzhammer auf den Kopf bekommen, wenn du nicht schlafen konntest?.

Delphi-Quellcode:

var
  bAllowClose : Boolean = FALSE;   // global

{...}

procedure Form1.OnCloseQuery(....);
begin
  CanClose := bAllowClose;
end;

procedure Form1.ButtonClick(...);
begin
  bAllowClose := TRUE;
  Close;
end;

[Christian Seehase]

Moin Luckie,

was ist los?
Mirages Variante funktioniert doch...

Bei Application.Terminate werden doch OnCloseQuery und OnClose des Hauptformulares nicht ausgeführt. ;-)

[Luckie]

Eben, und das ist das gefährliche denke ich mir.

[Christian Seehase]

Moin Luckie,

Zitat:

Zitat von Luckie

Eben, und das ist das gefährliche denke ich mir.

stimmt, falls man die Eigenarten von Application.Terminate nicht kennt und somit nicht berücksichtigt.

BTW: Ich würd' dafür keine globale Variable, sondern ein private Feld im Formular verwenden (ggf. als Property veröffentlicht).

[Christian Seehase]

Moin Zusammen,

es gibt auch noch einen ganz sauberen Weg:
Man schaltet einfach den Menüpunkt ab:

Delphi-Quellcode:

// im OnFormCreate

// Schliessen im Systemmenü des Hauptformulares
  EnableMenuItem(GetSystemMenu(self.Handle,false),SC_CLOSE,MF_BYCOMMAND or MF_GRAYED);
// und auch für die Taskleiste
  EnableMenuItem(GetSystemMenu(Application.Handle,false),SC_CLOSE,MF_BYCOMMAND or MF_GRAYED);