Combobox Cursorposition ermitteln und Text einfügen

[marabu]

Hallo,

kommt darauf an, WANN du einfügst. Das hier funktioniert:

Delphi-Quellcode:

procedure TDemoForm.ComboBoxKeyPress(Sender: TObject; var Key: Char);
begin
  with Sender as TComboBox do
    if Key = 'd' then
    begin
      SelText := 'Delphi-PRAXiS';
      Key := #0;
    end;
end;

Grüße vom marabu