[DELPHI] Chiedere conferma di chiusura applicazione

[ganesha]

Se metto un TButton so come si fa:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if MessageDlg('Si vuole davvero chiudere l''applicazione?',mtConfirmation,
    [mbYes, mbNo], 0) = mrYes then
  begin
    if MessageDlg('Confermi?', mtInformation,[mbYes, mbNo], 0) = mrYes then Close;
  end;
end;

non so, invece, come si fa nel caso si prema il pulsante di chiusura situato sulla barra dell'intestazione.

In quel caso quale funzione (o procedura) viene invocata?

[ganesha]

Non so com'è ma riesco a trovare la soluzione solo dopo aver postato il problema in questo forum...

Si fa così (o almeno questo è un modo):

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=False;
  if MessageDlg('Si vuole davvero chiudere l''applicazione?',mtConfirmation,
    [mbYes, mbNo], 0) = mrYes then
  begin
    if MessageDlg('Confermi?', mtInformation,[mbYes, mbNo], 0) = mrYes then
      CanClose:=True;
  end;
end;

[ganesha]

Mi sono accorto che anche il metodo Close richiama la FormCloseQuery

Quindi la soluzione più idonea dovrebbe essere questa:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
end;


procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=False;
  if MessageDlg('Si vuole davvero chiudere l''applicazione?',mtConfirmation,
    [mbYes, mbNo], 0) = mrYes then
  begin
    if MessageDlg('Confermi?', mtInformation,[mbYes, mbNo], 0) = mrYes then
      CanClose:=True;
  end;
end;

Giusto Alka?

[bDaniele]

si è corretto.

se proprio vuoi, al posto di

    if MessageDlg('Confermi?', mtInformation,[mbYes, mbNo], 0) = mrYes then
      CanClose:=True;

puoi fare:

    CanClose := MessageDlg('Confermi?', mtInformation,[mbYes, mbNo], 0) = mrYes;

ma la sostanza non cambia.

[alka]

Originariamente inviato da ganesha
Non so com'è ma riesco a trovare la soluzione solo dopo aver postato il problema in questo forum...

Succedeva anche ad un altro utente... il problema è facilmente individuabile: si cercano le soluzioni solo dopo aver postato.

Confermo comunque la soluzione che hai trovato, anche se io in genere uso Application.MessageBox in quanto la funzione da te utilizzata si basa su una lingua predeterminata (inglese) e non dipendente dal sistema, a meno che questo comportamento non sia ciò che cerchi.

Ciao!

[ganesha]

Originariamente inviato da alka
Succedeva anche ad un altro utente... il problema è facilmente individuabile: si cercano le soluzioni solo dopo aver postato.

non è proprio così... spesso cerco per diversi giorni senza trovare una soluzione.
Poi il cercare di esporre in modo comprensibile il problema probabilmente mi riordina anche le idee e in qualche modo viene fuori la soluzione.

Grazie per le varianti