给第三个窗体设个Public变量,比如是Integer型的,使用第一个窗体的按钮点击,把这个变量设为1,用第二个窗体的按钮点击,把这个变量设为2。

解决方案 »

  1.   

    简单地用一个全局变量指示.
    在button的onclick事件里把form.name或tbutton(sender).name(如果button1/2不同名)写到全局变量里
      

  2.   

    两种方法都行,最好还是象blackdell()所说的那样,也可以用Boolean变量代替。
      

  3.   

    假如你在第三个窗体中定义这个变量,那么,要在前两个窗体中Uses 第三个窗体
    这时可以在点击BUTTON时给变量付值啊。
      

  4.   

    给第三个窗体加用户属性也可以做到
    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就可以了
      

  5.   

    添加一个公共单元文件,
    将其包含在这三个窗体单元文件中,
    在公共单元文件中设置一个公共变量如:
    public
    BtnInt:byte;
    在其它三个单元中便可以引用了
      

  6.   

    tommychim(大脚鸟)兄的见解独到.
      

  7.   

    form3中
        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;