Ciao a tutti,
sto usando l'oggetto "TPopupNotifier".
Devo fare in modo che quando l'utente lo chiude cliccando sulla "X", esca un messaggio che gli chieda se veramente lo vuole chiudere ed il "TPopupNotifier" venga chiuso solo se l'utente clicca sul "Sì" di questo messaggio.
Questo è il codice che ho usato:
procedure TForm1.PopupNotifier1Close(Sender: TObject; var CloseAction: TCloseAction);
var Messaggio, Titolo:String;
Bottoni:LongInt;
MsgResult:Integer;
begin
//Spesso mi ritrovavo il popup chiuso, senza manco averlo visto ...
//Adesso, dovrebbe chiudere il popup se e solo se l'utente ha cliccato sul Sì
//nel messaggio qui sotto.
Titolo:='Conferma chiusura popup';
Messaggio:='Confermi di aver letto il messaggio nel popup, e di volerlo chiudere?';
Bottoni:=MB_YESNO + MB_ICONWARNING + MB_DEFBUTTON2;
MsgResult:=Application.MessageBox(PChar(Messaggio), PChar(Titolo), Bottoni);
if (MsgResult = IDYES) then begin
PopupNotifier1.Hide;
//Disabilito il timer del popup che riporta l'applicazione in primo piano
TimerPopup.Enabled:=False;
end else begin
CloseAction:=caNone;
end;
end;
Il messaggio esce correttamente, ma il problema è che, anche se esegue l'istruzione "CloseAction:=caNone;", il "TPopupNotifier" viene comunque chiuso.
Cosa sto sbagliando?
Grazie, Mario