Tema: Show Hint
Ver Mensaje Individual
  #6  
Antiguo 22-03-2014
Neeruu Neeruu is offline
Miembro
 
Registrado: oct 2007
Posts: 512
Reputación: 19
Neeruu Va por buen camino
Cool

Solucionado...

Gracias a por las ayuda, los códigos compartidos me ayudaron a solucionar el problema...

Comparto con ustedes que estaba haciendo yo y como quedo el código final que anda....


Así era mi Código:
Código Delphi [-]
procedure MyShowHint;
var P: TPoint;
iLeft:Integer;
begin
  iLeft:=dxStatusBar.Panels[0].Width+
  dxStatusBar.Panels[1].Width+
  dxStatusBar.Panels[2].Width+
  dxStatusBar.Panels[3].Width;

  P := Point(iLeft, FrmMain.Height);
  P := ScreenToClient(P);

  cxButton1.ShowHint := True;

  BalloonHint1.Title        := 'Titulo.';
  BalloonHint1.Description  := 'Mensaje!';
  BalloonHint1.ShowHint(P);
end;

Así quedo:

Código Delphi [-]
procedure MyShowHint;
var P: TPoint;
iLeft:Integer;
begin
   cxButton1.ShowHint:= true;
   P.X:= cxButton1.Width;
   P.Y:= 0;
   Windows.ClientToScreen(cxButton1.Handle, P);

   BalloonHint1.Title := 'Titulo';
   BalloonHint1.Description := 'Mensaje';
   BalloonHint1.ShowHint(P);
end;

Principales diferencias, de las cuales tengo que documentarme para ver el porque del asunto, es que en el primer ejemplo estaba utilizando un ScreenToClient, mientras que en el segundo ClientToScreen, en el primero las coordenadas estaban dadas según el tamaño del formulario principal y en el segundo están dadas según el tamaño del Panel del statusbar que contiene el button....

Espero que se entienda...

Saluda Atte Neeruu!!!
__________________
Saluda Atte Neeruu!!! :)
Responder Con Cita