kilka form dynamicznie + procedury i komponenty

0

Załóżmy że mam w pliku jakąs liczbę niech ona wynosi 10 i przy uruchomieniu programu odczytuję sobie ją i tworze tylko okien child ile wynosi ta liczba a więc tworzymy w taki sposób

Formx := TFormx.Create(Self);  //...stwórz okno Child
Formx.Show; // wyświetl okno

, gdzie x to kolejna liczba z zakresu od 1 do liczby z pliku

wobec tego jesli napiszę tak

for x:=1 to n do
begin
Form[x] := TForm[x].Create(Self);  //...stwórz okno Child
Form[x].Show; // wyświetl okno
end;

bez dodawanie form z menu new -->form
czy to zadziała a jak nie to jak zrobić aby zadziałało.
Jeśli zadziała to jak przypisać procedury do tworzonej dynamicznie formy i jak dodać do nich komponenty
Sprawdziłbym sobie ale nie mam delphi w domu i nie wiem kiedy mi odda płytę. a muszę to wiedzieć.

0
Formx := TFormx.Create(Self);   //...stwórz okno Child
Formx.Show; // wyświetl okno

Co to ma niby byc?

Robisz sobie jakas forme, na neij co chcesz i ..

for q := 0 to 9 do begin
  Form := TForm2.Create(Self);
  Form.Show;
end;
0
Formx := TFormx.Create(Self);   //...stwórz okno Child
Formx.Show; // wyświetl okno

Co to ma niby byc?

Robisz sobie jakas forme, na neij co chcesz i ..

for q := 0 to 9 do begin
  Form := TForm2.Create(Self);
  Form.Show;
end;

ale ja bym chciał tych form, zrobić tyle ile wynosi liczba w pliku więc jeśli
<delphi>
Form := TForm2.Create(Self); dla q:=0
Form := TForm2.Create(Self); dla q:=1
Form := TForm2.Create(Self); dla q:=2
<delphi>

nie wystąpi pewein problem poniekąd wszystkie stworzone formy nazywały by się tak samo form
załóżmy że będzie ich 10 jak mam je stworzyć dynamicznie nie pisząc dla każdej cyfry pętli if g=1 then
if q=2 then itd

Robisz sobie jakas forme, na neij co chcesz i ..

cxzyli jednak muszę ją dodać z menu new---->form??

0

Uff o co ci biega? Jak chcesz, zeby sie inaczej nazywaly to zrob se

Name := 'to moja forma i moge wstawic tu nawet numerek - ' + IntToStr(q);

i poczytaj jakis kurs.

0

Uff o co ci biega? Jak chcesz, zeby sie inaczej nazywaly to zrob se

Name := 'to moja forma i moge wstawic tu nawet numerek - ' + IntToStr(q);

i poczytaj jakis kurs.

Tu chodzi o to że jak stworze dynamicznie forme tak jak podawałeś to każda bedzie miała nazwe form a jak ja mam wtedy odwołać sie do 10 z kolei stworzyć an niej listView i jeszcze je wydrukować?
Ale spox dostałem odpowiedź na gg

0

Zawsze przecież możesz zrobić dynamiczną tablicę formularzy i polecenie:

Form[x]:=TForm2.Create(self);
Form[x].OnPaint:=Procedura_taka_jak_typowa_OnPaint;
Form[x].Show;

i już zadziała.

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