TCombobox Text deselektieren nach SetFocus

[TurboMagic]

Gegeben ist eine VCL Form mit u.a. einer TComboBox, Stil csDropDown, drauf.
Klicke ich einen bestimmten Button wird Combo.SetFocus aufgerufen.
Nur ist der bereits eingegebene Text dann immer schon selektiert, was ich nicht will.

Ich habe schon versucht im OnEnter ClearSelection aufzurufen, SelLength auf 0 zu setzen
oder SelStart auf -1.

Hat alles nicht gefruchtet.
Gibt's dazu eine Lösung?

[Klaus01]

.. so tut es bei mir:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.SetFocus;
  ComboBox1.SelStart := 0;
  ComboBox1.SelLength := 0;
end;

Grüße
Klaus

[himitsu]

@Klaus: Er macht im Button nur SetFocus,
aber den Rest im OnEnter.


Tja, eventuell wird die Selection erst nach "deinem" Event gesetzt?

Statt sich an die OnXXX zu hängen, könnte man auch die DoXXX überschreiben.
So Manches wird nach dem VCL-Event gemacht, aber mit etwas Glück noch innerhalb der jeweiligen Windows-Message.

Oder einfach noch etwas warten.

Delphi-Quellcode:

TThread.ForceQueue(nil, procedure
  begin
    DeineComboBox.ClearSelection;
  end;

Alternativ mal die TComboBoxEx versuchen.
Bei einigen Dingen verhält Diese sich anders.

[KodeZwerg]

Zitat von himitsu:

Oder einfach noch etwas warten.

Delphi-Quellcode:

TThread.ForceQueue(nil, procedure
  begin
    DeineComboBox.ClearSelection;
  end;

Das würde den Inhalt der ComboBox vernichten.

Delphi-Quellcode:

// das um sicherzustellen das nichts blau ist nach einer auswahl durchs pop-up oder per scroll
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  PostMessage(ComboBox1.Handle, CB_SETEDITSEL, 0, MAKELPARAM($FFFF, $0000));
end;

// das damit nichts ausgewählt wird wenn die combobox den focus erhält
procedure TForm1.ComboBox1Enter(Sender: TObject);
begin
  PostMessage(ComboBox1.Handle, CB_SETEDITSEL, 0, MAKELPARAM($FFFF, $0000));
end;

[TurboMagic]

Zitat von Klaus01:

.. so tut es bei mir:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.SetFocus;
  ComboBox1.SelStart := 0;
  ComboBox1.SelLength := 0;
end;

Grüße
Klaus

Hallo Klaus,

danke, das funktioniert grundsätzlich.
Ich lasse sogar das SelStart weg und es geht auch. Man darf's halt
wohl nicht im OnEnter aufrufen.

Nur: bei mir ist der Cursor danach immer am Textanfang statt am Text Ende.
Kann man das noch irgendwie ändern? Hab' auf die Schnelle nix gefunden...

Grüße

TurboMagic

[KodeZwerg]

Zitat von TurboMagic:

Hab' auf die Schnelle nix gefunden...

Dann ist wohl meine Antwort unsichtbar für Dich.

[Uwe Raabe]

Zitat von TurboMagic:

Nur: bei mir ist der Cursor danach immer am Textanfang statt am Text Ende.
Kann man das noch irgendwie ändern? Hab' auf die Schnelle nix gefunden...

Bei SelLength = 0 gibt SelStart die Position vor.

[Delphi.Narium]

Geht das?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.SetFocus;
  ComboBox1.SelStart := Length(ComboBox1.Text) // evntuell + 1?;
  ComboBox1.SelLength := 0;
end;

[mytbo]

Zitat von KodeZwerg:

Dann ist wohl meine Antwort unsichtbar für Dich.

Warum er deine Antwort nicht berücksichtigt, weiß ich nicht. Noch ein Versuch:

Delphi-Quellcode:

ComboBox.SetFocus;
ComboBox.Perform(CB_SETEDITSEL, 0, 0 {oder -1, wenn der Cursor am Ende stehen soll});

Bis bald...
Thomas

[TurboMagic]

Zitat von Delphi.Narium:

Geht das?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.SetFocus;
  ComboBox1.SelStart := Length(ComboBox1.Text) // evntuell + 1?;
  ComboBox1.SelLength := 0;
end;

Bin leider erst jetzt wieder zu dem Thema gekommen aber: ja es funktioniert!
Danke!

Grüße
TurboMagic