Class THint95 (unit Hint95) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
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);
property HintStyle : THintStyle
event OnShowHint : TShowHintEvent
FHintFont : TFont;
True when Tahoma is available.
FHintStyle : THintStyle;
FOnShowHint : TShowHintEvent;
FTahomaAvail : Boolean;
FWindowHandle : HWND;
constructor Create(AOwner: TComponent);
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);
property HintStyle : THintStyle
event OnShowHint : TShowHintEvent
FHintFont : TFont;
True when Tahoma is available.
FHintStyle : THintStyle;
FOnShowHint : TShowHintEvent;
FTahomaAvail : Boolean;
FWindowHandle : HWND;