onKeyUp

[MAXIUM]

¿Como logro esto?, no se que pametros enviar a KeyUp, yo solo quiero que se ejecute procedimiento.

procedure TForm1.Button1Click(Sender: TObject);
begin
Llamar a Edit1KeyUp para que ejecute su código;
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
Hace algo;
end;




Ante mano, muchas gracias.

[Neftali [Germán.Estévez]]

Debes explicar qué tecla quieres enviar al ejecutar el KeyUp.


Self.Edit1KeyUp(Self, VK_F1, []);

[gluglu]

Si no quieres pasar ningún parámetro de nada, y lo único que quieres es que se ejecute el código que tienes en KeyUp, también podrías poner :

Edit1KeyUp(nil, nil, []);

[MAXIUM]

Muchas gracias a ambos, los códigos me han sido de gran utilidad.

[MAXIUM]

Ahora que lo probe no me resulto ninguno de los 2 :( .

Lo que necesito es lo que gluglu dice, pero el código que si me funciona es


var
Key: Word;
begin
Key:= 0;
Edit1KeyUp(Sender, Key, []);
end;


Solo que el Key no le puedo asignar NIL poruqe este último es un puntero y no un Word. A Key le di el valos 0 por ponerle algo aunque yo no quiero enviarle parametros, en todo caso funciona para mis propositos. Gracias.