[Delphi] Dynamiczne tworzenie grupy komponentów

0

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]

0

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]

0

Wielkie dzięki, całą sobotę będę sprawdzał.

0

Try this, and tell me is it works :)

Sprawdziłem i odpowiadam:
Działa nieźle , pomysł fajny ale warunkiem poprawności jest dodanie informacji o miejscu wyświetlenia np. parent:= self;
Jeszcze raz thx.

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