Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-11-2006
pascalutn2003 pascalutn2003 is offline
Miembro
 
Registrado: Sep 2003
Ubicación: Córdoba
Posts: 36
Poder: 0
pascalutn2003 Va por buen camino
Cool Componente

Hola a todos:

Resulta que estoy creando un componente similar a un combo, es un editor con un boton adentro.
Es un TGraphicControl y ya esta dibujado , el problema es que me gustaria saber si alguien sabe como hacer para que el click del mouse responda solo en determinada area del componente, mas precisamente sobre el area del boton, ya que presiono donde presiono el boton se "hunde".

Probe con GetCursorPos, realizando calculos con la posicion del cursor, defini una region y probe con la funcion ptInRegion (que se supone deberia funcionar puesto que Marco Cantu la utiliza y segun el funciona) y no hay caso.

Gracias de antemano
Responder Con Cita
  #2  
Antiguo 08-11-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: May 2003
Ubicación: Ciudad de México
Posts: 19.857
Poder: 10
roman Tiene un aura espectacularroman Tiene un aura espectacular
¿Por qué usas GetCursorPos? Si estás trabajando con el clic del ratón, lo lógico es que redefinas el método MouseDown (o MoseUp) y éste ya te pasa las coordenadas. Por otra parte imagino que te bastará con PtInRect en lugar de PtInRegion. Al no tener que definir una región, sino sólo un rectángulo, es más difícil que haya algún error.

// Saludos
Responder Con Cita
  #3  
Antiguo 09-11-2006
pascalutn2003 pascalutn2003 is offline
Miembro
 
Registrado: Sep 2003
Ubicación: Córdoba
Posts: 36
Poder: 0
pascalutn2003 Va por buen camino
Thumbs up Andaaaaaaaaaaaaaaaaa....

jejejejeje

Mil gracias master, me salvaste la vida.

Lo hice asi :

En el create

Boton:=Rect(Width-Height,2,Width-1,Height-1);

Y en el MouseDown

If (Assigned(KeyDown)) Then Begin

Punto.X:=Msg.XPos;
Punto.Y:=Msg.YPos;

If PtInRect(Boton,Punto) Then Begin

...

End;

End;
Espero les sirva para algo
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Componente VCL a OCX Pook OOP 4 27-04-2006 11:27:24
Componente chalys Varios 1 20-10-2005 09:11:47
Apuntar una propiedad de un componente a otra de otro componente Majo Varios 10 24-03-2004 20:46:39
Componente!! merlin Varios 0 24-12-2003 11:59:42
componente bd 32 rrojano Conexión con bases de datos 0 20-06-2003 19:24:08


La franja horaria es GMT +2. Ahora son las 15:14:18.


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