MessageDlg – запрос сохранения данных в Memo
Posted on 11.11.2015 | By Stanislav_Panteleev
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
var textModified:boolean; procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if textModified then case MessageDlg('Сохранить изменения в тексте',TMsgDlgType.mtConfirmation, [tMsgDlgBtn.mbYes]+[tMsgDlgBtn.mbNo]+[tMsgDlgBtn.mbCancel],-1) of mrYes: memo1.Lines.SaveToFile('saved.txt'); mrNO: CanClose:=true; mrCancel: CanClose:=true; end end; |