动态创建控件
动态创建控件
var sarr: array [0 .. 2] of tedit; // 动态定义组件数组 But: array of TButton; // 静态定义组件数组 //动态创建控件: SetLength(But, 3); // 设置控件数量 for i := 0 to High(But) - 1 do begin But[i] := TButton.Create(Form1); But[i].Parent := Form1; // 设置父 But[i].Name := 'But' + inttostr(i); But[i].OnClick := 点击按钮;
But[i].Top := i * 30 + 10 end; // 响应动态创建的出来控件的事件 public { Public declarations } procedure 点击按钮(Sender: TObject);// procedure TForm1.点击按钮(Sender: TObject); begin if Sender is TButton then begin if (Sender as TButton).Name = 'But0' then ShowMessage('你点击了But0'); end; end; // 释放控件 procedure TForm1.Button2Click(Sender: TObject); var i: Integer; begin for i := 0 to High(But) do But[i].Free; end;