[lazarus] More on the Self and buttons behavior

[Michael A. Hess]

Now this isn't correct. If you look in the dlgform.pp file of the
comdialogs example you will see the buttonClick which is the procedure
called by the DoOnClick TNotifyEvent. It looks like this:

procedure TSampleDialogs.buttonClick(Sender : TObject);
begin
.
.
.
end;

In the above case shouldn't the variable Self as found in this method
represent a pointer to the SampleDialogs object that was created from
the TSampleDialogs class? Then the data in the Sender field should be
the pointer to the actual TObject (aka control) that called this event.

However the Self that is found is actually the button that fired the
event. If you just print the caption and tag "writeln(caption,'  ',tag);
you will see that it prints the name of the button and the tag value
when you click on the button. But it shouldn't. It used to.

What happened?????
-- 
==== Programming my first best destiny! ====

Michael A. Hess      Miracle Concepts, Inc.
mhess at miraclec.com   http://www.miraclec.com