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'