Ver Mensaje Individual
  #1  
Antiguo 26-11-2009
Avatar de ElDioni
[ElDioni] ElDioni is offline
Miembro Premium
 
Registrado: jul 2005
Ubicación: Murcia (España)
Posts: 935
Reputación: 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