[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 134
  • Last Modified:

Add objects while running

How to add new buttons and combobox:es etc. while the program is running?
0
ramzeus
Asked:
ramzeus
1 Solution
 
intheCommented:
hi,
you can creatre them at runtime like so:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure ClickItem(Sender:TObject);

  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

Procedure TForm1.ClickItem(Sender:TObject);
begin
showmessage(Sender.'NewButton clicked');
end;

Procedure TForm1.Button1Click(Sender: TObject);
var
 NewButton : TButton;
begin
NewButton := TButton.create(nil);
with NewButton do begin
Parent := Form1;
Caption :='Click me';
OnClick := ClickItem; {<-here is imporatnt bit}
left := 40;
top := 100;
width := 60;
height := 20;
end;
NewButton.SHow;

end;

end.

just acase of setting the properties and giving it a event handler etc..

Regards Barry
0

Featured Post

Learn to develop an Android App

Want to increase your earning potential in 2018? Pad your resume with app building experience. Learn how with this hands-on course.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now