Enviar "teclas" a un objeto [TWinControl]

[dec]

Esta función envia teclas a un objeto las veces que que queramos. Es muy sencilla y util.


Procedure SendKey(Letra: Byte; LetraFuncion: Byte; i: Integer; Obj: TWinControl);


El primer parametro es la letra. La segunda si incluimos una tecla de función. El tercer parametro las veces y el último el objeto. Aqui la tienen


Procedure SendKey(Letra:Byte;LetraFuncion:Byte;i:Integer;Obj:TWinControl);
var j:Integer;
Begin
For j:=1 to i do Begin
If LetraFuncion <> 255 then
Begin
keybd_event(LetraFuncion,0,0,0);
keybd_event(Letra,0,0,0);
keybd_event(LetraFuncion,0,KEYEVENTF_KEYUP,0);
keybd_event(Letra,0,KEYEVENTF_KEYUP,0);
end
else
Begin
keybd_event(Letra,0,0,0);
keybd_event(Letra,0,KEYEVENTF_KEYUP,0);
end;
end;
If Obj <> nil then Obj.SetFocus;
end;