FindDialog [D7]
UMU © (2006-08-14 16:42:00)
Форма построена на базе таблицы БД Access. На ней расположены
DBEdit-ы и FindDialog.
Подскажите, пожайлуста, как можно использовать FindDialog,
чтобы он вел поиск в поле имеющем фокус?
UMU (2006-08-14 17:40:00) [1]
Искал подобное в поисковике, толком ничего не нашел, только
для memo поля:
procedure TFormI.FindDialoglFind(Sender: TObject);
var SelPos: Integer;
Begin
with TFindDialog(Sender) do
begin // Ищем
фрагмент в тексте
SelPos := Pos(FindText,
Memol-Lines.Text);
if SelPos > 0 then
begin // Фрагмент найден -
выделяем его
Memol.SelStart := SelPos - 1;
Memol.SelLength := Length(FindText);
end
else ShowMessage ('Текст "' + FindText +
'"не найден')
end;
End;
Подстроить под свой не выходит. 8(
Может кто знает? Помогите.
Наверх 
ЧАТ |
Орешник |
|
