Jak utworzyć dynamicznie jeden np. button - wiadomo (jest zresztą w FAQ-u). Ale jak utworzyć dynaicznie grupę identycznych przycisków?
chodzi mi np o coś takiego:
Dla N=1 do K
utwórz PrzyciskN
Oczywiscie wartość K byłaby nie założoną stałą a parametrem podawanym w wywołaniu procedury.
Wymagałoby to użycia jako nazwy komponentu zmiennej .
Jak to ominąć? [???] [glowa]
var {globalne}
PrzyciskNr: array[1..100] of TButton;
I: Integer = 0;
ONCreate:
for I:=1 to 100 do
begin
PrzyciskNr[I] := TButton.Create(Self);
with PrzyciskNr[I] do
begin
Name := 'Przycisk_'+IntToStr(I);
Caption := 'Przycisk '+IntToStr(I);
Top := Random(Height);
Left := Random(Width);
Width := Random(120);
Height := Random(120);
end;
end;
Zeby odwolac sie do jakiegos z tych przyciskow to piszesz tak:
PrzyciskNr[31].Caption := 'Inny caption';
Try this, and tell me is it works :)
[browar] [cygaro]