Создание блокнота в 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;
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;
begin
if savedialog1.Execute then memo1.Lines.SaveToFile(savedialog1.FileName);
end;
Кликаем по Мемо один раз и в функции Align Ставим alClient.
Блокнот готов
Скачать исходник
