Hallo,
Ich habe es gerade mal ausprobiert, dein Code funktioniert soweit. Das
Select...
ist nicht nötig, es reicht das
ItemIndex := ...
.
Wenn ich den Code allerdings ein zweites Mal aufrufe wird zwar das Item in der Liste selektiert aber nicht mehr im Textteil der Komponente dargestellt.
Die Lösung ist, vor dem befüllen der Items den Itemindex auf -1 zu setzen.
Hier mal der Code der funktioniert:
Delphi-Quellcode:
procedure TForm20.InitDropDown;
var
DropDown: TAdvDetailDropDown;
i: Integer;
begin
DropDown := advdtldrpdwn1;
DropDown.ItemIndex := -1;
DropDown.Items.Clear;
for i := 0 to 20 - 1 do begin
with DropDown.Items.Add do begin
Caption := 'Item: ' + IntToStr(i)
end;
end;
DropDown.ItemIndex := 4;
end;
Ich habe hier das zur Zeit neuste Update des TMS Component Packs (V6.1.1.0) installiert.
Ciao,
Ralf