edit1和edit2  edit1.text=10
我在edit2中输入edit1.text 怎么样才能把edit1.text显示出来

解决方案 »

  1.   

    在Edit2的change的事件里面写
    edit1.text = edit2.text;
      

  2.   

    也就是说那我要显示edit1.tag,Edit1.left,Edit1.Taborder ...不可能都在事件中写吧 
    我只在edit2中把它写进去(比如Edit1.left) 他结果就可以显示出来
      

  3.   

    我在edit2中输入edit1.text 怎么样才能把edit1.text显示出来
    这句话是什么意思??
      

  4.   

    在edit2中怎么输入edit1.text呢?不太懂你的意思哦0......
      

  5.   

    yun 
    也就是说在edit2中输入字符串edit1.text(或者edit1.left或者其他)
    然后就让它显示edit1.text(或者edit1.left或者其他)的值
      

  6.   

    挣你20分不容易啊。procedure TForm1.Button3Click(Sender: TObject);
    var
      inputs,outs:string;
      p,i:integer;
      cname,cprop:string;
      c:TComponent;
    begin
      inputs:=edit2.Text;
      outs:='';
      p:=Pos('.',inputs);
      if p<1 then exit;
      cname:=Copy(inputs,1,p-1);
      cprop:=Copy(inputs,p+1,Length(inputs));
      for i:= 0 to self.Componentcount -1 do
        if self.Components[i].Name = cname then
        begin
          c:=Components[i];
          outs:=GetPropValue(c,cprop);
          break;
        end;
      if outs<>'' then Edit2.text := outs;
    end;
      

  7.   

    那如果是buttton1.font.color或者是***.****.*****.**呢