Alt F4 sperren

[Matze]

Evtl. kannst du es auch über das OnCloseQuery Ereignis lösen und je nach Bedarf CanClose auf true bzw. false setzen.

[f4r]

so danke leute habs gelöst :

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

2.)
procedure TSchulForm.Label1Click(Sender: TObject);
begin
SchulForm.visible:=false;
MainForm.visible:=true;
end;


damit ist das form zwar net geschlossen aber nicht mehr sich bar und das vorigere sicht bar also ziel erreicht danke leute !!!
gruss

[Matze]

Nur interessehalber:
Lässt sich das Programm so beenden?

[faux]

Zitat:

Zitat von f4r

hmm geht net (zweites) geh jetzt auch davon aus dass du das "then" vergessen hast :D

sonst ne idee ?
gruss

Ja, sorry. Hab den ganzen Tag nur in C# programmiert, und da gibts kein then.. ;)

Wieso funktioniert mein Code nicht?
Was passiert / passiert nicht?

Grüße
Faux

[cruso]

Einfach:

Delphi-Quellcode:

//...
CanClose := False;
//...

Allerdings lässt es sich dann auch nicht mehr über Form1.close oder so beenden!

[dataspider]

Hi,
folgende Unit einfach ins Projekt aufnehmen:

Delphi-Quellcode:

unit KILL_AltF4; 
interface 
Uses 
  Classes, Windows, Forms; 
Var 
  FKeyHook : HHook; 
implementation 
function KeyboardHook(code: Integer; wParam: WPARAM; 
                      lParam: LPARAM): LRESULT; stdcall; 
Var 
  KeyboardState: TKeyboardState; 
begin 
  GetKeyboardState(KeyboardState); 
  if (KeyboardStateToShiftState(KeyboardState) = [ssAlt]) and (wParam = VK_F4) then 
    Result := 1 
  else 
    Result := CallNextHookEx(FKeyHook, code, wParam, lParam); 
end; 
initialization 
  FKeyHook := SetWindowsHookEx(WH_KEYBOARD, KeyboardHook, 0, GetCurrentThreadId); 
finalization 
  UnhookWindowsHookEx(FKeyHook); 
end.

Die Erweiterung um das ESC ist no problem...
Frank

[Luckie]

Wozu ein Hook? Es wurde doch schon drei mal gepostet, wie es am vernünftigsten zu lösen ist. :-?

[Angel4585]

Noch ne vernünftige Methode(?)

Einfach bei Labelklick ein Flag setzen und bei dem OnClose abfragen obs gesetzt ist oder nicht und dann entsprechend handeln :-D

[faux]

Zitat:

Zitat von Angel4585

Noch ne vernünftige Methode(?)

Einfach bei Labelklick ein Flag setzen und bei dem OnClose abfragen obs gesetzt ist oder nicht und dann entsprechend handeln :-D

Wieso nicht einfach den Sender behandeln? Dann fällt das Flag weg.

Grüße
Faux