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:

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.

Delphi-Quellcode:

Buttons.SetClick(0, Buttons1Click);

[Luckie]

Wie hast du ClickProcedure deklariert?

Zitat:

Zitat von jaenicke

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

Delphi-Quellcode:

Buttons.SetClick(0, Buttons1Click);

Hier ist doch die Zuweisung:

Delphi-Quellcode:

FButtonList[FX].OnClick:=ClickProcedure;

[jaenicke]

Zitat:

Zitat von Luckie

Wie hast du ClickProcedure deklariert?

Steht doch da? :gruebel:

Delphi-Quellcode:

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:

Delphi-Quellcode:

    procedure Buttons1Click(Sender: TObject);

[jaenicke]

Zitat:

Zitat von Teekeks

Die Procedure ist so Deklariert:

Delphi-Quellcode:

    procedure Buttons1Click(Sender: TObject);

Das geht nicht, die sollte in einer Klasse stecken. Also zum Beispiel:

Delphi-Quellcode:

    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.

[jaenicke]

Ich habe Lazarus im Moment nicht installiert, deshalb kann ich das da gerade nicht testen. Unter Delphi wäre das so korrekt. :stupid:

Ich muss Lazarus einmal zum Testen mit in den virtuellen PC installieren.

[Teekeks]

Das wäre sehr nett.
Gruß Teekeks

[DeddyH]

Ich glaube, unter Lazarus geht das so:

Delphi-Quellcode:

FButtonList[FX].OnClick := @ClickProcedure;

[Teekeks]

Dann meint er Clickprocedure sei ein Pointer und kein TNotifyEvent. Aber im Aufruf muss ich das so:

Delphi-Quellcode:

Buttons.SetClick(3,@Buttons1Click);

machen. Jetzt gehts!
DANKE!