kein Focus im 4 index

[freak4fun]

Huhu ,
nächste Idee.

Delphi-Quellcode:

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  with ComboBox1 do
    begin
      if (ItemIndex < 3) then
        Style := csOwnerDrawFixed
      else
        begin
          Style := csDropDown;
          Button1.SetFocus;
          SetFocus;
        end;
    end;
end;

Ist keine schöne Lösung, aber funktioniert.


MfG
freak