Alt F4 sperren

[f4r]

Kann man die Tastenkombi Alt F4 und Esc sperren ?

gruss

[faux]

Systemweit oder in deinem Programm?
Etwas mehr Details... ;)

Grüße
Faux

[Nils_13]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure WMSysCommand(var Message: TWMSysCommand);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure AppMessage(var Msg: TMSG; var HAndled: Boolean);
  end;

// ...

// Das hier ist unwichtig, ist eine andere Sache. Nur dazu da um spätere Fragen vom Tisch zu räumen.
procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  if Message.CmdType and $FFF0 = SC_MINIMIZE then
    Hide
  else
    inherited;
end;

procedure TForm1.AppMessage(var Msg: TMSG; var Handled: Boolean);
begin
  // let your application handle all messages initially
  Handled := False;
  case Msg.Message of
    WM_SYSKEYDOWN:
      if Msg.wParam = VK_F4 then
        Handled := True; // don't allow ALT-F4
  end;
end;

[ManuMF]

Einfach

Delphi-Quellcode:

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

Gruß,
ManuMF

[faux]

Zitat:

Zitat von ManuMF

Einfach

Delphi-Quellcode:

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

Gruß,
ManuMF

Deswegen fragte ich, ob Systemweit, oder nur im Programm. ;)

Grüße
Faux

[ManuMF]

Ich habe mal "für das Programm" vorausgesetzt ;-)

[f4r]

ja soll nur im proggie gelten
beim programm werden mehrer forms mit "form.show;" maximiert geöffnet und diesolln nicht mit alt f4 zu schließen sein sondern nur über dielabels

probs gleich ma uas

danke scho ma

[faux]

Zitat:

Zitat von f4r

ja soll nur im proggie gelten
beim programm werden mehrer forms mit "form.show;" maximiert geöffnet und diesolln nicht mit alt f4 zu schließen sein sondern nur über dielabels

Dann mach so:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
  if not (sender is TLabel)
    Action := caNone; 
end;

[f4r]

tja gehen tut es scho nur sind jetzt die labels zum schließen der einzelnen forms auch aus funktion :(
sind mit einem close; ereignis bestückt (labels) kennst de da n ussweg ?
gruss
f4r


p.s.: gott segne den taskmanager

[f4r]

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

sonst ne idee ?
gruss

[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