Use either {$MODE DELPHI} or ...OnClick := @BtnMenuClick.
Am Montag, den 21.05.2007, 11:39 -0700 schrieb Carlos Avogaro:
> I have this in Delphi, and the event onClick, work perfect
>
> for xx ........ do
> btnMenu[xx].Height := 25;
> btnMenu[xx].Left:= 15;
> btnMenu[xx].Width := 140;
> btnMenu[xx].Caption:= sqDataF.FieldByName('nombre').AsString;
> btnMenu[xx].Tag:= sqDataF.FieldByName('accion').AsInteger;
> btnMenu[xx].Name:='Menu' + intToStr(xx);
> btnMenu[xx].Font.Color:=RGB(255,255,255);
> btnMenu[xx].Color:=RGB(100,100,100);
> btnMenu[xx].OnClick := BtnMenuClick;
> INC(xx);
> end;
>
> //===================================
>
> procedure TfrmMain.btnMenuClick(Sender: TObject);
> begin
> with TButton(Sender) do
> if Tag = 200 then ........
> end;
>
> In lazarus the compiler return grong number of parameters in:
> btnMenu[xx].OnClick := BtnMenuClick;
>
> Any idea ?
> thank you
>
>
>
> ______________________________________________________________________
> Got a little couch potato?
> Check out fun summer activities for kids.
