给第三个窗体设个Public变量,比如是Integer型的,使用第一个窗体的按钮点击,把这个变量设为1,用第二个窗体的按钮点击,把这个变量设为2。
解决方案 »
- 散分需要理由吗?不需要吗?需要吗?不需要。
- 用Twriter 与TReader 对TMemoryStream操作出现错误,请帮忙
- 调用DLL中的MDIChild窗体后关闭时 action := caFree 的问题?
- class function 什么意思啊??100分相送
- 注册表
- *****急急!用delphi6的adotable打开oracle的blob字段问题???***
- 求助!怎样不能DBGRID上的记录显示出来!
- 怎么把DBIMAGE里面的图片写到WORD里啊?急!请帮小妹一把!
- 在线程中动态创建ADOQuery
- 函数的返回值能否是数据集类型?
- 求救(关于块的读写)!
- 请大家帮帮忙,给解决这个问题:http://www.csdn.net/expert/topic/432/432737.shtm
在button的onclick事件里把form.name或tbutton(sender).name(如果button1/2不同名)写到全局变量里
这时可以在点击BUTTON时给变量付值啊。
property ParentFormName: String read Get_ParentForm write Set_ParentForm;var strName:string;function TForm3.Get_ParentForm:string;
begin
Result:=strName;
end;procedure TForm3.Set_ParentForm(Value: string);
begin
strName:=Value;
end;在前两个窗体的buttonclick事件里分别将两个窗体的名称赋给Form3.ParentFormName就可以了
将其包含在这三个窗体单元文件中,
在公共单元文件中设置一个公共变量如:
public
BtnInt:byte;
在其它三个单元中便可以引用了
var
WHOButton:Boolean;//True代表第一个
form1中
//先Uses unit3;
TForm1.Button1Click(Sender: TObject);
begin
WHOButton:=True;
end;
form2中
//先Uses unit3;
TForm2.Button1Click(Sender: TObject);
begin
WHOButton:=False;
end;