送分给大虾
sdj 2001-04-09 09:41:00 我有个自绘的TMyStringGrid控件,想在鼠标点击某个cell时,在cells上动态生成
一个TEdit,但是总是提示control''没有父窗口?
代码如下:function TMyStringGrid.SelectCell(ACol, ARow: Longint): Boolean;
var
R1:TRect;
E1:TEdit;
begin
inherited SelectCell(ACol, ARow);
R1:=cellrect(ACol,ARow);
E1:=TEdit.Create(self);
E1.Left:=R1.Left;
E1.Top:=R1.Top;
E1.Width:=R1.Right-R1.Left;
E1.Height:=R1.Bottom-R1.Top;
E1.Visible:=true;
E1.SetFocus;
E1.Free;
end;