Combobox Cursorposition ermitteln und Text einfügen

[kenuvis]

Hallo,

ich habe eine Combobox, kann man ja praktischer weise auch als Editfeld nehmen.
Nun will ich an der Position des Cursors einen Text einfügen lassen.
Wenn ich nun wie folgt mache (also wie bei normalen Editfeldern)
ComboBox1.SelText := 'test'; erscheint 'test' ganz vorn und nicht beim Cursor.

mfg kenu

[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

[kenuvis]

also, was ich gerade festgestellt habe.

Ich lasse den text einfügen, wenn man auf einen button drückt, d.h. ist SelStart = 0.
und genau da liegt mein problem.

so, ich hab erstmal eine alternative gefunden.
ich habe den button gegen ein panel ausgetauscht. sieht so ähnlich aus, aber kann kein focus erhalten, somit bleibt der focus bei der combobox und SelText funktioniert.