Question

delphi 中怎么动态生成一个button或者其他控件,怎么调用button1click这个函数?

delphi 中怎么动态生成一个button或者其他控件,怎么调用button1click这个函数?

Answer 1

var
but: TButton
begin
but:= TButton.Create(这里输入你的父控件，即你的按钮要长在哪);
but.onclick := button1click;
but.caption := 'my Button';
end;

这个clickproc你需要预先写好了 ，然后调用。

Answer 2

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)

procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
newbutton:Tbutton;
implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);

begin
newbutton:=Tbutton.create(self);
newbutton.parent:=self;
// 修改属性
newbutton.Top:=100;
newbutton.Left:=20;
newbutton.Caption:='new button';
end;

/////////////调动方法
newbuttonclick:=oldbuttonclick;