Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Botón con areas transparentes.. (transparentes?) (https://www.clubdelphi.com/foros/showthread.php?t=23213)

elcigarra 11-07-2005 03:14:12

Botón con areas transparentes.. (transparentes?)
 
Tengo un botón con areas transparentes (x. ej. un borón circular) de tipo TGraphicControl de los que hay varios ejemplos en internet. Esto es, creo una región con CreateEllipticRegion(...) y luego al hacer click:
Código:

if not PtInRegion(Rgn,xPos,yPos) then exit;
....{Si pasa por aquí hago lo que haya que hacer en el click}

El problema es, aunque lo que se vea sea circular, el canvas del control es rectangular es decir que si hay otro componente (x ej otro botón) bajo la zona transparente del rectángulo, éste ni se entera que el tipo hace un mousedown ya que aunque no se vea, el click se hizo sobre el canvas del componente de arriba.

Hay alguna forma de que un control que está bajo la zona transparente de otro pueda recibir el foco, mouseenter, mouseleave, mousemove etc como si el de arriba no estuviera?

Aclaración: se me ocurre que no es simplemente dar un "pseudo" mousemove viendo si las coordenadas globales del cursor coinciden con el de abajo ya que esto solo debería pasar en la zona que coincide con la parte transparente del de arriba, no en todo el control.

Disculpen si no se entiende pero me llevó dos días redactar una preguna tan extraña. Si necesitan más código puedo poner todo el control para que se entienda más lo que quiero.

Gratzie

elcigarra 11-07-2005 03:20:04

perdón...
 
antes que me aporreen... donde dije "pueda recibir foco..." me retracto, no es necesario el foco, sino no hubiera sido TGraphicControl, el pobre. Lo que quise decir es que detectara un mousemove y un mousedown en su parte visible, por ejemplo.


La franja horaria es GMT +2. Ahora son las 02:10:16.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi