Llamar a Evento OnKeyUp

[Novás]

Hola, en mi aplicación necesito llamar a la función OnKeyUp de un TLabelEdit desde el evento OnActivate del Formulario.

El caso es el siguiente, tengo varios TLabelEdit en mi formulario a los cuales les asigno un valor en el OnActivate del Formulario. Una vez rellenados estos valores necesito que los TLabelEdit ejecuten el evento OnKeyUp el cual realiza unos cálculos pero no consigo ejecutar la llamada.

He probado de la siguiente forma:

Código Delphi [-]
letra:=word('a');
LabelEdit1.OnKeyUp(nil,letra,ssShift);

Esto me lanza el error "Incompatible types: TShifState and Enumeration".

Estoy casi seguro que el error lo tengo en el tercer parámetro del evento pero no se que debo poner ahí para que funcione.

Agradezco cualquier ejemplo de llamada a este evento que me podáis proporcionar.

Muchas gracias.

[dec]

Hola,

Prueba, de momento, con algo así:

Código Delphi [-]
LabelEdit1.OnKeyUp( nil, letra, [ ssShift ] );

[Novás]

He decido cambiar el evento OnKeyUp por el OnChange y solucioné mi problema.
De todas formas si alguién me puede responder a mi pregunta anterior lo agradecería, nunca está de más aprender algo nuevo.

Gracias a todos nuevamente.

[Novás]

Muchas gracias DEC, efectivamente ha funcionado.

Hoy ya he aprendido algo nuevo. XD

[ozsWizzard]

De todas formas, no es buena idea eso de forzar eventos, así nos engañamos. Si se quiere ejecutar el mismo código, lo mejor es tener un procedimiento que espere la mismas variables que espera el evento y poner ahí el código. Una vez hecho esto, el evento llamaría al procedimiento que hemos hecho al uso.

Al menos, bajo mi opinión, aunque el resultado sea el mismo, a mi manera es más claro. Llamando a los eventos directamente, puede haber un momento en el futuro que no me acuerde de que llamaba al evento y volverme loco pensando por qué pasa por un sitio que no debería pasar.

[dec]

Hola,

Empezado por ozsWizzard

De todas formas, no es buena idea eso de forzar eventos, así nos engañamos. Si se quiere ejecutar el mismo código, lo mejor es tener un procedimiento que espere la mismas variables que espera el evento y poner ahí el código. Una vez hecho esto, el evento llamaría al procedimiento que hemos hecho al uso.

Al menos, bajo mi opinión, aunque el resultado sea el mismo, a mi manera es más claro. Llamando a los eventos directamente, puede haber un momento en el futuro que no me acuerde de que llamaba al evento y volverme loco pensando por qué pasa por un sitio que no debería pasar.

Por eso digo...

Prueba, de momento, con algo así:

Código Delphi [-]
LabelEdit1.OnKeyUp( nil, letra, [ ssShift ] );

[ecfisa]

Hola.

También hay otra opción para prescindir de un procedimiento adicional, algo así como un "tiro libre indirecto"...

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
begin
  with LabeledEdit1 do
  begin
    Perform(WM_LBUTTONDOWN, MK_LBUTTON, 0);
    Perform(WM_LBUTTONUP, MK_LBUTTON, 0);
  end;
end;

Saludos.

[ozsWizzard]

Empezado por dec

Hola,



Por eso digo...

Buen matiz ese