用動態產生出來的元件 請問各位大大該如何撰寫其 Events var aCmp:TWinControl; i : Integer; begin for i := 0 to 2 do begin aCmp:=(TButton.Create(Self) as TWinControl); aCmp.Parent:=Self; aCmp.Top:=20 ; aCmp.Left:=60 * i ; acmp.Name := 'test' IntToStr(i); end; end;

FAQ(看紅色的部份):

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure TempButtonClick(Sender: TOBject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.TempButtonClick(Sender: TObject);
begin
  ShowMessage((Sender as TButton).Name);
end;    procedure TForm1.Button1Click(Sender: TObject);
var
  aCmp: TWinControl;
  i: Integer;
begin
  for i := 0 to 2 do
  begin
    aCmp := TButton.Create(Self);
    aCmp.Parent := Self;
    aCmp.Top := 20 ;
    aCmp.Left : =60 * i ;
    acmp.Name := 'test'   IntToStr(i);
    aCmp.OnClick := TmpButtonClick;
  end;
end;    end.

hagar 你好 我在 aCmp.OnClick := TmpButtonClick; 會出現 OnClick未定義的錯誤 是我少做了啥麼動作嗎？

引言: hagar 你好 我在 aCmp.OnClick := TmpButtonClick; 會出現 OnClick未定義的錯誤 是我少做了啥麼動作嗎？

 
procedure TForm1.Button1Click(Sender: TObject);
var
aCmp: TWinControl;
  aCmp:TButton;改为TButton  
  i: Integer;
begin
  for i := 0 to 2 do
  begin
    aCmp := TButton.Create(Self);
    aCmp.Parent := Self;
    aCmp.Top := 20 ;
    aCmp.Left : =60 * i ;        aCmp.Width:=60;
    aCmp.Height:=25;
另指定宽度，防叠在一起了        acmp.Name := 'test'   IntToStr(i);
    aCmp.OnClick := TempButtonClick;//少一个e
  end;
end;

试试看 <>~~~静心养德~~~ 發表人 -

感謝兩位大大的指導