Текущий архив: 2006.09.03;
Скачать: CL | DM;

Вниз

FindDialog   Найти похожие ветки 

← →
UMU ©   (2006-08-14 16:42) [0]

Форма построена на базе таблицы БД Access. На ней расположены DBEdit-ы и FindDialog.

Подскажите, пожайлуста, как можно использовать FindDialog, чтобы он вел поиск в поле имеющем фокус?

---

← →
UMU ©   (2006-08-14 17:40) [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(

Может кто знает? Помогите.

---

Страницы: 1 вся ветка

Текущий архив: 2006.09.03;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.06 c