Ein Programm ohne Units schreiben

[ichbins]

@igel:

application.run ist eine Endlosschleife. Es wird erst in die nächste Zeile gesprungen wenn der User das Programm beendet hat!

Form zur Laufzeit anzeigen geht so:

Delphi-Quellcode:

program Project1;

uses
  Forms;


type
  TFenster = class(TForm)
  {private

  public}   //brauchst du garnicht.

  end;

var
  Fenster : TFenster;

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

{$R *.res}  //wenn du diese Zeile entfernst, verliert das Programm sein Icon.

begin
  Application.Initialize;
  Application.CreateForm(tfenster, fenster);
  fenster.caption := 'Hallo';
  application.title:='Mein erstes Programm mit Fenster'
  with tbutton.create(fenster) do
  begin
    parent := fenster;
    width := 100;
    caption := 'Klickmich!';
    onclick := Button1Click;
  end; 
  Application.Run;
end.