Карта сайтаСсылкиКонтакты

Создаем текстовый редактор в Delphi - Окно О программе...

PDF Печать
Статьи
Индекс материала
Создаем текстовый редактор в Delphi
Добавление меню и панели инструментов
Добавление стандартный действий
Добавление меню в приложение
Добавляем Панель инструментов
Создание справки
Окно О программе...
Все страницы

Создание окна О Программе…

Многие приложения содержат диалоговые окна О Программе..., которые отображают информацию о продукте, такую, как название программы, версия, логотип, может включать в себя лицензионное соглашение, авторские права и т.п. Мы уже создали пункт меню О Программе. Чтобы создать диалоговое окно, нужно выполнить следующее: В Delphi выберите File -> New -> Other... Откроется окно New Items, на вкладке Forms выберите About Box.

Окно выбора формы About

Будет создана новая форма О Программе.... Измените ее по своему усмотрению:

Измененное окно О Программе...

Сохраните форму как About.pas. В раздел uses модуля Unit1 добавьте About.

В Action List дважды щелкните на пункте HelpAbout для того, чтобы создать событие для меню и запишите следующее:


procedure TForm1.HelpAboutExecute(Sender: TObject);
begin
  AboutBox.ShowModal;
end;

Форма О Программе будет отображаться модально, это значит, что пока Вы не закроетеthumbtd p alt=h3img class= эту форму, Вы не сможете работать с редактором.

И еще, в событии формы OnCreate нужно инициализировать переменные и настройки:


procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.HelpFile := ExtractFilePath(Application.ExeName) + 'Help.hlp';
  FileName := 'Untitled.txt';
  StatusBar1.Panels[0].Text := FileName;
  RichEdit1.Clear;
end;

Сохраните проект.

Все! Текстовый редактор готов. Нажимайте клавишу F9, чтобы скомпилировать и запустить проект.




 

Комментарии   

 
0 #1 Molier 17.02.2016 18:36
Но можно и записать в коде, например:
StatusBar1.SimpleText:= ‘untitled.txt’

а как именно и где что то не получается (и в конце наверное ставится ; да?)
Цитировать
 
 
+1 #2 Serge 19.02.2016 12:19
например, сразу после создания файла.
Цитировать
 
 
+1 #3 Saundra 16.05.2017 02:58
Hello i am kavin, its my first occasion to commenting anywhere, when i read this article i thought i could also make comment
due to this good paragraph.
Цитировать
 

Добавить комментарий


Защитный код
Обновить