Создание блокнота в Delphi 7.
Для блокнота понадобятся следующие
компоненты:
SaveDialog вкладка Dialogs
OpenDialog вкладка Dialogs
Memo вкладка Standard
2-е кнопки
Butoon вкладка Standard
Кидаем на форму Memo , SaveDialog , OpenDialog и
2 кнопки у одной Caption делаем "Открыть" а у второй кнопки "Сохранить"
В
кнопке открыть пишем:
if opendialog1.Execute then
memo1.Lines.LoadFromFile(opendialog1.FileName);
В итоге в кнопке открыть
должен получиться такой код:
procedure TForm1.Button2Click(Sender:
TObject);
begin
if opendialog1.Execute then memo1.Lines.LoadFromFile(opendialog1.FileName);
end;
В кнопке сохранить пишем:
if
savedialog1.Execute then memo1.Lines.SaveToFile(savedialog1.FileName);
В
итоге в кнопке сохранить должен получиться такой код:
procedure
TForm1.Button1Click(Sender: TObject);
begin
if savedialog1.Execute then
memo1.Lines.SaveToFile(savedialog1.FileName);
end;
Кликаем по Мемо
один раз и в функции Align Ставим alClient.
Блокнот готов
