On Sun, 15 Mar 2015 18:10:42 +0100 Giuliano Colla <giuliano.co...@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 -- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
