Dinamicko unistavanje Forme

Koristim D2007

Imam 3 Forme. Na prvoj formi imam panel i meni. U meniju imam sledece:

prikazi formu 2, prikazi formu 3, prikazi formu 1

Kada izaberem opciju prikazi formu 2, u okviru Panela mi se prikazuje Form2. Isto tako radi i za Form 3. (Panel je Parent za forme)


Pitanje:

Kada idem na opciju prikazi formu 1, zeleo bih da uradim Destroy svih formi sem forme 1 na kojoj je panel.

Kako?

Hvala

>


napravis jednu for petnlju i ispitujes tip forme...tj klasu forme,pa kad je
klasa TForm1,onda nju ne brises..
probaj pa javi kako ide...popodne ti mozda i posaljem kod...

Potpis

Don't worry be happy

A ko je owner tih formi?
Da li su automatski napravljene kada se startuje aplikacija ili ih ti
pravis pre prikazivanja?
Generalno, treba samo da pozoves form1.free i form2.free kada se
selektuje prva opcija u meniju.

Da li moze neki mali primer za ispitivanje klasa formi tipa

for i:=0 to ...-1
do
begin;
...
end;

Nista lakse:

1) Pogledaj u helpu klasu TScreen, tacnije globalni objekat Screen i propertije Screen.Forms i Screen.FormCount.
2) Pogledaj u helpu "is" ("If AnyForm is TMyForm").

Rajko

> --001636c5b84d90acd3046707da76
> Content-Type: text/html; charset=ISO-8859-1
> Content-Transfer-Encoding: quoted-printable

U čemu je štos kod odgovaranja preko mejla, da li ovaj dodatni deo mora da stoji ili ti grešiš u postupku?

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

>

mislim da moraju stajati dpoadatni redovi

Potpis

Don't worry be happy

Gledao sam help, ali imam problem, zato sto po help, treba da se radi countdown i kada zelim da uradim free, prijavi mi iNDEX OUT OF BOUNDS...

Da li moze neki primer kako da kazem da mi uradi Free svih formi sem Forme1

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Pokusao sam tako i pre, ali onda mi kod dela for i := Screen.FormCount - 1 prijavi

must be Local Variable

To znaci da ti varijabla i nije lokalna varijabla. Da bi mogao da je
koristis u loop petlji ona mora biti definisana
u var delu metoda u kojem pozivas for loop a ne neka globalna
varijabla. I ne mora da bude i moze bilo koje slovo...

procedure SomeClass.Method ()
var
i: integer
begin

for i ...
...

end;

Hvala Savkicu za primer i NemesisMMX za objasnjenje.

Uspeo sam i sa nekom kombinacijom Destroy, ali naravno da je ovo bolje resenje.

Sada mi funkcionise kako sam i zamislio.