Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: Nicola - Marzo 30, 2015, 10:31:43 am

Titolo: Showmessage o simile
Inserito da: Nicola - Marzo 30, 2015, 10:31:43 am

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.

Titolo: Re:Showmessage o simile
Inserito da: Antonello - Marzo 30, 2015, 11:45:29 am

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

Titolo: Re:Showmessage o simile
Inserito da: xinyiman - Marzo 30, 2015, 11:59:57 am

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

Titolo: Re:Showmessage o simile
Inserito da: Stilgar - Marzo 30, 2015, 09:08:02 pm

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

Titolo: Re:Showmessage o simile
Inserito da: Nicola - Marzo 30, 2015, 09:57:54 pm

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;  

Titolo: Re:Showmessage o simile
Inserito da: nomorelogic - Marzo 31, 2015, 09:57:38 am

prima dello sleep prova

Codice: [Seleziona]

Application.ProcessMessages;

Titolo: Re:Showmessage o simile
Inserito da: Nicola - Marzo 31, 2015, 09:59:19 am

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

Titolo: Re:Showmessage o simile
Inserito da: Legolas - Marzo 31, 2015, 11:46:49 am

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)