Ralf, Thanks for your effort.! On Thu, Mar 29, 2012 at 9:16 PM, Delphi Inspiration <delphi@xxxxxxxx> wrote: > On 21.02.2012 18:41, Edwin Yip wrote: > > > Well, by creating an decedent component I don't have to write the > > OnMouseEnter/Leave event handlers - this is the only benefit and I > > believe it's the benefit of OOP. > > I have just uploaded DIHtmlLabel 2.7 which publishes the OnMouseEnter / > OnMouseLeave for Delphi 2006 and later: > > http://www.yunqa.de/delphi/doku.php/products/htmllabel/index > > You can now use these new events to change the color property so there > is no more need to overwrite the Paint method: > > procedure TForm1.DIHtmlLabel_MouseEnter(Sender: TObject); > begin > DIHtmlLabel.Color := clRed; > end; > > procedure TForm1.DIHtmlLabel_MouseLeave(Sender: TObject); > begin > DIHtmlLabel.Color := clWhite; > end; > > If you prefer, you can of course derive your own component, but there is > likewise no more need to overwrite the Paint method. > > Ralf > _______________________________________________ > Delphi Inspiration mailing list > yunqa@xxxxxxxxxxxxx > //www.freelists.org/list/yunqa > > > > -- Best Regards, Edwin Yip Mind Mapping is as Effortless as Typing http://www.InnovationGear.com