2 cuestiones, keypress de un boton y codigo que no se refleja o ejecuta

[chartres]

Hola
tengo un Boton que hace una consulta que tarda un poco, y solo qiero poner un label que diga Espere y se quite al finalizar la consulta

le puse en el evento mousedown del boton label.visible=true
y en mouseup label.visible=false
y ahi si funciona bien al darle clic se prende el label hacela consulta y lo apaga

pero si le doy Enter(tecla) en vez de clic(mouse) no ejecuta esos eventos,
ok, los puse en keypress keydown keyup el codigo pero nunca entran estos eventos, no se porque.


Otro problema esque dentro del Onclic del boton al inicio del codigo le puse tambien que se prenda el label Label.visible=true
pero por alguna razon delphi no ejecuta el codigo aunque este al principio
osea lo lee y codifica pero no lo hace no muestra el label, hasta que termina de hacer la consulta y pues nunca se muestra el Espere


si tienen alguna informacion de porque se agradece

[ecfisa]

Hola chartres.

No sé como está tu código pero lo más simple es poner visible el TLabel dentro del procedimiento de la consulta (al inicio de este), y ocultarla cuando finalice. De ese modo mostrará y ocultará el mensaje independientemente del evento que provocó la llamada al procedimiento.

Saludos.

[roman]

Empezado por chartres

Otro problema esque dentro del Onclic del boton al inicio del codigo le puse tambien que se prenda el label Label.visible=true
pero por alguna razon delphi no ejecuta el codigo aunque este al principio

Prueba poniendo:

Código Delphi [-]
Label1.Visible := true;
Application.ProcessMessages;

{ código de la consulta }

Label1.Visible := false;

en el OnClick del botón.

// Saludos

[chartres]

Gracias Roman

Listo, ya habia visto ese codigo pero no sabia su funcion y no lo usba.