Delphi - Form - Piero Tofy.it

Forum - Delphi - Form

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 17:33
Venerdì, 30/10/2009

Nel mio programma di posta elettronica quando invio una email vorrei che aprisse la Form2 dove c'è una progressbar in movimento, adesso io nel mio codice ho fatto in questo modo:

Codice sorgente - presumibilmente Delphi

begin
//Apri ProgressBar
with TForm2.Create(Self) do
try
  Show;
//Setup SMTP
     SMTP.Host := Server.Text;
.......
MessageBeep(20);
finally
free;
end;
end;
Il fatto è che il Form2 lo apre ma non si muove e scompare quando l'email è stata inviata, l'unica cosa buona.

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 17:18
Lunedì, 02/11/2009

Il programma per l'invio della posta mi sa che impegna troppe risorse visto che la progress bar non si muove, allora ho fatto in un altro modo ho creato una progress bar come programma separato, e lo faccio eseguire quando invio l'email in questo modo:

Codice sorgente - presumibilmente Delphi

procedure TForm1.SpedisciClick(Sender: TObject);
begin
//Avvio Status
     WinExec('Status.exe', SW_SHOWNORMAL);