Delphi中使用Hint体验windows的温柔

本文主要是介绍Delphi中使用Hint体验windows的温柔，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

长时间的编程工作已经养成了一个习惯那就是当有错误发生的时候，就显示一个错误对话框，当需要提示的时候就显示一个提示对话框，当有一个可以忽略的错误的出现的时候，就显示一个警告对话框。
因此就有了当需要验证用户输入的数据时候正确的时候，如果输入的内容不合法，那么就显示一个错误的对话框。本来觉得没有什么，但是我们的测试人员给了我一个建议说：这么做太恐怖了，让用户感觉好像发生了什么不可避免的严重问题，他说能不能温柔一些呢？比如使用一个警告的对话框。但是我不同意使用一个警告的对话框，因为我认为那是可忽略的内容才会显示一个警告，通常是不会显示一个警告的。我们尝试了在Windows建立一个非法的文件夹，体会一下Windows的温柔。Windows确实是很温柔，只用一个Hint就解决了这个问题。
在Delphi中每个组件几乎都具有Hint属性，但是他们只是在鼠标移动到该组件的时候才显示Hint内容。幸运的是，Delphi为我们提供了一个THintWindow组件，这样就不需要我们手工封装一个组件了。为了实现我们温柔的目标，我们封装一个来实现他。
代码如下：
1. THintControl = class(TComponent)
2. private
3. FHint: string;
4. HintWindow: THintWindow;
5. HintTimer: TTimer;
6. FComponent: TControl;
7. protected
8. procedure HideHint(Sender:TObject); virtual;
9. public
10. constructor Create(AOwner: TComponent); override;
11. destructor Destroy; override;
12. property Hint: string read FHint write FHint;
13. property Component: TControl read FComponent write FComponent;
14. procedure ShowHint(AHint: string); overload;
15. procedure ShowHint(AHint: string; AComponent: TControl); overload;
16. end;
17. implementation
18. { THintControl }
20. procedure THintControl.ShowHint(AHint: string);
21. begin
22. ShowHint(AHint, FComponent);
23. end;
25. constructor THintControl.Create(AOwner: TComponent);
26. begin
27. inherited;
28. HintWindow := HintWindowClass.Create(nil);
29. HintWindow.Color := Application.HintColor;
30. HintTimer:=TTimer.Create(nil);
31. HintTimer.OnTimer:=HideHint;
32. HintTimer.Interval:=Application.HintHidePause;
33. end;
35. destructor THintControl.Destroy;
36. begin
37. // sleep(HintTimer.Interval);
38. HintTimer.Free;
39. HintWindow.Free;
40. inherited;
41. end;
43. procedure THintControl.HideHint(Sender: TObject);
44. begin
45. TTimer(Sender).Enabled:=false;
46. ShowWindow(HintWindow.Handle,SW_HIDE);
47. end;
49. procedure THintControl.ShowHint(AHint: string; AComponent: TControl);
50. var
51. vPoint:TPoint;
52. vRect:TRect;
53. begin
54. if AHint<>'' then
55. begin
56. if not Windows.IsWindowVisible(HintWindow.Handle) or (HintWindow.Caption<>AHint) then
57. begin
58. vRect:=HintWindow.CalcHintRect(Screen.Width,AHint,nil);
59. vPoint.X := AComponent.Left;
60. vPoint.Y := AComponent.Top + AComponent.Height ;
61. vPoint := AComponent.Parent.ClientToScreen(vPoint);
62. Inc(vRect.Left,vPoint.X);
63. Inc(vRect.Right,vPoint.X);
64. Inc(vRect.Top,vPoint.Y);
65. Inc(vRect.Bottom,vPoint.Y);
66. HintWindow.ActivateHint(vRect,AHint);
67. HintTimer.Enabled:=true;
68. end;
69. end
70. else
71. ShowWindow(HintWindow.Handle,SW_HIDE);
72. end;
74. //调用示例：
75. procedure TForm1.Button2Click(Sender: TObject);
76. var
77. vHint: THintControl;
78. begin
79. vHint := THintControl.Create(self);
80. try
81. vHint.Component := edit1;
82. vHint.ShowHint('合法的年龄范围为：18～120');
83. finally
85. end;
86. end;