AdvStringGrid中怎么返回当前所选单元格所在的行数!!? 请高手指点

Question

   我想在点击单元格中的editorbtn按钮时能弹出一个窗体,并且该弹出窗体的Caption的值等于所选单元格的所在行数!请问怎么实现啊! 谢谢指点! 请帮帮忙.

Answer 1

AdvStringGrid选中行的处理advgrid.RowSelect 
advgrid.RowSelectCount 
with advgrid do begin 
 for iRow:=0 to RowCount-1 do begin 
   if Rowselect[iRow] then begin 
     //被选中 
   end else begin    end; 
 end; 
end; 

Answer 2

这个我写在Form.Show事件里没有反应啊,不可以使Form.caption的值改变,我这样写的:
procedure TForm4.FormShow(Sender: TObject);
var
  iRow:integer;
begin
  with Form1.AdvStringGrid1 do
    for iRow:=0 to RowCount-1 do
      if Rowselect[iRow] then
        Form4.Caption:='第' + inttostr(iRow-2) + '个工作面';
end; 运行没有出错,不过Form4.Caption的值没有变化,不知道怎么回事,小弟初学,还请高手帮忙!!   

Answer 3

 
全局变量
var
  i:Integer;procedure TForm2.AdvStringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
i:=arow;
end;procedure TForm2.Button1Click(Sender: TObject);
begin
   ShowMessage(IntToStr(i));
end;