홍성락님 답변 감사드립니다.
답변 주신대로 자료실의 샘플을 가지고 해서 스트링그리드의 셀을 선택해서 콤보박스가 나오는 것까지
했는데, 콤보박스의 목록을 선택시 콤보박스가 사라지고, 선택한 내용을 셀에 넣고 싶은데
방법을 모르겠내요.
*** 소스 ***
procedure TForm1.test_gridClick(Sender: TObject);
var
Rect: TRect;
begin
test_grid.Objects[1,test_grid.Row] := Tcombobox.Create(test_grid); //////
with Tcombobox(test_grid.objects[1,test_grid.Row]) do
begin
parent := test_grid; ////
Rect:=test_grid.cellrect(1,test_grid.Row);
if (Rect.Top<=0)then
Visible := False;
boundsrect := Rect;
width := test_grid.colwidths[2]; //CBpart_state.//
height := test_grid.rowheights[2];
Style := csDropDownList;
ClientHeight:=100;
//=====================================================================
items.add('첫번째 자료');
items.add('두번째 자료');
end;
test_grid.cells[1,test_grid.row] := Tcombobox(test_grid.objects[1 ,test_grid.Row]).Text
end;
test_grid.cells[1,test_grid.row] := Tcombobox(test_grid.objects[1 ,test_grid.Row]).Text
위의 코딩을 넣어서 할려고 하는데......