Aufruf über F9

[Grolle]

Ich möchte über die F9 Taste einen Beenden Dialog aufrufen.
Der will aber nicht. Es tut sich gar nix.
Hier der Code:

Code:

procedure TForm1.BitBtn4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var CanClose: Boolean;
begin
  if key = VK_F9 then
  begin
    if MessageDlg('    Program wirklich beenden?    ',
                mtConfirmation,
                [mbYes,mbNo],
                0)=mrNo then
    else
    close;
  end;
end;

Grolle

[mirage228]

Hi,

so wie ich das sehe hast du das keydown ereignis vom BitBtn genommen, du musst aber das vom Formular nehmen.

mfG
mirage228

[Grolle]

Habe ich jetzt gemacht. Tut sich aber immer noch nix.
Grolle

[Wuaegner]

Hi Grolle,

Code:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_F9 then
  begin
    if MessageDlg('    Program wirklich beenden?    ',
                mtConfirmation,
                [mbYes,mbNo],
                0)=mrNo
    then close;
  end;
end;

Also das funktioniert bei mir einwandfrei!

[LOMBI]

Hi Grolle,

habe Deinen Code geprüft. Bei mir funktioniert alles bestens!

Gruß
Lombi

[hibbert]

hast du auf der Form auch KeyPreview auf true gestellt ?

hibbert