如何在两个form传递按钮的name？

Question

form1中有多个按钮，form2是dbgrid.点击form1的任何按钮都调用form2。form2中的记录因form1的按钮则显示不同的内容.另外，我用个笨法子：在form1定义了一个变量pid,在点击form1中的按钮时，将按钮的值赋给pid，调用是‘formshow’。但是在运行的时候，点击按钮调用‘from2’，没有记录显示，退出‘form2’，再点击调用，又有记录了！！为什么？

Answer 1

忘记了说：用户名是 root  密码是 s通用程序框架的特点：
1. 客户端部署简单：全自动部署、智能版本控制
2. 无状态方式运行，对网络条件要求低
3. 支持对多种数据库的访问
4. 集成组织结构管理
5. 集成权限管理
6. 集成工作流
7. 开发扩展性好：序列管理、模块管理、基础代码管理、插件代码生成
8. 其它：动态域名解析、端口映射、消息服务、FTP客户端、WEB浏览器、
               屏幕截图、HTML帮助

Answer 2

为啥不再form2中定义变量,这样直接赋值这个变量就可以了.

Answer 3

定义一个属性，在属性的set方法里实现。

Answer 4

with Tform2.Create(Application) do

Answer 5

Form2.***.*** := TButton(Sender).Name;
比如：
Form2.Label1.Caption := TButton(Sender).Name;

Answer 6

也可以重载form2的构造函数，把值传过去
constructor create(AOwner : TComponent; pid : string);overload;每次调用时
  Form2 := TForm2.create(nil, 'xxx');
  try
    Form2.showmodal;
  finally
    Form2.free;
  end;

Answer 7

pid 变量赋值与调用form2的show方法顺序有问题