Ejecutar un OnKeyPress

[sierraja]

Eso es correcto MasterXP, tu procedimiento funciona muy bien con el evento OnClick, pero mi pregunta es: tengo el evento definido en un TEdit llamado OnKeyPress y tiene su procedimiento. Ahora quiero llamar ese evento desde un boton diferente. Gracias por su atención.

[[Héctor Randolph]]

Hola a todos!

Sólo tienes que adaptar la respuesta a tu caso en particular.

Por ejemplo si tienes código en el evento OnkeyPress del TEdit, llamalo de esta forma desde el evento Onclick de otro botón o en cualquier parte del código.

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  ShowMessageFmt('Se ha presionado la tecla %s con el código %d',[Key,Ord(Key)]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Tecla: Char;
begin
  Tecla:=#65; // Caracter que representa la letra A en ASCII
  Edit1KeyPress(Sender,Tecla); //Envias como parámetro Tecla al evento OnKeyPress
end;

Observa que en el evento OnKeyPress el parámetro Key se pasa por referencia por esta razón no puedes mandar una constante tienes que enviar una variable.

Espero que sea útil.

[sierraja]

Efectivamente Hector su sugerencia la probé y resultó efectiva. Muchas Gracias