[Delphi] SpeedButton.Glyph i bitmapki ???

0

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.

0

Podaj link do tego FAQ bo znalazłeś błąd. Powinno być chyba tak:

var
I: Integer;
begin
for I := 0 to ComponentCount-1 do
if Components[i] is TLabel then
TLabel(Components[i]).Caption := 'Cześć';
end;

0

A może coś na temat drugiej części posta.
Pozdrawiam.

1 użytkowników online, w tym zalogowanych: 0, gości: 1