Witam !
Znalazłem w FAQ
"Jak odwołać się jednocześnie do wszystkich komponentów ?"
var
I : Integer;
begin
for I:=0 to componentcount do
if components[i] is TLabel then
TPanel(components[i]).Caption := 'Cześć';
end;
Powyższy kod kompiluje się poprawnie, ale przy działaniu
wywala się - dlaczego ? Mam Delphi 7 PE.
Może jeszcze coś - Jak losować bitmapki do SpeedButton.Glyph.
Mam np. 50 przycisków i 25 bitmapek, chciałbym wylosować
bitmapki na przyciskach tak, aby każda wpadała 2 razy.
Taka prosta gierka w odnajdywanie 2 takich samych obrazków.
Pozdrawiam.