source: branches/Xvcl/Applications/TestApplication.pas

unit TestApplication;

interface

uses
  Vcl.Graphics, Xvcl.Controls, Xvcl.Classes, Xvcl.Forms, SysUtils;

type
  TTestApplication = class(TApplication)
    Form1: TForm;
    Form2: TForm;
    Button: TButton;
    Label1: TLabel;
    procedure Run; override;
    procedure ButtonClick(Sender: TObject);
  end;


implementation

uses
  Xvcl.Kernel;

{ TTestApplication }

procedure TTestApplication.ButtonClick(Sender: TObject);
begin
  Button.Caption := 'Clicked';
  Label1.Caption := IntToStr(StrToInt(Label1.Caption) + 1);
end;

procedure TTestApplication.Run;
begin
  Form1 := TForm.Create;
  Form1.Bounds := TRectangle.Create(50, 80, 200, 120);
  Form1.Name := 'Form1';
  Form1.Caption := 'Test application';
  Form1.Screen := Screen;
  Form2 := TForm.Create;
  Form2.Bounds := TRectangle.Create(350, 150, 200, 150);
  Form2.Name := 'Form2';
  Form2.Caption := 'Some form';
  Form2.Screen := Screen;
  Button := TButton.Create;
  Button.Parent := Form1;
  Button.Bounds := TRectangle.Create(50, 50, 60, 24);
  Button.Visible := True;
  Button.Caption := 'Start';
  Button.OnClick := ButtonClick;
  Form1.Controls.Add(Button);
  Label1 := TLabel.Create;
  Label1.Parent := Form1;
  Label1.Bounds := TRectangle.Create(60, 80, 60, 24);
  Label1.Visible := True;
  Label1.Caption := '0';
  Form1.Controls.Add(Label1);
  TScreen(Screen).Forms.Add(Form1);
  TScreen(Screen).Forms.Add(Form2);
  TScreen(Screen).Paint;
end;

end.