|
Страница 41 из 59
Компонент TReplaceDialog TObject—>TPersistent—>TComponent->TCominonDialog-”TFindDialog-> ->TReplaceDialog Модуль DIALOGS Страница Палитры компонентов Dialogs Этот диалог отличается от предыдущего тем, что позволяет найденный текст заменить на другой, заданный свойством: (РЬ) property ReplaceText: string; При нажатии кнопок Replace или Replace All в диалоге возникает событие (Pb) property OnReplace: TNotifyEvent; При этом в множество Options добавляется одна из новых опций — fi-Replace или frReplaceAll. В обработчике этого события нужно предусмотреть поиск и замену текста. Использование стандартньк диалоговых окон иллюстрирует пример DEMOEDIT. Это простой однооконный редактор текста, который, однако, использует все семь компонентов-диалогов. Для поиска и замены в нем задействован модуль SEARCH, приведенный в одном из примеров фирмы Borland. Модуль можно найти в каталоге DELPHI\DEMOS\TEXTDEMO. |