finestra di attesa (splash screen)

[ffabio]

Volevo inserire una finestra (senza pilsanti ) quando faccio una lettura di dati o aspetto di caricare i dati per generare il report. La classica "attendere prego.."
Ho letto di usare lo splash screen e di aggiungerlo nel file lpr ?? qualcuno ne sa qualcosa di piu' ?
grazie

[xinyiman]

Mai usata, faccio una ricerca e ti dico!

[xinyiman]

Guarda, non ho trovato niente, mi sembra più un concetto che un oggetto. Comunque nel dubbio ti ho fatto un esempio io di come farei tale schermata!

Vedi allegato! Fammi sapere! Aprire una finestra in ShowModal permette di far si che fin tanto che tale finestra è aperta non puoi andare sulle altre finestre dello stesso programma.

[Loryea]

Non ho capito molto.

Per fare un programma in cui appare una nuova finestra e la scritta "attendere prego...", prova questo esempio:

Codice: [Seleziona]

Program Esempio;
Uses crt;

Begin
Windows(0,0,500,500);
Writeln('Attendere prego...');
Delay(5000);
Writeln('Fine esempio');
End.

Ma mi sembra troppo scontato da chiedere in un forum.
Sicuramente sarà qualcosa riguardante il Dlphi, di cui io so appena l'esistenza.
Quindi mi dispiace ma non posso darti altro aiuto. 

[Microges2000]

Provo a rispondere io.

Dunque per prima cosa creati una form come ti pare stile dialogo, senza menù di sistema, non ridimensianabile e possibilmente carina all'occhio dell'utente, tra le proprietà metti Position=poScreenCenter e FormStyle=fsStayOnTop. Crea una proprietà o una funzione che accetti due stringhe (titolo e testo da visualizzare) o solamente il testo se il titolo non ti serve.

Ora, sulla stessa unit crea due funzioni: la prima per visualizzare il messaggio e la seconda per eliminarlo, diciamo una cosa tipo:

Nota: Per l'esempio la form l'ho chiamata TFMessaggio

Function ShowMessage(Const Titolo, Testo : String) : TFMessaggio;
Var
  FMessaggio1 : TFMessaggio;
Begin
  FMessaggio1  := TFMessaggio.Create(Application);
  FMessaggio1.Titolo := Titolo;
  FMessaggio1.Messagggio := Testo;
  FMessaggio1.Show;
  FMessaggio1.Update;

  Result := FMessaggio1;
End;

Procedure DestroyMessage(Var Mess : TFMessaggio);
Begin
    Try
      Mess.Free;
    Except
    End;
End;

Quindi, ogni volta che vuoi far visualizzare un messaggio durante una serie di operazioni usa una cosa tipi:

Var
   Msg : TFMessagggio;
Begin
   Msg := ShowMessage('Attesa', 'Caricamento dati in corso. Attendere...');

   ..... qui' esegui la tua operazione .....

   DestroyMessage(Msg),
End;

Dato che un esempio è meglio di mille parole ti allego un progetto idiota con l'uso di un messagggio tipo quello descritto

Ciao,
David

[ffabio]

Grazie a tutti, grazie Microges2000 proprio quello che avevo in mente.

Scusate se faccio domande un po' banali ma mi sto avvicinando al linguaggio da poco .

l' esempio è stato molto utile.