Thema: Delphi Alt + F4 blocken

Einzelnen Beitrag anzeigen

Benutzerbild von nailor
nailor

Registriert seit: 12. Dez 2002
Ort: Karlsruhe
1.989 Beiträge
 
#13

Re: Alt + F4 blocken

  Alt 18. Dez 2003, 12:39
Ich empfehle dir immer noch das onClose.
Den Mods empfehle ih den DoppelPost zu löschen

Und wenns unbedingt sein muss, mach:

Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (ssAlt in Shift) and (key = vk_f4) then key := #0;

oder:

if (ssAlt in Shift) then
  case key of
    vk_f4: key := #0;
  end;

oder:

if (ssAlt in Shift) then
  if (key = vk_f4) then
    key := 0;

end;
Michael N.
http://nailor.devzero.de/code/sharpmath/testing/ --- Tests, Feedback, Anregungen, ... aller Art sehr willkommen!
::: don't try so hard - it'll happen for a reason :::
  Mit Zitat antworten Zitat