안녕하세요.

물론 가능합니다. 아주 일반적으로 쓰고 있는 방식이기도 하구요.

특정셀을 선택하는 순간 컴보박스의 크기를 조정하고,

선택된 셀 바로 위로 콤보박스를 올려넣는 방식입니다.

아래는 볼랜드사의 QNA에서 퍼온 내용입니다.



How can I popup my own inplace editor (such as a combobox)

in a string grid cell?



Answer:

The following example demonstrates popping up a Combobox

as an inplace editor to a Stringrid component.



Example:



procedure TForm1.FormCreate(Sender: TObject);

begin

{The combobox height is not settable, so we will}

{instead size the grid to fit the combobox!}

StringGrid1.DefaultRowHeight := ComboBox1.Height;

{Hide the combobox}

ComboBox1.Visible := False;

end;



procedure TForm1.ComboBox1Change(Sender: TObject);

begin

{Get the ComboBox selection and place in the grid}

StringGrid1.Cells[StringGrid1.Col,

StringGrid1.Row] :=

ComboBox1.Items[ComboBox1.ItemIndex];

ComboBox1.Visible := False;

StringGrid1.SetFocus;

end;



procedure TForm1.ComboBox1Exit(Sender: TObject);

begin

{Get the ComboBox selection and place in the grid}

StringGrid1.Cells[StringGrid1.Col,

StringGrid1.Row] :=

ComboBox1.Items[ComboBox1.ItemIndex];

ComboBox1.Visible := False;

StringGrid1.SetFocus;

end;



procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col,

Row: Integer; var CanSelect: Boolean);

var

R: TRect;

begin

if ((Col = 3) AND

(Row <> 0)) then begin

{Size and position the combo box to fit the cell}

R := StringGrid1.CellRect(Col, Row);

R.Left := R.Left + StringGrid1.Left;

R.Right := R.Right + StringGrid1.Left;

R.Top := R.Top + StringGrid1.Top;

R.Bottom := R.Bottom + StringGrid1.Top;

ComboBox1.Left := R.Left + 1;

ComboBox1.Top := R.Top + 1;

ComboBox1.Width := (R.Right + 1) - R.Left;

ComboBox1.Height := (R.Bottom + 1) - R.Top;

{Show the combobox}

ComboBox1.Visible := True;

ComboBox1.SetFocus;

end;

CanSelect := True;

end;



남윤혁 wrote:

> 무슨 말이냐면요...

>

> 제가 StringGrid를 이용해서 값을 입력받을라구 합니다.

>

> 학교구분란에...

>

> "대학교", "고등학교", "중학교"

>

> 요렇게 세개의 값만 입력 할 수 있게

>

> 프로그램을 하고자 합니다.

>

> 이 입력란은 콤보박스 형태로 선택하게 하구요...

>

> 혹시 이런 것을 구현할 수 있을까요?

>

> 할 수 없다면

>

> 혹시 컴포넌트가 있을까요???

>

> T_____T

>

> 답변 부탁드립니다.

>

> 즐거운 하루 되시길....