如何确定sender参数?

Question

我编了一程序，有两个窗口：form1,form2;form2中有一dbgrid1，有如下程序:
procedure Tform2.dbgrid1cellclick(column:Tcolumn);
begin
form1.show;
end;procedure Tform1.show(sender:tobject);
begin
if (sender is ?) then form1.label1.caption:='单击了dbgrid中的一行';
end;
请问要想让form1.show正确执行，?应该是Tform2 还是Tdbgrid?
不知我说明白了没有,大家莫怪！

Answer 1

怎么是Tform1?
dbgrid可是在Tform2中的!

Answer 2

执行一下
procedure TForm1.FormShow(Sender: TObject);
begin
ShowMessage(Sender.ClassName);
end;
就知道是Sender是谁了

Answer 3

如果你想传递DBGRID
procedure Tform1.dbgrid1cellclick(column:Tcolumn);
begin
Form1Show(TObject(DBGRID1));
end;procedure Tform1.Form1show(sender:tobject);
begin
if (sender is dbgrid1) then form1.label1.caption:='单击了dbgrid中的一行';
end;