30 lines
706 B
ObjectPascal
30 lines
706 B
ObjectPascal
{$reference System.Windows.Forms.dll}
|
|
{$reference System.Drawing.dll}
|
|
|
|
uses System, System.Drawing, System.Windows.Forms;
|
|
|
|
type
|
|
TestForm = class(Form)
|
|
procedure Form1_Load(sender: Object; e: EventArgs);
|
|
{$region FormDesigner}
|
|
private
|
|
{$resource Form1.TestForm.resources}
|
|
{$include Form1.TestForm.inc}
|
|
{$endregion FormDesigner}
|
|
public
|
|
constructor;
|
|
begin
|
|
InitializeComponent;
|
|
end;
|
|
end;
|
|
|
|
procedure TestForm.Form1_Load(sender: Object; e: EventArgs);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
begin
|
|
System.Windows.Forms.Application.EnableVisualStyles();
|
|
System.Windows.Forms.Application.SetCompatibleTextRenderingDefault(false);
|
|
System.Windows.Forms.Application.Run(new TestForm)
|
|
end. |