Скачать: CL | DM;

Поиск при вводе   Найти похожие ветки 

← →
Vygantas ©   (2002-08-26 12:04) [0]

Проблема такая:

Имею DBGrid в котором данные.
Хочу сделать так - я ввожу слово стоя в DBGrid"е, на вверх вываливаеться окно с вводиммым словом, тем временем идет афтоматический поиск.

Так как сделать афтоматический поиск?

---

← →
Leran2002 ©   (2002-08-26 12:12) [1]

Во как я когдато делал (в СтатусБар чем хуже):

procedure TMainFrm.RxDBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#8: begin
FindS:="";
StatusBar1.Panels[2].Text:="";
exit;
end;
#13: begin
ResumFrm.ShowModal;
exit;
end;
end;
FindS:=FindS+Key;
DM.MainTbl.Locate(RxDBGrid1.SelectedField.FieldName,FindS,[loCaseInsensitive, loPartialKey]);
StatusBar1.Panels[2].Text:="Поисковая строка: "+FindS;
end;

---

← →
billybons ©   (2002-08-26 13:26) [2]

а я так делал :

procedure TMain_frm.RxDBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
// если набор номера (численного значения)
if ((Ord(key)>=48) and (Ord(key)<=57)) then begin
edit1.Visible:=True;
edit1.SetFocus;
edit1.Text:=key;
edit1.SelStart:=1;
end;
// если набор текста
if (Ord(key)>=192) and (Ord(key)<=255) then begin
edit2.Visible:=True;
edit2.SetFocus;
edit2.Text:=key;
edit2.SelStart:=1;
end;
end;

procedure TMain_frm.Edit1Change(Sender: TObject);
begin
mphone_ds.IndexName:="Phone_";
mphone_ds.FindNearest([Edit4.Text]);
end;

procedure TMain_frm.Edit2Change(Sender: TObject);
begin
phone_ds.IndexName:="Naim_";
phone_ds.FindNearest([Edit2.Text]);
end;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c