Taki problem mnie nurtuje.
Mam na formie 20 komponentów typu SpeedButton o przykładowych nazwach: SpeedButton1, 2... 20
i teraz zagwozdka:
- Kod: Zaznacz cały
int j = 1; //numer speedbutton
DataModule2->ObZ_ADOTUsterki->First();
while(!DataModule2->ObZ_ADOTUsterki->Eof)
{
if(DataModule2->ObZ_ADOTUsterki->FieldByName("wsk_wykonania")->AsString == "N")
{
SpeedButton(IntToStr(j))->Visible = true;
SpeedButton[j+10]->Visible = false;
}
else
{
SpeedButton[j]->Visible = false;
SpeedButton[j+10]->Visible = true;
}
DataModule2->ObZ_ADOTUsterki->Next();
j++;
}
Pogrzebałem trochę i wydanie z przykładowym:
- Kod: Zaznacz cały
TSpeedButton(FindComponent('TSpeedButton' + IntToStr(j)))->Visible = true;
też nie działa.
Gdzie leży problem ?