Question

更改组件的属性在我的Delphi词汇表中。我通过编写代码创建了一个按钮，该按钮以其父级形式出现在窗体上，但是我不知道如何执行任何操作。

Answer 1

示例-创建运行时TButton并将其事件设置为OnClick ...

unit Unit1;

interface

uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
private
    FButton : TButton;
    procedure OnButtonClickTest(Sender: TObject);
public

end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
    FButton := TButton.Create(nil);
    FButton.Parent := self;
    FButton.Left := 10;
    FButton.Top := 10;
    FButton.Width := 75;
    FButton.Height := 25;
    FButton.Caption := 'Click';
    FButton.OnClick := OnButtonClickTest;
end;

procedure TForm1.OnButtonClickTest(Sender: TObject);
begin
    FButton.Caption := 'Test OK';
end;

end.

我创建一个动态按钮FButton。将其放在主窗体（父项：Self）上，并将事件处理程序设置为单击它（方法：OnButtonClickTest）。当您单击按钮时，在她的标题上将文本更改为“测试确定”

如何使用动态按钮

1 个答案: