Добро пожаловать на наш портал
На нашем сайте вы найдете множество статей на разные тематики, а так же сможете найти и скачать много интересного Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Наш опросСтатистикаОнлайн всего: 1 Гостей: 1 Пользователей: 0 |
Создание блокнота в 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. Блокнот готов
Скачать исходник
|
Друзья сайта |
