Combobox Tastatureingabe

[marabu]

Hallo,

versuche es so:

Delphi-Quellcode:

procedure TDemoForm.ComboBoxKeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
    #32: 
    if GetAsyncKeyState(VK_CONTROL) < 0 then 
    begin
      Key := #0;
      // ... 
    end;
  end;
end;

Grüße vom marabu