Подскажите [D6]
jenbbond © (2002-05-27 15:00:00)
Может быть кто подскажет как можно реализовать автоматический
перебор
имеющихся 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:00) [1]
FindComponent() ?
Наверх 
ЧАТ |
Орешник |
|
