The Road to Delphi – Today I receive a question about how disable the vcl styles in the non client area of a vcl form. Well that can be done using a Style hook. Tipically a VCL form with a vcl style look like this To remove the vcl style in the non client are we need create a style hook which descend of the TMouseTrackControlStyleHook and then override the PaintBackground and Create methods. Check this sample code TFormStyleHookNC= class(TMouseTrackControlStyleHook) protected procedure PaintBackground(Canvas: TCanvas); override; constructor Create(AControl: TWinControl); override; end; ...
Visits by Source
Users who voted for this posting