выделить строку в DBGrid

[All517]

всем привет!
в edit записываю слово и хочу выделить соответствующую строку в dbgrid. Нашла только DBGrid1.SelectedRows.CurrentRowSele cted:=True; но он помечает нашедшие строки а надо простое выделение на подобии dgRowSelect.
заранее благодарю)

[dron-s]

на событии OnDrawColumnCell напиши следующее

var
  holdColor: TColor;
begin
  holdColor := dbgrideh1.Canvas.Brush.Color; {сохраняем оригинальный цвет}
  if dm.ISelContr.FieldByName('PER_NOMER_SVID').AsString = Edit1.text then
    begin
      dbgrideh1.Canvas.Font.Color := clBlack;
      dbgrideh1.Canvas.Brush.Color := clYellow;
      dbgrideh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      dbgrideh1.Canvas.Brush.Color := holdColor;
    end;

[mihali4]

Если я вас правильно понял (а я понял правильно ), то вам нужно всего лишь:

procedure TMyForm.Edit1Change(Sender: TObject);
begin
Table1.Locate('Name',Edit1.Text,[loCaseInsensitive,loPartialKey]);
end;

где Name - имя поля, по которому вы хотите найти введенное в Edit1 слово.
Поиск начинается сразу, еще до ввода всех букв.
Успехов!

[All517]

[QUOTE=mihali4;48431]

procedure TMyForm.Edit1Change(Sender: TObject);
begin
Table1.Locate('Name',Edit1.Text,[loCaseInsensitive,loPartialKey]);
end;

QUOTE]


находит, правильно, но мне б еще чтоб он выделил найденное поле

[mihali4]

находит, правильно, но мне б еще чтоб он выделил найденное поле

Нет ничего проще.
Включите в DBGrid опцию AlwaysShowSelection...
А вообще - поизучайте устройство компонентов на досуге. И не забывайте про хэлп. Его ведь не просто так писали...

[Joki]

Сообщение от dron-s

на событии OnDrawColumnCell напиши следующее

var
  holdColor: TColor;
begin
  holdColor := dbgrideh1.Canvas.Brush.Color; {сохраняем оригинальный цвет}
  if dm.ISelContr.FieldByName('PER_NOMER_SVID').AsString = Edit1.text then
    begin
      dbgrideh1.Canvas.Font.Color := clBlack;
      dbgrideh1.Canvas.Brush.Color := clYellow;
      dbgrideh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      dbgrideh1.Canvas.Brush.Color := holdColor;
    end;

Спасибо за код, мне он очень помог...