那位高手幫我解決如下問題: 我在一個Form中動態生成一個Button控件 為了能測試出效果,我用一個Bitbtn的控件觸發 當第一次點Bitbtn時能夠實現結果但第二次點 Bitbtn時就會出錯,是不是要釋放原先創建的Button 才能再次生成呢?? 有什麼辦法??請各位高手助教!!! ken

------
ken

button的onclick事件有沒有給?

會不會是你每次生成的「位置」都一樣所以看不到呢？要調整唷！    

 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  tBtn:TButton;
begin
  tBtn:=TButton.Create(Application);
  tBtn.Parent:=Form1;
  tBtn.Left:=100;//調整生成位置
  tBtn.Top:=100; //調整生成位置
end;

我正確的mail：h832214@hotmail.com

 
procedure TForm1.Button1Click(Sender: TObject);
var
  I, W, H: Integer;
begin
  W := 40;
  H := 30;
  for I := 0 to 15 do
    with TButton.Create(Self) do
    begin
      Parent := Form1;
      Visible := True;
      BoundsRect := Rect(W * (I mod 4),
                         H * (I div 4),
                                W * (I mod 4   1),
                                H * (I div 4   1));
      //Name不能重複,你也可以不指定,但是要自己負責Free的動作
      Name := 'btn'   IntToStr(I);
      Caption := Name;
      Tag := I;
      OnClick := DOClick;
    end;
end;    procedure TForm1.DoClick(Sender: TObject);
begin
  if Sender is TButton then
    ShowMessage(IntToStr(TButton(Sender).Tag));
end;    procedure TForm1.Button2Click(Sender: TObject);
var
  C: TButton;
  I: Integer;
begin
  for I := 0 to 15 do
  begin
    C := TButton(FindComponent('btn' IntToStr(I)));
    if Assigned(C) then FreeAndNil(C);
  end;
end;

jow謝謝你們的回復,可是對於你的 程序好像用現有的Bitbtn控件來觸發 生成動態的Button控件喲.是不是啊??? ken

------
ken

(1)我想重點是動態生成的控件,交付與Owner管理時,如果 Name 屬性重複的話將會發生Exception的狀況; 也就是說如果你要動態產生一組有指定Name的控件,應該在使用後自行Free它,以便下一次的動作.    (2)也可以不指定Name Property,但是如果交付給某個Owner時,則每次動作產生的元件勢將一直累積,直到Owner 被Free的時候.    (3)理論上Owner(Form1)在Destroy 時應該會透過ComponentCount和Components,去釋放屬於它的所有元件.    (4)Owner也可以是nil喔!    

  Buttons: array of TButton;
  SetLength(Buttons,10);
  for I := 0 to Length(Buttons)-1 do
  begin
    Buttons[I] := TButton.Create(nil);
    with Buttons[I] do
    begin
      BoundsRect := Rect(...);
      Parent := ...;
      ...
    end;
  end;      for I := 0 to Length(Buttons)-1 do
    if Assigned(Buttons[I]) then
      FreeAndNil(Buttons[I]);      Buttons := nil;    關於程式上動態配置的資源(如 Memory),總要有適當的方法將它釋放,除非你知道哪些情況下Delphi的哪些機制會自動幫你清除.