Ein Programm ohne Units schreiben

[igel457]

das geht doch und zwar so:

Delphi-Quellcode:

program Project1;

uses
  Forms;

type
  TFenster = class(TForm)
  private

  public

  end;

var
  Fenster : TFenster;

{$R *.res}

procedure Button1Click(sender:TObject);
begin
  application.terminate;
end;

begin
  application.initalize;
  application.titel := 'Mein erstes Programm mit Fenster!';
  application.createform(TFenster,fenster);
  application.run;
  fenster.caption := 'Hallo';
  with tbutton.create(fenster) do
  begin
    parent := fenster;
    width := 100; 
    caption := 'Klickmich!';
    onclick := Button1Click;
  end;
end.