Alt + F4 blocken

[TheBluescreen]

Hi!

Ich habe das Problem, dass Delphi sagt "Incompatible types". Der code sieht so aus:

Code:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=ssAlt
   then begin
        if key=VK_F4 then begin
                          Form1.Create(Sender);
                          end;
        end;
end;

wenn ich nur VK_MENU mache, funktioniert das auch nicht

[Alexander]

Mach mal ORD(VK_F4) oder benutze die entsprechende Nummer...

[Flogo]

Zitat von TheBluescreen:

Code:

if key=ssAlt

müsste das nicht so

Code:

if ssAlt in Shift

aussehen?

[TheBluescreen]

ok...

danke Flogo! So funktionert es! Aber wie sag ich dem PC dass er nichts machen soll, wenn die Tasten gedrückt sind? FormCreate funktioniert nicht...

[MathiasSimmack]

Zitat von TheBluescreen:

Aber wie sag ich dem PC dass er nichts machen soll, wenn die Tasten gedrückt sind?

Warum sollte das den PC interessieren? Abgesehen ist dein Ansatz falsch. Ich halte zwar nicht viel davon, Alt+F4 zu blockieren (eben weil´s Standard ist, Programme so zu beenden, und weil Programme, die sich nicht daran halten, auf meiner Platte nicht alt werden), aber schau dir mal das "OnClose"-Ereignis genauer an.

Mehr sage ich dazu nicht.

[Stanlay Hanks]

Oder OnCloseQuery...
Es gibt auch noch eine Variable: CanClose.

Wenn du die auf False setzt, wird dein Prog nicht beenden, wenn es beendet werden soll.
Aber nicht vergessen, eine Möglichkeit einzubauen, das Prog wirklich beenden zu können.
Aber wie Matthias schon richtigt sagte: Solche Progs, die sich nicht an die grundlegenden Standards halten sind (zumindest auch bei mir) nicht beliebt. Außerdem beendet der Taskmanager eh jedes Prog

Man liest sich, Stanlay

[nailor]

Erstmal würde ich auch die CloseQuery empfehlen. Des Weiteren noch dies hier: Die key Variable im onKeyDown ist nicht readOnly!

[TheBluescreen]

Ich schreibe das Programm ja nur, um mich was in Delphi einzuarbeiten.. und da ist mir die Idee gekommen...

[nailor]

Häh? Willst du dich jetzt für irgendwas entschuldigen? Wofür?

[axelf98]

Bei mir klappt das so:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ssAlt in Shift then abort;
end;

Aber ich weiss nicht, ob das so elegant ist..

So gehts auch:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ssAlt in Shift then key:=ORD(#0);
end;