Autor Téma: Klon formu  (Přečteno 556 krát)

(T)lama

  • Host
Klon formu
« kdy: 05-02-2006, 00:10:00 »
Mam formulář na kterým mam label. Lze tento form nějak naklonovat (třeba 5x) a každému z nich dát do labelu jiný text? Pokud ano, jak?

Drizbach

  • Host
Klon formu
« Odpověď #1 kdy: 05-02-2006, 01:20:59 »
No to zalezi na tom zda behem designu nebo v runtimu.

V Runtimu je to jednoduchsi proste ten formular vytvoris 5x(nebo X krat) s tim ze v nem zmenis jen ten Label. To vyvoreni se da udelat na mnoha mistech.

Jeste je otazne kdy chces aby se ty formulare vytvorily. Zda hned pri spusteni spolu s  vytvorinim hlavniho formulare nebo nekde v hlavnim ci jinem formulari.

Pokud za a) tak se pouzije toto: v souboru projektu (*.dpr)
// v tomto pripade bych f souboru deklaroval nekolik globalnich promennych mujform1 - x
Application.CreateForm(TMujForm, mujform);
mujform.MujLabel.Caption := 'Text';

Pokud za b) tak se pouzije toto:
// tady bych si ty formulare ulozil do nejakeho objektlistu
mujform := TMujForm.Create(Self);
mujform.MujLabel.Caption := 'Text';

JanFiala

  • Host
Klon formu
« Odpověď #2 kdy: 05-02-2006, 08:41:59 »
Muzes. Staci ty formulare za behu vytvorit:

Kód: [Vybrat]
for i := 1 to 5 do
  with TForm2.Create(Application) do
  begin
    Label1.Caption := 'Jsem form cislo ' + IntToStr(i);
    Show;
  end;

(T)lama

  • Host
Klon formu
« Odpověď #3 kdy: 05-02-2006, 13:20:59 »
2JanFiala: To je ono. Díky