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.

When I run the following procedure,

procedure TMain_Form.Button1Click(Sender: TObject);
var MousePos:Tpoint;
MyMouse:TMouseInput;
begin
MyMouse:=TMouseInput.Create;
MousePos:=Mouse.CursorPos;
MousePos.x:=200;
MousePos.y:=75;
Mouse.CursorPos:=MousePos;
MyMouse.Click(mbLeft,[]);
MyMouse.Destroy;
end;

I get the following error code : Abstract Method Called. Click OK to ignore and risk data corruption or Cancel to kill the program.

I know the problem is in the MyMouse.Click procedure. How do I make this work?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20161026/b7235365/attachment.html>

Add lazmouseandkeyinput to the required packages, then:

uses MouseAndKeyInput;
procedure TForm1.Button1Click(Sender: TObject);
begin
  MouseInput.Move([], 200, 75);
  MouseInput.Click(mbLeft,[], 200, 75);
end;

On Wed, Oct 26, 2016 at 6:40 PM, Larry Dalton via Lazarus <

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20161027/53e4b0e5/attachment.html>

Worked great! Thanks!

Sent from my iPhone

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20161027/83a2ca95/attachment.html>

Is there a procedure to print a string at the cursor?

Sent from my iPhone

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20161027/2e92c5a7/attachment.html>

>Is there a procedure to print a string at the cursor?

uses MouseAndKeyInput, LCLType;
procedure TForm1.Button1Click(Sender: TObject);
var
  Str: String;
begin
  MouseInput.Move([], 200, 75);
  MouseInput.Click(mbLeft,[], 200, 75);
  KeyInput.Press(VK_T);
  KeyInput.Press(VK_e);
  KeyInput.Press(VK_s);
  KeyInput.Press(VK_t);
end;

Everything is printing in lower case. How do I fix that?

Sent from my iPhone

I can't get it to print an uppercase letter

Sent from my iPhone

Hi, this works. Just check all methods available in KeyInput and MouseInput to see what it can really do.
 
  KeyInput.Apply([ssShift]);
  KeyInput.Press(VK_T);
  KeyInput.Unapply([ssShift]);
  KeyInput.Press(VK_e);
  KeyInput.Press(VK_s);
  KeyInput.Press(VK_t);  
 
V.

That helps a lot! Thanks to all of you!

Sent from my iPhone