TPZBtn
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 |
Cita:
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). |
Cita:
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 |
Cita:
|
Cita:
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 |
La franja horaria es GMT +2. Ahora son las 19:56:42. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi