Chiudere tutti i form

[guest621]

Ciao a tutti, ho creato un programma che se clicco su un pulsante mi rende invisibile la form1 e rende visibile la form2, però quando esco dalla form2 cliccando sulla X, la form1 rimane sempre aperta, cioè, il processo è sempre attivo, come faccio a chiudere tutto il programma dalla form2? Grazie mille.

[Stilgar]

Oddio, per come la capisco, basta che metti un Halt(0).
Ma credo di non aver capito bene....

[Stilgar]

o  in alternativa Application.Terminate;

[guest621]

o  in alternativa Application.Terminate;

Grazie ho risolto con questo codice, scusa, ma sono agli inizi, grazie ancora per l'aiuto

[Stilgar]

Di nulla.

[guest621]

Mi collego qui, perchè creare una nuova discussione sarebbe uno spreco, comunque adesso che ho risolto però ho un'altro ptroblema xD. Ho creato un'altro form, quando clicco il pulsante sul form1, il form1 diventa invisibile e il form2 appare, poi metto uno Sleep(); di mezzo e dopo tot secondi il form2 diventa invisibile e appare il form3, ecco il punto è che se io metto:

Codice: [Seleziona]

Form2.Visible := True;
sleep(5000);
Form2.Visible := Flase;
Form3.Visible := True;

il form si vede, ma il contenuto no, dopo 5 secondi appare il contenuto, perchè? Grazie.

[Stilgar]

Credo sia solo un probleama di update della terza form.
Prova a mettere un Form3.Update per vedere se è quello il problema.

[guest621]

Credo sia solo un probleama di update della terza form.
Prova a mettere un Form3.Update per vedere se è quello il problema.

Grazie ha funzionato, però siccome io nella form2 ho una progressbar, se metto lo sleep(); anche la progressbar si ferma, non c'è un modo per far andare la progressbar con lo sleep();?

[Stilgar]

Hihi, no.
Con lo sleep no.
Devi usare un contatore ... di tick.
Mi spiego meglio:

Codice: [Seleziona]

startTick := GetTickCount;
while GetTickCount  - startTick < 5000 do;

in questo modo non fermi il processo.

[guest621]

Hihi, no.
Con lo sleep no.
Devi usare un contatore ... di tick.
Mi spiego meglio:

Funziona uguale allo sleep(); ferma anche lui il processo.

[Stilgar]

Nel ciclo while do devi mettere qualche cosa.
Ad esempio l'avanzamento della progressa bar ......

[guest621]

Nel ciclo while do devi mettere qualche cosa.
Ad esempio l'avanzamento della progressa bar ......

Ho messo dopo "do": ProgressBar1.Position := ProgressBar1.Position+1, ma mi dice che non riconosce ProgressBar1, allora siccome la progressbar è nel form2, ho messo nella Unit1: uses Unit2, ma continua a non riconoscere ProgressBar1.

[Stilgar]

Devi stare attento al namespace.
Non è Unit2 ma Form2 che devi usare.
Unit2 rende visibile Form2, ma non puoi accedere direttamente alle sue properties.
Devi dire al compilatore cosa vuoi usare. Form2.ProgressBar.

[guest621]

Devi stare attento al namespace.
Non è Unit2 ma Form2 che devi usare.
Unit2 rende visibile Form2, ma non puoi accedere direttamente alle sue properties.
Devi dire al compilatore cosa vuoi usare. Form2.ProgressBar.

Grazie mille! Se postavo sul forum in inglese come minimo la soluzione saltava fuori una settimana dopo (per essere buoni).