我一个EDIT控放在在Tstringried上,在获取Tstringgrid每个小单无时坐标本人不会下面是我写的单代码,这是我写了一个函数,请帮我补充他的宽和高 procedure TForm1.nextposition( var r:integer; var c:integer); begin //with do //begin
h:=sg.Left + sg.ColWidths[0]+2; for i:=sg.LeftCol to sg.Col do begin h:=h+sg.ColWidths[i]+sg.GridLineWidth; end; edit1.Left :=h-edit1.Width+sg.GridLineWidth; label8.Caption :=inttostr(h);
----------------------------------------------
我是鸟菜