Выделить CheckListBox

← →
SveTT (2008-01-20 16:05) [0]

Здравствуйте!

Подскажите пожалуйста, как при открытии формы в списке CheckListBox реализовать отметку значения = имени "IN" из этого списка.

типа
if tag=1 then begin if (DMFrm.RQuery.Active) AND (DMFrm.RQuery.RecordCount>0) then begin ORGCheckListBox .... := DmFrm.RQuery.FieldByName("IN").AsString; end; OrgCheckListBox.SetFocus; end;
Спасибо!

← →
trubin © (2008-01-20 16:29) [1]

Можно так:

var i: Integer; ... i:= OrgCheckListBox.Items.Add(DmFrm.RQuery.FieldByName("IN").AsString); OrgCheckListBox.ItemIndex:= i;

← →
SveTTT (2008-01-20 17:12) [2]

Спасибо
trubin ©, но

> Можно так:

Это добавляет значение из поля IN, а мне необходимо чтобы значение было выделено и отмечено (список позможных значений уже добавлен) ...

← →
{RASkov} © (2008-01-20 17:26) [3]

> [2] SveTTT (20.01.08 17:12)

Примерно так:
..ItemIndex:=...IndexOf(DmFrm.RQuery.FieldByName("IN").AsString); if ...ItemIndex>=0 then ...Checked[...ItemIndex]:=True;

← →
trubin © (2008-01-20 17:31) [4]

Тогда так:

var s: string; i: Integer; ... s:= DmFrm.RQuery.FieldByName("IN").AsString; i:= OrgCheckListBox.Items.IndexOf(s); if (i > -1) and (i < OrgCheckListBox.Items.Count) then begin OrgCheckListBox.ItemIndex:= i; OrgCheckListBox.Checked[i]:= True; end;

← →
SveTTT (2008-01-20 17:34) [5]

Спасибо {RASkov} ©!

Вот итог (может кому пригодиться):
ORGCheckListBox.ItemIndex := ORGCheckListBox.Items.IndexOf(DmFrm.RQuery.FieldByName("IN").AsString); if ORGCheckListBox.ItemIndex>=0 then ORGCheckListBox.Checked[ORGCheckListBox.ItemIndex]:=True;

← →
SveTTT (2008-01-20 17:37) [6]

> and (i < OrgCheckListBox.Items.Count)

лишнее... запарился :)

Выделить CheckListBox Найти похожие ветки