Скачать: CL | DM;

Выделить 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]

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

---

← →
trubin ©   (2008-01-20 17:40) [7]

> and (i < OrgCheckListBox.Items.Count)


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c