急,跑求高手指点!

Question

如何在delphi的应用程序中动态创建按钮,并且对其操作的问题,谢谢啊!

Answer 1

var
  btnOK: TButton;
  procedure btnOKClient(Sender: TObject);
  begin
    ShowMessage('ok');
  end;
begin
  btnOk := TButton.Create(self);
  btnOk.Height :=  100;
  btnOK.OnClient := btnOKClient;
  //使用btnOK控件
  
end;

Answer 2

with TButton.Create(Self) do
  begin
    Top := 100;
    Left := 100;
    Width := 200;
    Height := 25;
    Caption := 'Button';
    Parent := Self;
  end;