双击一表，提示输入表中字段 姓名，让指针指向所输入的那条姓名的字段。怎么实现

Question

双击一表就是双击显示在DBGRID

Answer 1

begin
  application.message('..','..',mb_ok+mb_Iconinformation);
  query1.RecNo := IntegerValue; // or Locate('','',[]);
end;

Answer 2

procedure TForm2.DBGrid2DblClick(Sender: TObject);
var content:string;
begin
 content:=inputbox('查询','请输入姓名','');
  if content='' then  exit;
接下来怎么写呢？.......
end;

Answer 3

procedure TForm2.DBGrid2DblClick(Sender: TObject);
var content:string;
begin
 content:=inputbox('查询','请输入姓名','');
  if content='' then  exit;
接下来怎么写呢？.......
end;

Answer 4

procedure TForm2.DBGrid2DblClick(Sender: TObject);
var content:string;
begin
 content:=inputbox('查询','请输入姓名','');
  if content='' then  exit else
  begin
    query1.RecNo := IntegerValue; // or Locate('','',[]);
    query1.fieldbyname('姓名').asstring := Content;
  end;

Answer 5

哇，不好意思，上边少了两个字；
procedure TForm2.DBGrid2DblClick(Sender: TObject);
var content:string;
begin
 content:=inputbox('查询','请输入姓名','');
  if content='' then  exit else
  begin
    query1.edit;
    query1.RecNo := IntegerValue; // or Locate('','',[]);
    query1.fieldbyname('姓名').asstring := Content;
    qeury1.post;  
  end;
是不是这个意思？

Answer 6

procedure TForm2.DBGrid2DblClick(Sender: TObject);
var content:string;
begin
 content:=inputbox('查询','请输入姓名','');
  if content='' then  exit;
 if not
 DBGrid2.Datasource.dataSet.Locate(姓名字段名字，content,[])
then showmessage('没有找到您要找的数据');
.......
end;

Answer 7

Var content:string;
begin
content:=inputbox('查询','请输入名称','');
 with dm.Table1 do
 locate('mc',content,[]);
end;