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 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 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);