Re: please help...

Posted by Ulrich Becker on November 15, 2000 at 17:03:52:

In Reply to: please help... posted by Bjoern Rebesky on November 14, 2000 at 18:33:58:

hey Bjoern,
something for you!

procedure TForm1.Button1Click(Sender: TObject);
var
p : TObject;
begin
p := sender;
(p as TButton).caption := 'ups';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
p : pointer;
begin
p := @sender;
TButton(p^).caption := 'ups';
end;

you can save the pointer in a TList and so reference to all components.

Please let me know wether this could help you.