Форум: "Основная";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];
Внизкак можно передать переменную? Найти похожие ветки
← →
jenbbond (2002-05-25 08:54) [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;
← →
MBo (2002-05-25 08:58) [1]ComponentCount, Components[i], is
или
ControlCount, Controls[i], is
← →
jenbbond (2002-05-25 09:20) [2]Я что-то не доконца понял.
Т.е. мне надо прописать BitBtnWithColorCount???
← →
MBo (2002-05-25 09:25) [3]for i:=0 to ComponentCount-1 do
if Components[i] is TBitBtnWithColor then
TBitBtnWithColor(Components[i]). ///делаешь, что нужно
← →
jenbbond (2002-05-25 09:31) [4]Классно. Спасибо!!!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c