沒有人會改一條語句嗎?? Edit3.Text :=dbgrid1.columns.Items[0];

Question

procedure TForm_money.DBGrid1ColEnter(Sender: TObject);
begin
edit1.text:=dbgrid1.Columns[0].Field.asstring;
end;
inherited;这句话好像不需要

Answer 1

to:rouyue(月儿)
我们很有缘呢，我的姓名中就有一个月字

Answer 2

我的問題解了,寫為
 Edit3.Text:= dbgrid1.Columns[0].Field.asstring;就可以了.但有新問題;
  下列事件對不同紀錄的同一個Column點擊,Edit3,Edit4值不變化.
我想是事件OnColEnter不適合,應該是OnRowEnter事件,但DBgrid中沒有
這一事件,怎麼辦??
procedure Tstaffform.DBGrid1ColEnter(Sender: TObject);
begin
  inherited;
    Edit3.Text:= dbgrid1.Columns[0].Field.asstring;
    Edit4.Text:= dbgrid1.Columns[1].Field.asstring;
end;