Re: [lazarus] Array of Buttons, OnClick how made to work

[Carlos Avogaro]

It's work!!!
   
  Thank you, Albert

Albert Zeyer <[EMAIL PROTECTED]> wrote:
    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. 

       
---------------------------------
Boardwalk for $500? In 2007? Ha! 
Play Monopoly Here and Now (it's updated for today's economy) at Yahoo! Games.