Hi Trouble_Maker,
ich hatte das Problem auch mal gehabt hatte es dann so gelöst.
Delphi-Quellcode:
procedure TFHaupt.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=1 to CBSchriftarten.Items.Count do
begin
if CBSchriftarten.Items.Strings[i]='..'
then CBSchriftarten.ItemIndex:=i;
end;
end;
Tschüß Markus