TEdit i DBGrid

Mam taki zamysl, ale nie wiem jak go zrealizowac!!.

Mam okienko Edit i DBGrid ktory wyswietla jakas tabele, podczas wpisywania teksty do Edit szukam w tabeli.

Jak zrobic aby focus pozostal w Edit , ale rownoczesnie kursor (gora dol) chodzi po DBGridzie???.

Nie wiem czy wszystko jasno opisale, ale mam nadzieje, iz Ktos to zrozumie to i pomoze jakis.

Nie wiem czy wszystko jasno opisale, ale mam nadzieje, iz Ktos to zrozumie to i pomoze jakis.

Ktos, to do ciebie :D

Po pierwsze: jeżeli szukasz rekordu w tabeli przy pomocy locate to
dbgrid sam ustawi sie na znalezionej pozycji.
Po drugie: przewijanie dbgrida przy wyszukiwaniu rekordu znacznie spowolniłoby cały proces zwłaszcza jeżeli w bazie będzie kilka tysięcy lub więcej rekordów.
Wniosek: szukaj rekordu i nie martw się o przewijanie dbgrida.

w palecie BDE jest taki komponent. Coś w rodzaju ComboBoxa nie jest może do tego ale kied odpowiednio do skonfigurować to spełnia świetnie to zadanie. Podczas woisywania w niego nazwy danego rekordu przewija tebele, sam miałem taki problem i to go rozwiązuje.

na razie.

Ps. Jeśli robisz coś z bazami danych to może wiesz jak programowo zmienić level w BDE Admiistrator?

W OnKeyDown Edita wpisz:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  IF Key = 40 Then // strzalka w dól
  Begin
     DM1.Table1.Next ;
     key :=0;
  End; 

  IF Key = 38 Then // strzalka do góry
  Begin
     DM1.Turz.Prior ;
     key :=0;
  End; 
End;

PS Do: wseia Kielce

jak programowo zmienić level w BDE Admiistrator?

procedure TForm1.Button1Click(Sender: TObject);
var
  parad: TStringList;
begin
  parad := TStringList.Create;
  try
   parad.Add('level=7')
   Session.ModifyDriver('Paradox',parad); // Dbase albo inne coś
   Session.SaveConfigFile ;
   Session.Close;
  finally
    parad.Free;
  end;
end;

Fenks

Dzięki!