kein Focus im 4 index

[freak4fun]

Hallo ,
ich hab dein Problem nicht ganz verstanden, aber ich hoffe der Code hilft dir weiter.

Delphi-Quellcode:

procedure TForm1.ComboBox1Select(Sender: TObject);
var
  lItemIndex: Integer;
begin
  lItemIndex := ComboBox1.ItemIndex;
  if (lItemIndex < 3) then
    ComboBox1.Style := csOwnerDrawFixed
  else
    ComboBox1.Style := csDropDown;
  ComboBox1.Focused;
  ComboBox1.ItemIndex := lItemIndex;
  ComboBox1.SetFocus;
end;

MfG
freak