Delphi实现菜单项上出现提示

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了Delphi实现菜单项上出现提示，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含2066字，纯文字阅读大概需要3分钟。

内容图文

type

  TMenuHintWindow = class(THintWindow)

  private

    FTimerShow: TTimer;

    FTimerHide: TTimer;

    procedure TimerShowTimer(Sender: TObject);

    procedure TimerHideTimer(Sender: TObject);

    procedure ApplicationHint(Sender: TObject);

  public

    constructor Create(AOwner: TComponent); override;

    destructor Destroy; override;

  end;

 

constructor TMenuHintWindow.Create(AOwner: TComponent);

begin

  inherited;

  FTimerShow := TTimer.Create(nil);

  FTimerShow.OnTimer := TimerShowTimer;

  FTimerShow.Interval := Application.HintPause;

  FTimerShow.Enabled := False;

 

  FTimerHide := TTimer.Create(nil);

  FTimerHide.OnTimer := TimerHideTimer;

  FTimerHide.Interval := Application.HintHidePause;

  FTimerHide.Enabled := False;

  Application.OnHint := ApplicationHint;

end;

 

destructor TMenuHintWindow.Destroy;

begin

  if Assigned(FTimerShow) then FTimerShow.Free;

  if Assigned(FTimerHide) then FTimerHide.Free;

  inherited;

end;

 

procedure TMenuHintWindow.ApplicationHint(Sender: TObject);

var

  vHandle: THandle;

  vClassName: array[0..255] of Char;

begin

  TimerHideTimer(FTimerHide);

  if Application.Hint <>‘‘ then

  begin

    vHandle := WindowFromPoint(Mouse.CursorPos);

    GetClassName(vHandle, vClassName, SizeOf(vClassName));

    if not SameText(‘#32768‘, vClassName) and

      (HTMENU <> SendMessage(Handle, WM_NCHITTEST,0,

      MakeLong(Mouse.CursorPos.X, Mouse.CursorPos.Y))) then

      Exit;

    FTimerShow.Enabled := True;

    FTimerHide.Enabled := True;

  end;

end;

 

procedure TMenuHintWindow.TimerHideTimer(Sender: TObject);

begin

  ReleaseHandle;

  FTimerShow.Enabled := False;

  FTimerHide.Enabled := False;

end;

 

procedure TMenuHintWindow.TimerShowTimer(Sender: TObject);

var

  vRect: TRect;

begin

  if Application.Hint <>‘‘ then

  begin

    vRect := CalcHintRect(MaxInt, Application.Hint, nil);

    OffsetRect(vRect, Mouse.CursorPos.X +16, Mouse.CursorPos.Y +16);

    ActivateHint(vRect, Application.Hint);

  end;

  TTimer(Sender).Enabled := False;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  TMenuHintWindow.Create(Self);

end;

http://blog.csdn.net/zswang/article/details/1619084

原文：http://www.cnblogs.com/findumars/p/6347928.html

内容总结

以上是互联网集市为您收集整理的Delphi实现菜单项上出现提示全部内容，希望文章能够帮你解决Delphi实现菜单项上出现提示所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---