Вкладка RX Controls. Компонент TFilenameEdit

   
На этом шаге мы рассмотрим компонент TFilenameEdit.

   
Компонент TFilenameEdit (наследник TComboEdit)
представляет собой строку редактирования для ввода имен файлов. Имеет кнопку,
нажатие на которую приводит к открытию модального диалога выбора имени
(открытия) файла (используется стандартный диалог открытия файла
TOpenDialog).

   
Если пользователь нажмет кнопку OK в диалоге выбора имени
файла, выбранное имя файла будет занесено в строку редактирования. Пользователь
имеет доступ к выбранному имени файла как к свойству Text
компонента TFilenameEdit.

   
Внешний вид компонента (рис. 1):


Рис.1. Компонент TFilenameEdit

   
Рассмотрим свойства данного компонента :

Таблица 1. Свойства компонента TFilenameEdit

Свойство Описание
property DirectInput: Boolean; Свойство отвечает за разрешение (или запрет) прямого ввода данных в строку редактирования компоненты TComboEdit (или унаследованных от нее компонент).
DirectInput = False - прямой ввод данных в строку запрещен, и пользователь должен использовать кнопку для вызова диалога для внесения изменений в данные компоненты.
property ButtonWidth: Integer; Ширину кнопки, являющейся составной частью TFilenameEdit. Если это свойство имеет значение 0, то кнопка не показывается и событие OnButtonClick не вызывается (несмотря на значение свойства ClickKey).
property ClickKey: TShortCut; Свойство задает "горячую" клавишу или комбинацию клавиш для данного компонента, при нажатии которых
будет автоматически открываться модальный диалог выбора имени файла.
property DialogKind: TFileDialogKind; Определяет вид модального диалога выбора имени файла:

  • dkOpen – отображается стандартное диалоговое окно для открытия файла (TOpenDialog);
  • dkOpenPicture - отображается диалоговое окно для открытия рисунка (TOpenPictureDialog);
  • dkSave - отображается стандартное диалоговое окно для сохранения файла (TSaveDialog);
  • dkSavePicture- отображается диалоговое окно для сохранения рисунка (TSavePictureDialog);
property DialogOptions: TOpenOptions; Позволяет изменять внешний вид диалогового окна:

  • ofShowHelp – добавляет кнопку Help (помощь);
  • ofOldStyleDialog - стандартное окно TOpenDialog;

и т.д.

property Filter: TStringList; Свойство задает условия фильтрации данных в виде списка строк, представляющего собой набор логических выражений( Определяет список файлов, которые будут отображаться в диалоговом окне).
property GlyphKind: TGlyphKind; Свойство позволяет указать, что кнопка имеет предопределенное изображение, задаваемое типом TGlyphKind:

  • gkCustom – цветная кнопка;
  • gkDefault – черно-белая кнопка;
  • gkDropDown -;
  • gkEllipsis -;

   
Приведем пример: создадим приложение, которое позволит заполнять компонент TTextListBox , добавляя каждый раз в новую строку имя выбранного в компоненте TFilenameEdit файла.

   
Поместим на форму компоненты TextListBox1, FilenameEdit1, RxSpeedButton1 и RxSpeedButton2 (рис.2).


Рис.2. Форма с размещенными на ней компонентами TextListBox1 , FilenameEdit1, RxSpeedButton1 и RxSpeedButton2

   RxSpeedButton1 (“Добавить строку”) – это кнопка для добавления новой строки в список TextListBox1.

   RxSpeedButton2 (“Очистить список”) – это кнопка для удаления записей из списка.

   Свойству DirectInput компонента FilenameEdit1 придадим значение False,
чтобы запретить прямой ввод данных в строку. Для компонента TextListBox1:
TextListBox1.Items[0]:=' Выбор файла:' – строка будет служить заголовком списка.

   
Для компонента RxSpeedButton1 напишем обработчик события OnClick:

procedure TForm1.RxSpeedButton1Click(Sender: TObject);
begin
   TextListBox1.Items.Add(FilenameEdit1.Text);//функция добавления строки    
                                              //  в список
end;

   
Для компонента RxSpeedButton2 напишем обработчик события OnClick:

procedure TForm1.RxSpeedButton2Click(Sender: TObject);
begin
   TextListBox1.Clear;                            // удаляем содержимое списка
   FilenameEdit1.Clear;                           // и строки  редактирования  
   TextListBox1.Items.Add('     Выбор файла:');   // добавляем строку заголовок
   Showmessage('Данные удалены!'); 
end;

Работа программы показана на рис.3(а-г).


Рис.3а. Диалоговое окно компонента FilenameEdit1


Рис.3б. Добавлена строка в список TextListBox1


Рис.3в. Добавлена вторая строка в список TextListBox1


Рис.3г. Очистка списка

   
Текст этого примера можно взять здесь.

   
На следующем шаге мы рассмотрим компонент TDirectoryEdit.



Вы можете оставить комментарий, или Трекбэк с вашего сайта.

Оставить комментарий