КАТЕГОРИИ:
АстрономияБиологияГеографияДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРиторикаСоциологияСпортСтроительствоТехнологияФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Компонент Delphi FindDialog
Компонент Delphi FindDialogрасполагается на странице Dialogs Палитры компонентов. Он является стандартным диалогом поиска фрагмента текста. Его обычно применяют для реализации текстовых редакторов.
Искомый фрагмент текста находиться в свойстве FindText. Основные параметры поиска интуитивно понятны.
Рисунок 45 – Пример использования компонента FindDialog
Поместим на форму кнопку и напишем на ней - "Найти", компонент Memo и FindDialog. Напишем обработчик для кнопки:
FindDialog3.Execute;
Рисунок 46 – Задание обработчика свойства OnFind
Для диалога поиска создадим обработчик onFind:
procedure TForm3.FindDialog3Find(Sender: TObject);begin if pos(FindDialog1.FindText, memo1.Text)<>0 then begin with Memo1 do begin HideSelection := False; SelStart := pos(FindDialog3.FindText, Text)-1; SelLength := Length(FindDialog3.FindText); end; end else ShowMessage('Строка '+FindDialog3.FindText+' не найдена!');end;
Напишем какой либо текст в компоненте memo и нажмем кнопку "Найти". Введем в строку поиска слово. В начале которое есть в тексте, затем нажмем кнопку "Найти далее". Теперь напишем слово которого нет и увидим результат работы нашей программы.
Дата добавления: 2015-02-10; просмотров: 111; Мы поможем в написании вашей работы!; Нарушение авторских прав |