Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-11-2009
Avatar de ElDioni
[ElDioni] ElDioni is offline
Miembro Premium
 
Registrado: jul 2005
Ubicación: Murcia (España)
Posts: 935
Poder: 19
ElDioni Va por buen camino
Que aparezca un Tpanel donde está el ratón

Hola, estoy intentando hacer aparecer un panel, que tiene una imagen, al pulsar con el botón derecho encima de un grid, según el registro del grid se carga una imagen u otra. Lo que pasa es que yo hago lo siguiente:

Código Delphi [-]
procedure TFrmListFabricacion.SMDBGrid2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if button=MbRight then
  begin
    imgclipart.Picture.LoadFromFile(dibujo);
    panel1.left:=x;
    panel1.Top:=y;    
    panel1.Visible:=true;
  end;
end;
Yo quiero que salga justo a la derecha y por debajo de la posición del ratón y de esta forma que estoy haciendo el ratón se queda dentro del TPanel y se tapa la posición donde estaba al mouse. ¿Como puedo conseguirlo?.
Gracias de antemano.
Un saludo.
Responder Con Cita
  #2  
Antiguo 26-11-2009
Avatar de ElDioni
[ElDioni] ElDioni is offline
Miembro Premium
 
Registrado: jul 2005
Ubicación: Murcia (España)
Posts: 935
Poder: 19
ElDioni Va por buen camino
Gracias pero ya he encontrado la solución, aunque ya había buscado antes no encontraba lo que buscaba, pero he repasado unos hilos donde se hablaba del screentoclient y con esto he podido solucionar mi problema, he hecho lo siguiente:

Código Delphi [-]
punto:=ScreenToClient(mouse.CursorPos);
panel1.left:=Punto.x;
panel1.Top:=Punto.y;
imgclipart.Picture.LoadFromFile(dibujo);
panel1.Visible:=true;

donde punto es una variable de tipo TPoint.
Un saludo a todos.
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
Donde Esta Mi Bd JUGUE Firebird e Interbase 2 10-03-2009 14:09:10
¿Donde está el servidor? Troffed Firebird e Interbase 4 07-03-2007 19:37:23
¿Dónde está el foco? Berto2003 Varios 2 01-03-2007 14:49:38
¿ y donde esta el canvas del TPanel ? gulder Varios 4 27-10-2006 23:37:35
donde está el error? :S jorodgar Varios 7 17-06-2005 16:32:08


La franja horaria es GMT +2. Ahora son las 22:37:52.


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
Copyright 1996-2007 Club Delphi