Combo Box کردن یکی از سلول های String Grid

[mmohsenifar]

با سلام خدمت دوستان من میخوام یکی از سلول های String Grid رو به شکل Combo Box در بیارم راهی برای اینکار هست؟

[ayub_coder]

فکر کنم سلول های StringGrid قابلیت این رو ندارن که بتونی توشون کنترل ها رو قرار بدی ولی می تونی یه کلکی بزنی


procedure TForm1.Button1Click(Sender: TObject);
var cbo : TComboBox;
Rect : TRect;
begin

cbo := TComboBox.Create(self);

cbo.parent := StringGrid1;

rect := StringGrid1.CellRect(1,1);

cbo.Left := rect.Left;

cbo.Top := rect.Top;

cbo.Width := rect.Width;

cbo.Height:= rect.Height;

cbo.Show;

end;

[Mask]

پک Tms همچین StringGrid داره.

[javad p]

یه نمونه براتون پیوست کردم