Ver Mensaje Individual
  #4  
Antiguo 08-10-2005
Avatar de Héctor Randolph
[Héctor Randolph] Héctor Randolph is offline
Miembro Premium
 
Registrado: dic 2004
Posts: 882
Reputación: 22
Héctor Randolph Va por buen camino
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.
Responder Con Cita