Re: [lazarus] Changing TObject

[Ger Remmers]

On 3/19/07, Luis Rodrigues <[EMAIL PROTECTED]> wrote:

There is no need to mess with TObject, every TComponent descendent
component has the Tag property where you can store whatever you want.

http://lazarus-ccr.sourceforge.net/docs/rtl/classes/tcomponent.tag.html

Procedure From1.Create(Sender : TObject);
var
  C : integer;
begin
  for C := 1 to 20 do
  Knop[C] := TButton.Create;
-->  Knop[C].Tag := C; <--
  Knop[C].OnClick := @DoSomethingBright;
end;

It does the trick, thanks.
I didn't know of it's existence.

--

Ger