Компонент Delphi ButtonedEdit является аналогом окна редактирования Edit с отличием – в том, что к правой или левой части можно прикрепить рисунок типа кнопки bitbtn. Наличие кнопки определяют свойства LeftButton и RightButton добавляющие с левой и с правой стороны кнопки с изображением соответственно. Остальные свойства идентичны свойствам компонента Edit.
Теперь рассмотрим пример с использованием этого компонента. Создаём новый проект, кидаем на форму нашего проекта компоненты Memo, ButtonedEdit и 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 и если найдет его то выделит.