dbgrid에서의 셀을 클릭하면 데이터를 다른 edit박스로 보내는 소스인데여,
아래로 내려가면서 클릭을 할때는 데이터가 잘 보여지는데 , 다시 처음 필드
를 클릭하면 내용이 뿌려지질 못합니다.

예를들어

가 1
나 2
다 3
라 4

라고 데이터가 있어 가 나 다 라 이렇게 클릭하면 데이터가 잘 뿌려지는데

라까지 클릭하고 다시 가를 클릭하면 가의 데이터가 뿌려지질 않아여

근데,, 다른 필드 즉, 1을 클릭하고 다시 가를 클릭하면 데이터가 보여지는데

이 방법을 해결할 수는 없을까요? 셀을 클릭하자 마자 바로 데이터를 뿌리도

록 말입니다,

그래서 아래의 소스로 dbgridcellclick 이벤트를 주었는데,,

데이터를 잘 못 뿌리더라구요,, 해결 방법 알려주시면 정말 감사하겠습니다.^^


procedure TFequip_insert.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
        Equ_num.Text                             := DBGRID1.Fields[0].Text;
        Combobox1_class_name.Text      := DBGRID1.Fields[1].Text;
        Combobox2_class_step1.Text      := DBGRID1.Fields[2].Text;
        Combobox3_class_step2.Text      := DBGRID1.Fields[3].Text;
        Edit6_unitcost.text                       := DBGRID1.Fields[4].text;
        Edit1_equ_rule.Text                     := DBGRID1.Fields[5].Text;
        combobox4_Dep_name.Text        := DBGRID1.Fields[6].Text;
        combobox25_person_name.Text  := DBGRID1.Fields[7].Text;
        combobox5_state_name.Text      := DBGRID1.Fields[8].Text;
        combobox6_build_name.Text      := DBGRID1.Fields[9].Text;
        combobox7_build_room.Text       := DBGRID1.Fields[10].Text;
        combobox8_nation_name.Text     := DBGRID1.Fields[11].Text;
        combobox9_company_made.Text:= DBGRID1.Fields[12].Text;
        combobox10_company_buy.Text := DBGRID1.Fields[13].Text;
        combobox11_company_repair.Text :=DBGRID1.Fields[14].Text;
        buydate.Text                                :=DBGRID1.Fields[15].Text;
        Edit4_repairdate.Text                     :=DBGRID1.Fields[16].Text;
        Combobox12_ruler_name.Text        :=DBGRID1.Fields[17].Text;
        Edit5_useyear.Text                       :=DBGRID1.Fields[18].Text;
        checkbox2.Checked                    :=DBGRID1.Fields[19].AsBoolean;
        notecolumn.Text                          :=DBGRID1.Fields[20].Text;
        equip_insert_image.Picture            :=DBGRID1.Fields[21].Picture;
end;