<html><head><meta http-equiv="content-type" content="text/html; charset=utf-8"></head><body dir="auto"><div>Worked great! Thanks!<br><br>Sent from my iPhone</div><div><br>On Oct 27, 2016, at 07:34, Balázs Székely via Lazarus <<a href="mailto:lazarus@lists.lazarus-ide.org">lazarus@lists.lazarus-ide.org</a>> wrote:<br><br></div><blockquote type="cite"><div><div dir="ltr">Add lazmouseandkeyinput to the required packages, then:<br><br>uses MouseAndKeyInput;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> MouseInput.Move([], 200, 75);<br> MouseInput.Click(mbLeft,[], 200, 75);<br>end; <br></div><div class="gmail_extra"><br><div class="gmail_quote">On Wed, Oct 26, 2016 at 6:40 PM, Larry Dalton via Lazarus <span dir="ltr"><<a href="mailto:lazarus@lists.lazarus-ide.org" target="_blank">lazarus@lists.lazarus-ide.org</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">I am running Lazarus 1.6 on Windows 7. I have one application where I need to move the mouse to a certain point on the screen and then do a mouseclick from the program. <div><br></div><div>When I run the following procedure, <br><div><br></div><div><div>procedure TMain_Form.Button1Click(<wbr>Sender: TObject);</div><div>var MousePos:Tpoint;</div><div>MyMouse:TMouseInput;</div><div>begin</div><div>MyMouse:=TMouseInput.Create;</div><div>MousePos:=Mouse.CursorPos;</div><div>MousePos.x:=200;</div><div>MousePos.y:=75;</div><div>Mouse.CursorPos:=MousePos;</div><div>MyMouse.Click(mbLeft,[]);</div><div>MyMouse.Destroy;</div><div><br></div><div>end; </div></div></div><div><br></div><div>I get the following error code : Abstract Method Called. Click OK to ignore and risk data corruption or Cancel to kill the program. </div><div><br></div><div>I know the problem is in the MyMouse.Click procedure. How do I make this work?</div></div>
<br>--<br>
______________________________<wbr>_________________<br>
Lazarus mailing list<br>
<a href="mailto:Lazarus@lists.lazarus-ide.org">Lazarus@lists.lazarus-ide.org</a><br>
<a href="http://lists.lazarus-ide.org/listinfo/lazarus" rel="noreferrer" target="_blank">http://lists.lazarus-ide.org/<wbr>listinfo/lazarus</a><br>
<br></blockquote></div><br></div>
</div></blockquote><blockquote type="cite"><div><span>-- </span><br><span>_______________________________________________</span><br><span>Lazarus mailing list</span><br><span><a href="mailto:Lazarus@lists.lazarus-ide.org">Lazarus@lists.lazarus-ide.org</a></span><br><span><a href="http://lists.lazarus-ide.org/listinfo/lazarus">http://lists.lazarus-ide.org/listinfo/lazarus</a></span><br></div></blockquote></body></html>