[Lazarus] TMouseinput mouse click.

[Larry Dalton]

I can't get it to print an uppercase letter

Sent from my iPhone

On Oct 28, 2016, at 01:24, Balázs Székely via Lazarus <lazarus at lists.lazarus-ide.org> wrote:

>>> 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;  
> 
> 
> 
> --
> View this message in context: http://free-pascal-lazarus.989080.n3.nabble.com/Lazarus-TMouseinput-mouse-click-tp4050096p4050105.html
> Sent from the Free Pascal - Lazarus mailing list archive at Nabble.com.
> -- 
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus-ide.org
> http://lists.lazarus-ide.org/listinfo/lazarus