带图标的提示栏(Hint窗口)

{--代码开始--}

unit Hintx;

interface

uses
Windows, Messages, Controls;

type
  TIconHintX = class(THintWindow)
protected
  procedure Paint; override;
public
  function CalcHintRect(MaxWidth: Integer; const AHint: string; AData: Pointer): TRect; override;
end;

implementation

uses Forms;

{ TIconHintX }

{-为了放置一个图标，重新计算提示栏窗体的大小:-}
function TIconHintX.CalcHintRect(MaxWidth: Integer; const AHint: string;AData: Pointer): TRect;
begin
  Result := inherited CalcHintRect(MaxWidth, AHint, AData);
  Result.Right := (Length(AHint) * 5) + Application.Icon.Width;
  Result.Bottom := (Application.Icon.Height) * 2;
end;

procedure TIconHintX.Paint;
const MARGIN = 5;
begin
  inherited;
  Canvas.Draw(MARGIN, MARGIN * 5, Application.Icon);
  SendMessage(Handle, WM_NCPAINT, 0, 0); //画提示栏边框
end;

initialization
 
//把我们的新类设置为默认的提示栏类:
HintWindowClass := TIconHintX;

end.

{--代码结束--}