MessageDlg – запрос сохранения данных в Memo

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;

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;

MessageDlg – запрос сохранения данных в Memo

MY PROJECTS

Recent Posts

Categories