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 von f4r:

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

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

[faux]

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

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

Grüße
Faux