如何使用FindComponent来调用另一个form中名字有规律的几个TEdit

Question

想在form1中对form2的几个名字有规律的TEdit文本框设置值
使用了form2.FindComponent('Edit'+inttostr(i)).text :=.....;
但这样显然是不行的，
但又不能写成form2.TEdit.FindComponent('Edit'+inttostr(i)).text :=.....;
改如何写才能得到我想要的功能，使用FindComponent来调用另一个form中名字有规律的几个TEdit
望指教，谢谢

Answer 1

楼主的思维是对的，可能是引用的时候没有将被引用的对象进行实例化我的测试语句，证明是可行的：implementation
uses unit2;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var tmpFrm: TForm2;
    I: Integer;
begin
  tmpFrm := TForm2.Create(self);    //一定要进行实例化
  for I := 0 to 10 do
  begin
    if tmpFrm.FindComponent('Edit'+IntToStr(I)) <> nil then
      self.Memo1.Lines.Add(TEdit(tmpFrm.FindComponent('Edit'+IntToStr(I))).Text);
    //Memo1用以测试是否查询成功，如果成功则添加值   仅用于测试显示
  end;
  tmpFrm.ShowModal;
  tmpFrm.Free;
end;

Answer 2

TEdit(form2.FindComponent('Edit'+inttostr(i))).text :=...;

Answer 3

你的form2已经创建了吗？ 只有创建了才行啊，
如果创建了，你写的基本就没什么问题，顶多刷新或者重绘一下

Answer 4

我以前写的
给你个思路
-----------------------------------------
procedure ChComState(b: boolean; pnl: TPanel; index: Integer = 0); overload; //设置Panel子组件的ReadOnly
var
  i: Integer;
  ctr: TControl;
begin
  for i := 0 to pnl.ControlCount - 1 do begin
    ctr := pnl.Controls[i];
    if ctr.ClassType = TPanel then
      ChComState(b, TPanel(ctr)) //递归
    else if ctr.ClassType = TcxTextEdit then begin
      TcxTextEdit(ctr).Properties.ReadOnly := not b;
      if index = 1 then begin
        TcxTextEdit(ctr).Style.Color := clWindow;
        TcxTextEdit(ctr).StyleHot.Color := clWindow;
        TcxTextEdit(ctr).StyleFocused.Color := clWindow;
      end
      else if index = 2 then begin
        TcxTextEdit(ctr).Style.Color := clInfoBk;
        TcxTextEdit(ctr).StyleHot.Color := clInfoBk;
        TcxTextEdit(ctr).StyleFocused.Color := clInfoBk;
      end;
    end
    else if ctr.ClassType = TcxDateEdit then
      TcxDateEdit(ctr).Properties.ReadOnly := not b
    else if ctr.ClassType = TcxTimeEdit then
      TcxTimeEdit(ctr).Properties.ReadOnly := not b
    else if ctr.ClassType = TdxTimeEdit then
      TdxTimeEdit(ctr).ReadOnly := not b
    else if ctr.ClassType = TcxLookupComboBox then
      TcxLookupComboBox(ctr).Properties.ReadOnly := not b
    else if ctr.ClassType = tradiobutton then
      tradiobutton(ctr).Enabled := b
  end;
end;
---------------------------------------------------------
procedure ChComState(ctr: TcxPageControl); overload; //动态菜单
{$IFDEF DynamicMenus}
var
  i: Integer;
  {$ENDIF}
begin
  {$IFDEF DynamicMenus}
  for i := 0 to TcxPageControl(ctr).PageCount - 1 do
    TcxPageControl(ctr).Pages[i].TabVisible := DM.Dst_Menu.locate('winformname', TcxPageControl(ctr).Pages[i].Name, [])
      {$ENDIF}
end;
---------------------------------------------------------
procedure TSysAdmin.DsStateChange(Sender: TObject);
var
  ipos: Integer;
  dsName: string;
begin
  //****************共性****************
  dsName := TDataSource(Sender).Name;
  ipos := Pos('_', dsName);
  dsName := Copy(dsName, ipos + 1, Length(dsName) - ipos);
  //功能按钮
  chDsState(FindComponent('Btn_Add_' + dsName),
    FindComponent('Btn_Edt_' + dsName),
    FindComponent('Btn_Del_' + dsName),
    FindComponent('Btn_Yes_' + dsName),
    FindComponent('Btn_No_' + dsName), TDataSource(Sender));
  //编辑框
  ChDescr(TDataSource(Sender).State in [dsInsert, dsEdit], TDataSource(Sender).Tag);
end;

Answer 5

procedure ChComState(frm: TFrame); overload; //动态菜单
{$IFDEF DynamicMenus}
var
  i, j: Integer;
  ctr: TComponent;
  {$ENDIF}
begin
  {$IFDEF DynamicMenus}
  for i := 0 to frm.ComponentCount - 1 do begin
    ctr := frm.Components[i];
    if (ctr.ClassType = TcxPageControl) and (Pos(Pgc_WinFormName, TcxPageControl(ctr).Name) > 0) then begin
      for j := 0 to TcxPageControl(ctr).PageCount - 1 do
        TcxPageControl(ctr).Pages[j].TabVisible := DM.Dst_Menu.locate('winformname', TcxPageControl(ctr).Pages[j].Name, []);
      Break;
    end;
  end;
  {$ENDIF}
end;

Answer 6

注意FindControl与FindComponent的区别假如form1上有panel
panel1上拖放有控件label1,label2...
即label1,label2...的parent都为panel1历遍时
(for i := 0 to form1.ComponentCount - 1 do)
form1.Components为
  panel1,
  label1,label2...(for i := 0 to panel1.ControlCount - 1 do)
panel1.Controls为
  label1,label2...通过
panel1.FindControl
(可以找
  label1,label2...)或form1.FindComponent
(可以找
  panel1,
  label1,label2...)找出控件后,判断条件处理

Answer 7

TEdit(form2.FindComponent('Edit'+inttostr(i))).text :=.....;
或
(form2.FindComponent('Edit'+inttostr(i)) as TEdit).text :=.....;