Frage zu Pascal script

[citybreaker]

Hallo!

Ich versuche über Pascal Script einfach mal so aus testzwecken eine
Form mit Button zu erzeugen. (klappt soweit)

Nun soll der Button ne Funktion haben. Das klappt jetzt schon irgendwie nicht mehr.

Delphi-Quellcode:

// Button procedure
procedure BtnClick(Sender: TObject);
begin
  // mach was
end;

program test;
var frm: TForm;
    btn: TButton;
begin

  // Form erzeugen
  Frm := TForm.Create(self);
  Frm.Caption := 'Test Window';
  Frm.Name := 'Frm1';
  Frm.Position := poDesktopCenter;
  // Button1
  btn := TButton.Create(self);
  with Btn do begin
    Caption := 'Klick Mich';
    Left := 10;
    Height := 23;
    Name := 'Btn1';
    Parent := Frm; 
    Width := 75;
    Top := 10;
    OnClick(BtnClick);
  end;
  Frm.Show;
end.

Jetzt sagt der mir immer.
Unnamed 'BEGIN expected'

[faux]

Hallo!

Delphi-Quellcode:

Btn.OnClick := BtnClick;

Grüße
Faux

[mkinzler]

Muß die Definition der Prozedur muß nach Program?

[3_of_8]

Also in Pascal auf jeden Fall. Ich tippe mal, dort auch.

[faux]

Zitat:

Zitat von mkinzler

Muß die Definition der Prozedur muß nach Program?

Ja, stimmt.
Es müsste so heißen:

Delphi-Quellcode:

program test;

procedure BtnClick(Sender: TObject); 
begin
  //
  // Code
  //
end;

var
  frm: TForm;
  btn: TButton;
begin 
  //
  // Code
  //
end.

Habe ich übersehen.
Desweiteren weiß ich nicht ob das ganze dann auch geht. Sowas hab ich bis jetzt noch nie gebraucht.

Grüße
Faux

[3_of_8]

btn := TButton.Create(self);

Müsste das nicht btn := TButton.Create(frm); heißen? self ist doch nur in Methoden definiert, oder?

[faux]

Zitat:

Zitat von 3_of_8

btn := TButton.Create(self);

Müsste das nicht btn := TButton.Create(frm); heißen? self ist doch nur in Methoden definiert, oder?

Hier gibts keine Methode. Das wundert mich ja. Hier gibts keine Form, hier gibts nichts. :?

[citybreaker]

Delphi-Quellcode:

program test;
var frm: TForm;
    btn: TButton;
begin

  // Button procedure
  procedure BtnClick(Sender: TObject);  // Identifier expected hier kommt der Fehler
  begin
    //
  end;

  // Form erzeugen
  Frm := TForm.Create(self);
  Frm.Caption := 'Test Window';
  Frm.Name := 'Frm1';
  Frm.Position := poDesktopCenter;

  // Button1 erzeugen
  btn := TButton.Create(frm);
  with Btn do begin
    Caption := 'Klick Mich';
    Left := 10;
    Height := 23;
    Name := 'Button1';
    Parent := Frm;
    Width := 75;
    Top := 10;
    OnClick := BtnClick;
  end;

  Frm.Show;
end.

So jetzt klappts leider noch immer nicht. Ich bekomm ein
Identifier expected.

[faux]

Zitat:

Zitat von citybreaker

Ich bekomm ein Identifier expected.

Die Form müsste so lauten:

Delphi-Quellcode:

program

procedure

var
begin

end.

Grüße
Faux

[citybreaker]

Ok, vielen dank! Jetzt geht es.

:dp:

--- Edit ---
Eine Frage noch. Wo kann ich ne neue Klasse erstellen?