Class THint95 (unit Hint95)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;

NOTE: These values are similar to those Win95 uses.

procedure GetHintInfo(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);


procedure GetTahomaAvail;


procedure GetTooltipFont;


procedure SetHintStyle(AHintStyle: THintStyle);

Office 97 style? Then use Tahoma instead of MS Sans Serif

procedure WndProc(var Msg: TMessage);


Properties

property HintStyle : THintStyle


Events

event OnShowHint : TShowHintEvent


Variables

FHintFont : TFont;

True when Tahoma is available.

FHintStyle : THintStyle;


FOnShowHint : TShowHintEvent;


FTahomaAvail : Boolean;


FWindowHandle : HWND;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;

NOTE: These values are similar to those Win95 uses. But Win95 does only display a tooltip when the mouse cursor doesn't move on the control anymore. Delphi doesn't do this.


procedure GetHintInfo(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);


procedure GetTahomaAvail;


procedure GetTooltipFont;


procedure SetHintStyle(AHintStyle: THintStyle);

Office 97 style? Then use Tahoma instead of MS Sans Serif


procedure WndProc(var Msg: TMessage);


Properties


property HintStyle : THintStyle


Events


event OnShowHint : TShowHintEvent


Variables


FHintFont : TFont;

True when Tahoma is available.


FHintStyle : THintStyle;


FOnShowHint : TShowHintEvent;


FTahomaAvail : Boolean;


FWindowHandle : HWND;