Showmessage o simile

[Nicola]

Ciao a tutti, esiste un comando del tipo showmessage che non necessiti della conferma "ok";
in sostanza vorrei che al verificarsi di un evento mi comparisse un messaggio per qualche secondo,
e che lo stesso poi sparisse senza bisogno di utilizzare il mouse (come appunto showmessage);
grazie.

[Antonello]

non credo, prepara un normale form e ci metti un timer!

[xinyiman]

Prepari una form che poi apri modale poi metti una Sleep(numerosecondi); nell'evento OnShow e successivamente chiudi la form con Self.Close;

[Stilgar]

Ciao.
 Sleep(numerosecondi)
credo blocchi il thread principale.
Meglio un timer, come suggerito da Antonello.
All'onshow lo fai partire, quando "scade" chiudi tutto e stoppi il timer.

Altrimenti (solo per windows) ci sarebbe anche un'altra strada https://msdn.microsoft.com/en-us/library/windows/desktop/ms644901%28v=vs.85%29.aspx#creating_timer

Stilgar

[Nicola]

In effetti utilizzando Sleep, non gira correttamente, nel senso che la form non viene visualizzata; non credo dipenda da mio errore, in quanto se tolgo Sleep la form viene visualizzata.
Mentre con il Timer, da proprio ciò che cercavo.
Ho utilizzato questo codice, non so come fermare il timer, anche se funziona lo stesso:

Codice: [Seleziona]

procedure TForm2.Timer1Timer(Sender: TObject);
begin
   Self.Close;
end;  

[nomorelogic]

prima dello sleep prova

Codice: [Seleziona]

Application.ProcessMessages;

[Nicola]

Ho provato, ma il risultato è uguale;
avevo inserito nell'evento OnShow Applicatio.ProcessMessages; Sleep(1000);

[Legolas]

Prova così:

Codice: [Seleziona]

procedure TForm2.FormShow(Sender: TObject);
begin
  timer1.Enabled := true;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := false;
  form2.Close;
end;    

Sul form2 c'è un ttimer, con l'intervallo impostato al valore che vuoi (secondi * 1000); inoltre la proprietà visible è su false. Dal form1 mostri il form2 tramite form2.show (o form2.showmodal, form2.showontop, quello che preferisci)