一開始的畫面有好幾個元件了 在我按了button後會動態產生一些edit 請問如何setfocus到第一個動態產生的edit呢? Thanks...

找到那些 TEdit 的 Name, 然後 SetFocus 即可; ex:

var edt: TEdit;
begin
  // 假設要 SetFocus 的 TEdit 其 Name 為 Edit1
  edt := FindComponent('Edit1') as TEdit; 
  edt.SetFocus;
end;

引言: 找到那些 TEdit 的 Name, 然後 SetFocus 即可; ex:

var edt: TEdit;
begin
  // 假設要 SetFocus 的 TEdit 其 Name 為 Edit1
  edt := FindComponent('Edit1') as TEdit; 
  edt.SetFocus;
end;

可是當初在產生時並沒有給name 除了用name外還有其他方法嗎? 謝謝!!

那為什麼不給 Name 呢？

    

引言: deleted... 可是當初在產生時並沒有給name 除了用name外還有其他方法嗎? 謝謝!!

    unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    edtFirstCreate : Tedit;   //用變數保持住第一個產生的edit..
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.FormCreate(Sender: TObject);
begin
  edtFirstCreate := TEdit.Create(self);
  edtFirstCreate.Parent := Self;    end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  edtFirstCreate.SetFocus;
end;    end.
 

看看下面的是否為您所需 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private ttEdit: Array of TEdit; //動態陣列 public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var i: Integer; aLen: Integer; tTop, tLeft, tHigh: Integer; begin if Length(ttEdit) = 0 then //當為空時則產生 begin //定義動態陣列大小及位置資料 aLen := 5; tTop := 40; tLeft := 10; tHigh := 30; // SetLength(ttEdit, aLen); //設定陣列長度 //建立物件及顯示 for i := 0 to aLen - 1 do begin ttEdit[i] := TEdit.Create(nil); ttEdit[i].Parent := Self; ttEdit[i].Top := tTop; ttEdit[i].Left := tLeft; Inc(tTop, tHigh); end; end; ttEdit[0].SetFocus; //對映至第一個動態產生物件 end; end.