TPZBtn

[PabloZZZ]

Amigos.

Estoy haciendo un boton,

TPZBtn = class( TWinControl )

El mismo tiene 4 TPictures, Up, Down, Focus y Disabled.

Cómo hago para asignar el bitmap del TPicture cuando el control toma el foco???

(asignar es FPicture.Picture.Assign( FPictureFocus ), pero no logro detectar cuando el boton toma el foco o deja de estar Enabled)

Saludos
Pablo Z

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

Empezado por PabloZZZ

... pero no logro detectar cuando el boton toma el foco o deja de estar Enabled)

Lo más fácil es capturar en tu componente los mensajes de windows correspondientes al entrar y salir del componente.

Revisa esta página. Ahí se explica de forma detallada cómo capturar los mensajes y añadirlos a un componente. Si buscas en los foros, también encontrarás información similar. Ya hemos hablado otras veces del tema (1, 2).

[PabloZZZ]

Empezado por Neftali

Lo más fácil es capturar en tu componente los mensajes de windows correspondientes al entrar y salir del componente.

Revisa esta página. Ahí se explica de forma detallada cómo capturar los mensajes y añadirlos a un componente. Si buscas en los foros, también encontrarás información similar. Ya hemos hablado otras veces del tema (1, 2).

Buenisimo!
Sobreescribí:

procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
procedure WMKillFocus(var Message: TWMSetFocus); message WM_KILLFOCUS;

para que muestren el TPicture correspondiente y funcionó.

Ahora estoy viendo cómo hacer que pueda tomar el foco al navegar con la tecla TAB

Z

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

Empezado por PabloZZZ

Ahora estoy viendo cómo hacer que pueda tomar el foco al navegar con la tecla TAB

Esto no lo entedí. ¿Puedes explicarlo? Normalmente los componentes ya "pasan" el foco cuando pulsas el TAB.

[PabloZZZ]

Empezado por Neftali

Esto no lo entedí. ¿Puedes explicarlo? Normalmente los componentes ya "pasan" el foco cuando pulsas el TAB.

Si... no se por qué tenian el tabstop en false...
Está quedando muy lindo...

Ahora me falta Capturar el click del mouse para cambiar el estado a down...

hice:
procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
procedure WMLButtonUp(var Message: TWMLButtonUp); message WM_LBUTTONUP;

y en el create le puse
ControlStyle := [csCaptureMouse, csClickEvents];

pero no entra en el evento
probé tambien hacerlo heredar de TButtonControl, pero no logro colgarme del mouse left button down

Z