[Lazarus] how can I show a hint without a mouse move?

[Mattias Gaertner]

On Sun, 15 Mar 2015 18:10:42 +0100
Giuliano Colla <giuliano.colla at fastwebnet.it> wrote:

> Hi Lazarus gurus,
> 
> I have an application which is bound to be used with a touch screen and 
> without a mouse.
> I'd need to show a hint when some components are touched (=clicked).
> 
> Is there an easy way to cause the component hint to be displayed, or the 
> only way is to reimplement all the functionality of a show hint on an on 
> OnClick event?
> 
> Any ideas?

I don't have a no mouse system to test.
What happens when you do

procedure TForm1.Button1Click(Sender: TObject);
begin
  CursorPos:=TWinControl(Sender).ClientToScreen(Point(1,1));
  Application.ActivateHint(CursorPos, True);
end;

?

Mattias