Aufruf über F9

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