کلیک روی یکی از نمونه های دی بی گریدبطوریکه وارد یه ادیت بشه.......؟؟

[tik_tak]

سلام
با این کد دی بی گرید نشون میده هر حرفی رو که مطابق اون چیزی یه که در ادیت مینویسی:::::
مثلا اگه بنویسیم s تمام اونایی که با sشروع میشن و نشون میده ::::


procedure TForm1.Button1Click(Sender: TObject);
Var
S : String ;
begin
S := 'Select * From Table1 Where Name Like '+QuotedStr(Trim(Edite1.Text)+'%') ;
DataModule2.ADOQuery1.Active := False;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add(S);
DataModule2.ADOQuery1.Active := True;
end;


حالا اگه من بخوام رو این لیست اسامی مشابه که در دی بی گرید هست کلیک کنم
واون نمونه وارد یک ادیت بشه کدش چه طوری نوشته میشه؟
ممنونم پیشاپیش

[rmb_ali]

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
edit1.Text:= dbgrid1.Fields[2].AsString;
end;

[rmb_ali]

در oncellclick این کد رو هم میتونی بنویسی
edit1.Text:=column.Field.AsString;

[tik_tak]

سلام
ممنونم ازت rmb-ali
یه سوال دیگه اگربخوام با کلیک رویه همین دی بی گریدی که صحبتش بود
3 تا از فیلداش فیلد 2 فیلد3 فیلد 4 ش در فیلد 2 و 3 و 5 دی بی گرید دیگری که
خودش وصله به یه جدول دیگه بره چی طوریه؟

[rmb_ali]

اینجا دیگه به dbgrid کاری نباید داشته باشید و میتونید از روی جداولتون اینکارو بکنید مثلا اگر dbgrid اولتون به adotable1 و dbgrid دوم به adotable2 متصل هستند وقتی که کلید تون خورد میتونید این رو تو onclick اون بنویسید :
adotable.2.edit
adotable2.fieldvalues['Name']:=adotable1.fieldvalues['Name1']
Adotable2.post
که هر چند تا فیلدی که بخواهید میتونید اضافه کنید