Q&A

  • dbgrid의 셀 클릭시 콤보박스에 보여주는 기능에관한 질문입니다.
안녕하세요~ 다름이 아니라 dbgrid에서 셀 클릭시에,
선택된 내용을 combobox및 edit에 보여주는 기능을 구현 방법에 대해서 문의드립니다.
edit에는 잘 보여지는데, 콤보박스에는 안보여지네요;;
혹시 콤보박스는 edit에 보여주는 기능이랑 다른가요??
혹시 다르다면 소스점 알려주시면 감사해요^^

아래부분은 디비그리드상에서 클릭시 콤보박스와, 에디트에 그려주는 소스입니다.

procedure TForm1.dbgird1CellClick(Column: TColumn);

begin
   query1.Close;
   query1.Open;
   ink_maker.Text :=  '';
   ink_name.Text :=     '';
   ink_nownum.Text  :=  '0';
   ink_user.Text    :=     '';
   ink_userdpt.Text :=    '';
   ink_takedate.Text:=    '';
   ink_takenum.Text :=    '0';


  with query5 do
  Begin

   ink_maker.Text :=  fieldByName('ink_maker').AsString;
   ink_name.Text :=     FieldByName('ink_name').AsString;
   ink_nownum.Text  :=  InttoStr(FieldByName('ink_nownum').AsInteger);
   ink_user.Text    :=     FieldByName('ink_user').AsString;
   ink_userdpt.Text :=    FieldByName('ink_userdpt').AsString;
   ink_takenum.Text:=    InttoStr(FieldByName('ink_takenum').AsInteger);
   ink_takedate.Text :=    FieldByName('ink_takedate').Asstring;

   end;
end;

참고로 combobox는 ink_maker, ink_name입니다.
고수님들의 답변 기다릴께요~~
2  COMMENTS
  • Profile
    홍성락 2009.09.29 01:42
    콤보박스에서 Style이 csDropDownList이나 csOwnerDrawFixed등이면 그 위에 Text로 바꾸지는 못하구요.
    그 안에 이미 있는 스트링을 ItemIndex로 선택하셔야 합니다.
    예) ink_maker.ItemIndex := ink_maker.Items.IndexOf('11111');
  • Profile
    델파이정복하자 2009.09.29 01:59
    아~그렇군요~ 이거가지고 몇시간을 끌었는데~ 정말정말 감사합니다!!!!