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.

zusammenfalten · markieren

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'

Hallo!

Btn.OnClick := BtnClick; Grüße
Faux

Muß die Definition der Prozedur muß nach Program?

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

Zitat von mkinzler:

Muß die Definition der Prozedur muß nach Program?

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

zusammenfalten · markieren

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

btn := TButton.Create(self);

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

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.

zusammenfalten · markieren

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.

Zitat von citybreaker:

Ich bekomm ein Identifier expected.

Die Form müsste so lauten:

markieren

Delphi-Quellcode:

program

procedure

var
begin

end.

Grüße
Faux

Ok, vielen dank! Jetzt geht es.



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