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

sonst ne idee ?
gruss