<div dir="ltr">Hi!!<br><br>Looking to this page (<a href="http://wiki.freepascal.org/LCL_Tips">http://wiki.freepascal.org/LCL_Tips</a>) I found a item called "Simulating Mouse and Keyboard input".<br><br>I don't found any example about LCLMessageGlue unit. I tried too the following code (on a form with a TEdit called Edit1), that tries insert the "a" character on Edit1:<br>
<br><font face="courier new, monospace" size="1">implementation<br><br>uses LCLMessageGlue, LCLType;<br><br>{$R *.lfm}<br><br>{ TForm1 }<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>  akey: Word;<br>begin<br>
  akey:=VK_A;<br>  LCLSendKeyDownEvent(Edit1,akey,0,false,True);<br>  //Sleep(100);<br>  LCLSendKeyUpEvent(Edit1,akey,0,false,True);<br>end;  <br></font><br><br>Some ideas? <br><br>-- <br>The best regards,<br><br>Fabio Luis Girardi<br>
PascalSCADA Project<br><a href="http://sourceforge.net/projects/pascalscada">http://sourceforge.net/projects/pascalscada</a><br><a href="http://www.pascalscada.com">http://www.pascalscada.com</a></div>