Mensaje - Evento... antes de perder el foco, es posible???

[ariefez]

bueno quisiera saber si se puede saber cuando un control esta por perder el foco, e visto q delphi dephine el CM_LOSTFOCUS se puede implementar de alguna forma para que mi aplicacion pueda recibir este mensaje.

si se preguntan porque es que busco esto, es porque quiero mostrar un mensaje al salir de un control, ya se que se puede hacer en el evento OnExit pero este evento ocurre cuando el control ya perdio el foco y otro control ya a recibido el foco.

bueno les agradesco por adelantado cualquier sugerencia.

[[Delphius]]

Disculpa, se que no soy un gran experto... y tal vez no haya entendido muy bien lo que pretendes:

Por el título de tu hilo dices que deber realizar ALGO justo antes de que se pierda el foco... pero... por otro lado dices:

Empezado por ariefez

si se preguntan porque es que busco esto, es porque quiero mostrar un mensaje al salir de un control

De cualquier manera, tengo entendido que no se puede saber cuando se está por abandonar el foco, pero SI cuando lo ha abandonado y cuando lo recibe.. tal cual lo dices.

[ariefez]

Esto si que es rapidez , agradesco sus prontas respuestas

Empezado por Delphius

Por el título de tu hilo dices que deber realizar ALGO justo antes de que se pierda el foco... pero... por otro lado

Al parecer no me explique bien, pero si un control esta por perder el foco es porque se esta por salir de el, si me dejo entender;

Empezado por Al González

Si. Una forma de hacerlo es crear una clase derivada del componente en cuestión. Creando en ella un metodo mensaje declarado con la constante CM_LOSTFOCUS

Pues eso es exactamente lo que busco, pero hay alguna forma de hacer para que el formulario reciba los mensajes o como podria declarar el mensaje ya que e puesto lo siguiente y sin resultado:

Código Delphi [-]
 
  TForm1 = class(TForm)
    ...
    private
      procedure CMLostFocus(var Message: TCMLostFocus); message CM_LOSTFOCUS;
    ...


implementation
 
procedure CMLostFocus(var Message: TCMLostFocus); message 
begin
  ...
  {Nunca entra a esta parte}
end;

Recien estoy entrando en esto de los mensajes y necesito una base de donde poder guiarme, como haria para que mi

[[Lepe]]

Sin entrar en detalles, en la implementación te sobra la palabra message, en lo demás la implementación está bien. Otra cosa será el concepto .

saludos

[roman]

Si CM_LOSTFOCUS es un mensaje que ha de recibir el control entonces deberá hacerse tal como dice Al. No puede esperarse que simplemente poniendo la declaración en el formulario entonces el mensaje del control le llegará al formulario.

Por otro lado me da la impresión de que CM_LOSTFOCUS no se genera nunca. Al menos, buscando en las fuentes de la VCL, sólo encuentro la línea donde se declara la constante pero nada más.

Haciendo algunas pruebas veo que WM_KILLFOCUS sí se genera antes de perderse el foco.

// Saludos

[ariefez]

lo de message fue un error al escribir el mensaje.

Por otra lado e implementado el mensaje WM_KILLFOCUS pero no se genera.

Empezado por Roman

Haciendo algunas pruebas veo que WM_KILLFOCUS sí se genera antes de perderse el foco.

me podrias decir como hiciste esas pruebas.

[[Al González]]

Empezado por ariefez

...e visto q delphi dephine el CM_LOSTFOCUS se puede implementar de alguna forma para que mi aplicacion pueda recibir este mensaje...

Si. Una forma de hacerlo es crear una clase derivada del componente en cuestión. Creando en ella un metodo mensaje declarado con la constante CM_LOSTFOCUS, para desempeñar en él la acción que deseas.

Espero esto sea de utilidad, seguimos en contacto.

Al González.

El día en que uno se convierte en héroe de cómic sabe que realmente se hizo famoso. Nelson Mandela.