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