如何实现鼠标帮助

Question

就是像对话框上的帮助按钮一样，按了之后鼠标会带一个问号，单击控件会给出相应帮助的那种

Answer 1

改变鼠标光标，然后调用shellexecute调用帮助文件

Answer 2

1.改变鼠标光标
2.SetCapture(Form1.Handle)
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture();
  ACtrl := Form1.ControlAtPos(Point(x, y), True);
  if ACtrl = Button1 then
    HtmlHelp(handle, 'xxx.chm', HH_DISPLAY_TOPIC, DWORD_PTR(PChar('nnn.htm')))  //CHM格式帮助
  else if ACtrl = Button2 then
    ...
end;

Answer 3

用hint 不行吗 鼠标点的时候改变鼠标的形状，然后在鼠标的单击事件里让hint出现不就行了吗？