Форум: "Основная";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];

Вниз

Подскажите   Найти похожие ветки 

← →
jenbbond   (2002-05-27 15:00) [0]

Может быть кто подскажет как можно реализовать автоматический перебор
имеющихся BitBtnWithColor(их 20 штук) вместе с циклом. Т.е. как можно показать,
что номер кнопки есть переменная "х" BitBtnWithColor<x>.Color.
Что то вроде $r в перле.

MainDataModule.IBTablePlace.First;
for x:=1 to MainDataModule.IBTablePlace.RecordCount do begin
n:=MainDataModule.IBTablePlace.FieldByName("zanyto").AsInteger;
if n=0 then
BitBtnWithColorx.Color:=clBlue;
^^
if n=1 then
BitBtnWithColorx.Color:=clRed;
^^
MainDataModule.IBTablePlace.Next;
x:=x+1;
end;

---

← →
Song   (2002-05-27 15:04) [1]

FindComponent() ?

---

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

Форум: "Основная";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c