| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Выделить CheckListBox [D7, XP]

SveTT ©   (2008-01-20 16:05:00) 

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

Подскажите пожалуйста, как при открытии формы в списке 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 17:40:00) [1]

> and (i < OrgCheckListBox.Items.Count)


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

---

SveTTT   (2008-01-20 17:37:00) [2]

И вам trubin ©, огромное спасибо за совет и пример!

---

SveTTT   (2008-01-20 17:34:00) [3]

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

Вот итог (может кому пригодиться):

ORGCheckListBox.ItemIndex := ORGCheckListBox.Items.IndexOf(DmFrm.RQuery.FieldByName('IN').AsString);
  if ORGCheckListBox.ItemIndex>=0 then ORGCheckListBox.Checked[ORGCheckListBox.ItemIndex]:=True;



---

trubin   (2008-01-20 17:31:00) [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;
 

---

{RASkov}   (2008-01-20 17:26:00) [5]

> [2] SveTTT   (20.01.08 17:12)

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

---

SveTTT   (2008-01-20 17:12:00) [6]

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

> Можно так:


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

---

trubin   (2008-01-20 16:29:00) [7]

Можно так:

var
 i: Integer;

...

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

---

Наверх