Возможно ли в DBGRID

[MSD]

Добрый день... Скажите пожалуйста возможно ли сделать в DBGrid автопоиск ну чтобы вводишь буквы а он автоматом искал по столбцу и не сворачивал таблицу как с фильтрацией, но без использования всяких дополнительных компонентов.... Если можно то как? Спасибо.

[Stilet]

Ну вообще по-моему он без "толкача" на такое не способен, но можно его немного подкрутить:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids;

type
  TDBGrid=class(DBGrids.TDBGrid)
  public
   searchStrings:string;
  end;


  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 with TDBGrid(sender) do begin
  if IsCharAlphaNumeric(key) then searchStrings:=searchStrings+key;
  DataSource.DataSet.Locate('name',searchStrings,[loPartialKey]);
 end;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
 DBGrid1.searchStrings:='';
end;

end.

Примитивно но по первым буквам строки найти может.

[MSD]

Сообщение от Stilet

Примитивно но по первым буквам строки найти может.

Спасибо, а как сделать чтоб он проходил дальше если допустим вариантов несколько, ну как поиск далее.... Спасибо