안녕하세요~ 다름이 아니라 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입니다.
고수님들의 답변 기다릴께요~~
그 안에 이미 있는 스트링을 ItemIndex로 선택하셔야 합니다.
예) ink_maker.ItemIndex := ink_maker.Items.IndexOf('11111');