From: tnomad@digital.net (The Nomad)
Subject: Re: [delphi] How to use (Sender:TObject) ?
Date: Mon, 12 Jun 1995 07:36:34 -0400

In your example, I absolutely agree.  I disagree that shared methods/events
generally produce muddy code.  There are plenty of examples where it would
be useful for a single event to handle the events for multiple objects.  A
trivial example uses an event to set the hint of multiple objects as follows:

procedure TMyForm.OnSomeEvent(Sender: TObject)
begin
        classinfo := Sender.classinfo;
        propinfo := getpropinfo(classinfo, 'hint');
        if propinfo <> nil then
                setstrprop(Sender, propinfo, 'This is the Hint');
        
end;

************************************
*           The Nomad              *
*        tnomad@digital.net        *
************************************