Disable Tooltip Soft-Shadow ?

[HPW]

Ein hilsbereiter Kollege vom delphiarea forum hat mir weiter geholfen:

Delphi-Quellcode:

type 
  TNoShadowHintWindow = class(THintWindow) 
  protected 
    procedure CreateParams(var Params: TCreateParams); override; 
  end; 

procedure TNoShadowHintWindow.CreateParams(var Params: TCreateParams); 
const 
  CS_DROPSHADOW = $00020000; 
begin 
  inherited CreateParams(Params); 
  Params.WindowClass.Style := Params.WindowClass.Style and not CS_DROPSHADOW; 
end; 

initialization 
  HintWindowClass := TNoShadowHintWindow; 
end.