On Key Down funktioniert nicht

[Popov]

Zitat von fox67:

Hat Bummi schon geschrieben

Nicht bemerkt.

Du suchst Schutz vor deinem Bruder? Hier mein altes Programm "Irrer Iwan". Und bedenke, mit Strg-Alt-Mausklick kommt du wieder raus.

Delphi-Quellcode:

//****************************************************************************//
//                                                                            //
//                               IRRER IWAN                                   //
//                                                                            //
//****************************************************************************//

procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderStyle := bsNone;
  FormStyle := fsStayOnTop;
  Width := 1;
  Height := 1;
  Timer1.Interval := 1;
  //und nicht vergessen, mit ALT+F4 kann man ein Programm beenden ;)
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Left := Mouse.CursorPos.X;
  Top := Mouse.CursorPos.Y;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  Key := #0;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  //mit STRG+ALT+linke-Maustaste kann man das Programm beenden
  if (ssCtrl in Shift) and (ssAlt in Shift) and (ssLeft in Shift) then Close;
end;

Es ist natürlich ein Juxprogramm, aber...