TcxCombobox - OnEnter (mit Mouse) SelectAll fkt nicht

[heri]

Ich habe eine TCombobox, wenn ich diese mit der Maus anklicke ist der ganze Textinhalt markiert
-> that's ok!

but:

Ich habe noch eine TcxCombobox (von DevExpress), wenn ich diese mit der Maus anklicke ist leider NICHT der ganze Textinhalt markiert
-> that's NOT ok!

PS: und selbst wenn ich im OnEnter noch ein SelectAll hinzuprogge nützt's nichts

weiss jemand Rat?

ausser die TcxCombobox gegen eine TCombobox auszutauschen

[heri]

Never forget the InnerControl by DevExpress!
deshalb in OnEnter:
PostMessage( cxComboBox1.InnerControl.Handle, EM_SETSEL, 0, -1);


der ganze Code lautet dann:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin

  OldProgressWndProc := cxComboBox1.InnerControl.WindowProc; // alte merken
  cxComboBox1.InnerControl.WindowProc := ProgressWndProc;  // wndproc umbiegen

end;


procedure TForm1.FormDestroy(Sender: TObject);
begin

  cxComboBox1.InnerControl.WindowProc := OldProgressWndProc;

end;

procedure TForm1.ProgressWndProc(var Msg: TMessage);
begin

  OldProgressWndProc (Msg);

  if Msg.Msg=514 then
     PostMessage( cxComboBox1.InnerControl.Handle, EM_SETSEL, 0, -1);

end;

naja - das ist bestimmt kein Highlite - aber es funktioniert einigermassen!
und falls jemand was besseres hat, wäre ich froh darum