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.

Código Delphi [-]
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

Código Delphi [-]
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;