我有2个form分别是form1和form2,在form1里面有个combobox1,
我想实现在form2的caption里面,显示form1的内容?
我用
var s1: string;
s1 := form1.ComboBox1.Text;
 caption:='监控界面---[节点域名:'+s1+']';
但是它传过来的值一直是空的,为什么?

解决方案 »

  1.   

    你确认此时combobox1中有值?
    或者在这个操作之前,这个值没有别改变?
      

  2.   

    在读取ComboBox的值前先设定一下它的ItemIndex属性
      

  3.   

    我的combobox的值是输入的没有下拉的东西
      

  4.   

    你的代码写在什么地方?showmessage(s1);?
      

  5.   

    对了,现在我没有用combobox了,我用的是edit,还是空的。
    我在form2的creat事件中写:
    var s1: string;
    s1 := form1.edit1.Text;
     caption:='监控界面---[节点域名:'+s1+']';
      

  6.   

    你这段代码是在哪个单元写的?
    var s1: string;
    s1 := form1.ComboBox1.Text;
     caption:='监控界面---[节点域名:'+s1+']';
    有问题请发信息到我的E-mail:[email protected]
      

  7.   

    我试过呀,我的都行!
    procedure TForm2.FormCreate(Sender: TObject);
    begin
    form2.Caption:=form1.Edit1.Text;
    end;
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    form2.Show;
    end;
    有问题请发信息到我的E-mail:[email protected]
      

  8.   

    如果开始在属性框里面把form1.edit1的text清空,就不行了呀,我只是在运行了以后在edit1里面加的值,就是没有。。