How to define OnClick event for dinamically created objects?

[Delphard]

I have:
<code>
for j := ...
...
CategoryButtons1.Categories.Items[j].Items.Insert(k);
CategoryButtons1.Categories.Items[j].Itemsk].OnClick :=
MyOnClickProcedure;
...
</code>


And, in declaration section of Unit:
<code>
procedure MyOnClickProcedure(Sender: TButtonItem);
</code>

What is missing?
I get message:
[Error] Unit60.pas(835): E2010 Incompatible types: 'TObject' and 'TButtonItem'

 

[whosrdaddy]

your onclick procedure must be like this :

procedure MyOnClickProcedure(Sender: TObject);

--------------------------------------
What You See Is What You Get

 

[Delphard]

Yes, that's one of the causes.
Second is that I forgot to add:

[COLOR=red][u]Form1[/u][/color].MyOnClickProcedure(Sender: TObject);

Thanks whosrdaddy!

 

[Delphard]

I would like to say:

[COLOR=red][u]TForm1[/u][/color].MyOnClickProcedure(Sender: TObject);