Show Hint

[ecfisa]

Hola Neeruu.

escafandra ya te dió una excelente respuesta. Pero, para no tirar el código en que estaba , otra opción similar:

Código Delphi [-]
procedure ShowMsgHint(WCtrl: TWinControl; const MSG: string);
var
  P: TPoint;
begin
  WCtrl.ShowHint:= True;
  WCtrl.Hint:= MSG;
  P.X := WCtrl.Left + WCtrl.Width div 2;
  P.Y := WCtrl.Top + WCtrl.Height div 2;
  Mouse.CursorPos:= WCtrl.Parent.ClientToScreen(P);
end;

Uso:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMsgHint(Button1, 'Un mensaje');
  ShowMsgHint(ComboBox1,'Otro mensaje');
end;

Saludos

[Neeruu]

Hola a todos, gracias por sus respuestas...

Pero le comento que no es lo que necesito....
Con los ejemplo que me pasaron el cursor se posiciona en el button que tiene el el Hint... pero yo no puedo permitir que el cursor salte hasta el button porque mi operario esta trabajando....

Adjunto una imagen....

Nada de reirse con mi cuadro...

Saluda Atte Neruu!!!

[Neeruu]

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!!!