ButtonedEdit

  

Компонент Delphi ButtonedEdit является аналогом окна редактирования Edit с отличием – в том, что к правой или левой части можно прикрепить рисунок типа кнопки bitbtn. Наличие кнопки определяют свойства LeftButton и RightButton добавляющие с левой и с правой стороны кнопки с изображением соответственно. Остальные свойства идентичны свойствам компонента Edit.

Пример программы с компонентом buttonededit

Теперь рассмотрим пример с использованием этого компонента. Создаём новый проект, кидаем на форму нашего проекта компоненты MemoButtonedEdit и ImageList. Двойным щелчком по компоненту ImageList открываем форму для загрузки изображения для компонента ButtonedEdit и загружаем необходимый нам рисунок. После чего выбираем компонент ButtonedEdit и находим свойство Images и выбираем в нем компонент ImageList для загрузки изображения для нашей кнопки. Теперь остается в обработчике OnRightButtonClick, компонента ButtonedEdit, прописываем следующий код:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm10.ButtonedEdit1RightButtonClick(Sender: TObject);
var // Объявляем переменные
Find:string; // Искомая строка
i:integer; // Счетчик для цикла
begin
find:=ButtonedEdit1.Text; // Записываем в find текст из Edit
For i:=0 to Memo1.Lines.Count-1 do // Запускаем цикл поиска строки
If Pos(FIND, Memo1.Lines.Text)<>0
Then
Begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
Memo1.SelLength:=Length(FIND);
End;

Программа будет искать в компоненте Memo текст введенный в ButtonedEdit и если найдет его то выделит.