FormKeyDown wird zweimal ausgelöst

[Luckie]

Ich stehe vor einem Rätsel FormKeyDown zweimal ausgelöst, wenn ich die Taste einmal drücke:

Delphi-Quellcode:

procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  ShowMessage('OnKeyDown');
  if (Key = VK_DELETE) and (Assigned(FotoBook.CurrentPage)) (* and (ssCtrl in Shift) *) then
  begin
    if IsSelectionObject then
    begin
      FotoBook.RemoveSelObjects;
    end
    else
      FotoBook.RemoveLayer(FotoBook.CurrentPage.LayersCurrent);
  end;
end;

Es ist mir ein Rätsel. Ich habe diese Ereignisbehandlungsroutine ganz normal im Objektinspektor erstell. Und es hat auch schon mal funktioniert, nur seit einem mir unbekannten Zweitpunkt wird sie eben zweimal ausgelöst. Welche Gründe könnte es dafür geben?

Mit

Delphi-Quellcode:

Key := 0;

am Ende der R, aber beim zweiten mal passiert nichts mehr. Ist das normal, dass man den tastencode auf 0 setzen muss? Das habe ich bisher nie so gemacht.

[Geronimo]

Hallo Luckie,
wenn ein Keydown im Form mehrmals ausgeführt wird,
wenn man einmal eine Taste drückt, dann hätte ich nur
eine Erklärung:
Bei einer Kompo des Forms wird ein Keydown (vielleicht
durch deinen Code?) ausgelöst, welches bei KeyPreview = True
zuerst das Form bekommt.
Hilft schrittweises Ausführen in der IDE nicht?

Gruß
Geronimo

[Union]

Zitat:

Ist das normal, dass man den tastencode auf 0 setzen muss?

Ist zu empfehlen. Um ganz sicher zu gehen, sollte man noch folgendes einfügen:

Delphi-Quellcode:

var
   Msg : TMsg;
...
PeekMessage(Msg, 0, WM_CHAR, WM_CHAR, PM_REMOVE);

Das verhindert den unrühmlichen "BimBam" Effekt ;)

[TBx]

Hallo Luckie!

Wenn Du den Key nicht = 0 setzt, dann wird der Eventhandler von TWinControl weiter ausgeführt.
In der Methode TWinControl.DoKeyDown wird explizit abgeprüft, ob der Key = 0 ist. Wenn ja, dann wird über ein Exit die Methode beendet.

Hoffe, das hilft Dir ein Wenig weiter.

Gruß

Thomas

[Luckie]

Hm, OK. Dann muss man das wohl so machen. Aber ich meine, ich hätte das noch nie so gemacht, aber nun gut, dan mache ich es eben ab jetzt so.

@onlinekater: Ja, in die Sourcen, hätte ich mal reingucken sollen. :?a

[Chemiker]

Hallo Luckie,

ich hatte mal ein ähnliches Problem, dabei hatte ich vergessen ein dynamisch erzeugtes Form vom automatisch erzeugtes Form in ein verfügbares Form zu verlagern.

Bis bald Chemiker