Информатика. Программирование в Delphi
234
begin
If FontDialog1.Execute then
Memo1.Font:=FontDialog1.Font;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
if ColorDialog1.Execute then
Memo1.Color:=ColorDialog1.Color;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
ShowMessage('Программа разработана на кафедре "Автоматизация
Машиностроения АПИ НГТУ"');
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
res:integer;
begin
res:=MessageDlg('Сохранить файл '+fn+'???',
mtInformation,mbYesNoCancel,0);
if res=mrYes then
begin
if fn<>'' then
Memo1.Lines.SaveToFile(fn)
else
if SaveDialog1.Execute then
begin
fn:=SaveDialog1.FileName;
Memo1.Lines.SaveToFile(fn);
end
else
Action:=caNone;
end
else
if res=mrNo then
Action:=caFree
else
Action:=caNone;
end;
end.