Problem mit gedrückter Return-Taste

[bergamo34]

Hallo!

in der KeyPress-Ereignisroutine einer ComboBox wird die Funktion Insert aufgerufen.
Problem: wenn die Return-Taste gedrückt und nicht losgelassen wird, wird die Funktion mehrmals aufgerufen. Wie kann man erreichen, so dass die Funktion nur einmal aufgerufen wird, egal ob man die Return-Taste gedrückt hält oder mehrmals hintereinander schnell drückt.

Code:

procedure Tfrm_eingabe.cobxformatKeyPress(Sender: TObject;  var Key: Char);
begin
    if (Key = #13) and bCanInsert then
    begin
      try
        Insert;
      finally
        bInserting := False;
      end;
      Key := #0;
    end
end;

Mfg
Ali

[Markus K.]

Hallo bergamo34,
man könnte dazu eine Variable vom Typ Boolean verwenden. Sobald die Taste das erste mal gedrückt wurde erhält die Variable den Wert True. Dann muss vor dem erneuten Aufrufen der Funktion geprüft werden, welchen Wert die Variable hat. Hat die Variable den Wert False, wird die Funktion ausgeführt, wenn sie den Wert True hat, wird sich nicht erneut ausgeführt.

Tschüß Markus