Hallo, ich möchte gerne in Lazarus/Freepascal ein onclick-event per Quellcode setzen.
Nun habe ich von Luckie ein super Beispiel gefunden, welches unter Delphi funktioniert.
Bei Lazarus bekomm ich die Fehlermeldung:

unit1.pas(38,23) Error: Wrong number of parameters specified for call to "MyBtnClick"

Weiß Jemand Abhilfe?

LG Julian

Zitat von Luckie:

In der Kürze liegt die Würze:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure MyBtnClick(Sender: TObject);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MyBtnClick(Sender: TObject);
begin
  ShowMessage('foobar');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  MyButton: TButton;
begin
  MyButton := TButton.Create(Form1);
  MyButton.Parent := Form1;
  MyButton.OnClick := MyBtnClick;
end;

Hallo,
Button auf das Form, Doppelklick drauf.
Dann kennst du die Art und Anzahl der Parameter.

Danke für die Antwort, Art und Anzahl der Parameter sind gleich.

des Rätsels Lösung war das @-Zeichen:

MyButton.OnClick := @MyBtnClick;
Damit klappts auch mit Lazarus/Freepascal.

Hallo,
und wieder was dazugelernt.

Delphi hat hier wohl etwas mehr "Pointer-Magie".