C'è qualcuno che mi sa dire perchè mi capita questo...
il codice sotto riportato apre una finestra confirm al click del menu esci:
suppongo che l'errore sia negli else if, uso delphi 2007. Grazie

se premo salva va bene l'operazione se premo No mi prima di chiudere il file mi propone due volte la finestra confirm se premo annulla me la propone tre volte. Cè qulcuno che mi sa aiutare?

procedure TFMain.esci1Click(Sender: TObject);
begin
if
messagedlg('salvare le modifiche apportate al file?',
mtConfirmation,[mbYes,mbNo,mbCancel],0) = mrYes
then
begin
if (Sd.FileName='') then
begin
Sd.Execute;
end
else
if (statusbar1.Panels[0].Text= 'untitled.txt')
or (statusbar1.Panels[0].Text= 'untitled.php')
or (statusbar1.Panels[0].Text= 'untitled.css')
or (statusbar1.Panels[0].Text= 'untitled.html')
then
begin
Sd.Execute;
richedit1.Lines.SaveToFile(Sd.FileName);
end
else
begin
richedit1.Lines.SaveToFile(Sd.FileName)
end
end

else if
messagedlg('Salvare le modifiche apportate al file?',mtConfirmation,
[mbYes,mbNo,mbCancel],0) = mrNo
then
begin
FMain.Close
end
else if messagedlg('Salvare le modifiche apportate al file?',
mtConfirmation,[mbYes,mbNo,mbCancel],0) = mrCancel
then
begin
end
end;