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

Создаем текстовый редактор в Delphi - Добавляем Панель Инструментов

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

Добавляем Панель инструментов

Так как у нас уже есть действия в Action List, то мы можем добавить Панель инструментов и присвоить ей действия.

На Палитре компонентов вкладке Win32 дважды щелкните на компоненте TToolBar. Панель инструментов добавится на форму.

Установите его свойство Indent равным 4, а свойству ImagesImageList1. ShowHint установите в True.

Щелкните правой кнопкой на компоненте ToolBar и выберите пункте меню New Button. Добавится новая кнопка, присвойте ей свойство ActionFileNew. Затем FileOpen и FileSave. Затем вместо добавления кнопки, нажмите на меню Add Separator, чтобы добавить разделитель между кнопками. Далее идут кнопки со значениями Action: EditCopy1, EditCut1 и EditPaste1. Разделитель. Далее HelpContents, разделитель и FileExit.

Добавили компонент ToolBar

Пишем обработчики событий

До этого момента мы создавали приложение, не написав ни одной строчки кода. Теперь нужно заставить приложение выполнять команды.

Для начала давайте добавим глобальную переменную FileName в разделе public нашей формы.


public
  { Public declarations }
  FileName: string;

Создать

Теперь вернемся к форме. Выберите компонент ActionList1, дважды щелкните на нем, в Редакторе действий дважды щелкните на действии FileNew. Событие создано, нужно записать код.


procedure TForm1.FileNewExecute(Sender: TObject);
begin
  RichEdit1.Clear;
  FileName:= 'Untitled.txt';
  StatusBar1.Panels[0].Text:= FileName;
end;

Открыть

Для команды Открыть файл, нужно добавить компонент TOpenDialog на форму, он находится на вкладке Dialogs.

В Инспекторе объектов установите его свойство DefaultExt равным txt. Дважды щелкните на свойстве Filter для открытия диалогового окна установки фильтра файлов. Заполните, как на рисунке.

Добавляем фильтр файлов в TOpenDialog

В свойстве Title напишите Открыть файл.

В Редакторе действий дважды щелкните на FileOpen и запишите следующий код:


procedure TForm1.FileOpenExecute(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
    FileName:= OpenDialog1.FileName;
    StatusBar1.Panels[0].Text:= FileName;
  end;
end;

Сохранить

Чтобы создать обработчик Сохранить, дважды щелкните на пункте FileSave в Редакторе действий. Запишите следующий код:


procedure TForm1.FileSaveExecute(Sender: TObject);
begin
  if FileName = 'Untitled.txt' then
    FileSaveAsExecute(nil)
  else
    RichEdit1.Lines.SaveToFile(FileName);
end;

Этот код отображает диалоговое окно Сохранить как, если у файла еще нет имени и пользователь может задать ему имя.

Сохранить как

Теперь поместите компонент SaveDialog на форму. При вызове этого окна для сохранения файла, будет отображаться стандартное диалоговое окно сохранения файла Windows.

В Инспекторе объектов установите его свойство DefaultExt равным txt. Свойство Filter установите так же, как мы уже делали с командой Открыть.

В свойстве Title напишите Сохранить как.

В Редакторе списка действий дважды щелкните на пункте FileSaveAs. Запишите следующий код:


procedure TForm1.FileSaveAsExecute(Sender: TObject);
begin
  SaveDialog1.FileName:= FileName;
  SaveDialog1.InitialDir:= ExtractFilePath(FileName);
  if SaveDialog1.Execute then
  begin
    RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
    FileName:= SaveDialog1.FileName;
    StatusBar1.Panels[0].Text:= FileName;
  end;
end;

Выход

В Редакторе действий дважды щелкните на пункте FileExit и запишите следующий код:


procedure TForm1.FileExitExecute(Sender: TObject);
begin
  Close;
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.
Цитировать
 

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


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