OnClick zuweisung schlägt fehl...

[Teekeks]

Hi!
Ich hab schonwieder eine Frage. Ich finde absolut keine Lösung...
Ich will in einem Array of TButton die OnClick Property zuweisen. Das tuhe ich volgendermaßen:

Delphi-Quellcode:

procedure TButtons.SetClick(X: integer; ClickProcedure:TNotifyEvent);
begin
  FX:=X;
  FButtonList[FX].OnClick:=ClickProcedure;
end;

Ich habe eine Procedure namens "Buttons1Click(Sender:TObject)" und würde jetzt gerne sohier:

Delphi-Quellcode:

var Buttons:TButtons;
{...}  
Buttons.SetClick(Buttons1Click(Sender));

Die Procedure zuweisen. ich kriege aber folgende Fehlermeldung:

Zitat von Lazarus:

Incompatible type for arg no. 2:Got "untyped",expected "<procedure variable type of procedure(TObject) of object;Register>

Wisst ihr was ich falsch mache?

gruß Teekeks

[jaenicke]

Mit Buttons1Click(Sender) rufst du Buttons1Click mit dem Parameter Sender auf.
Du willst doch aber nur die Prozedur übergeben.Buttons.SetClick(0, Buttons1Click);

[Luckie]

Wie hast du ClickProcedure deklariert?

Zitat von jaenicke:

Mit Buttons1Click(Sender) rufst du Buttons1Click mit dem Parameter Sender auf.
Du willst doch aber nur die Prozedur übergeben.Buttons.SetClick(0, Buttons1Click);

Hier ist doch die Zuweisung:
FButtonList[FX].OnClick:=ClickProcedure;

[jaenicke]

Zitat von Luckie:

Wie hast du ClickProcedure deklariert?

Steht doch da? procedure TButtons.SetClick(X: integer; ClickProcedure:TNotifyEvent); Das ist der Parameter von SetClick, woraus du zitiert hast.

[Luckie]

Nein ich meine nicht die Set-Prozedur, sondern die Click-Prozedur, als da wo der Code beim Klicken ausgeführt wird. Die Fehlermeldung kklingt so, als ob er bei der Deklaration of object vergessen hätte.

[Teekeks]

Hi!
Die Procedure ist so Deklariert:
    procedure Buttons1Click(Sender: TObject);

[jaenicke]

Zitat von Teekeks:

Die Procedure ist so Deklariert:
    procedure Buttons1Click(Sender: TObject);

Das geht nicht, die sollte in einer Klasse stecken. Also zum Beispiel:    procedure TForm1.Buttons1Click(Sender: TObject); Und oben muss die dann unter private auch stehen.

Ansonsten: Hast du mal gemacht was oben schon steht?

[Teekeks]

Also nochmal:
Ich habs so insgesammt schon Deklariert:

Delphi-Quellcode:

  TForm1 = class(TForm)
{...}
  private
    Buttons:TButtons;
    { private declarations }
    procedure Buttons1Click(Sender: TObject);
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
{...}
  Buttons.SetClick(3,Buttons1Click);
end;

procedure TForm1.Buttons1Click(Sender: TObject);
begin
  Buttons.Name('Bu',3);
end;

[jaenicke]

Da du jetzt keine Fehler mehr angegeben hast, gehe ich dann einmal davon aus, dass alles funktioniert?

[Teekeks]

Opps. Nein Lazarus meint ich gebe zuwenige Parameter für "Buttons1Click" an.