Show Hint

[Neeruu]

Hola a todos...

Necesito mostrar el Hint de un Button pero necesito manejar cuando se muestra este hint.... hasta ahora la única forma de mostrar el hint que encontré es cuando se pasa el mouse por arriba del botton, yo necesito, desde un procedimiento, decirle que me muestre el hint de ese Button independientemente de donde este el mouse...

Estoy trabajando con el BallomHint de Delphi 2010... pero no logro que se posiciones sobre el Button...

El Button se encuentra contenido dentro de un panel de un statusbar...


Para que es esto.... Explico por si alguien tiene otra solución...

Cada cierto tiempo (Timmer) verifico unos datos y tengo que informar al operario del sistema, mostrando le un mensaje pero que no le impida seguir trabajando ya que el operario puede estar en cualquiera de los módulos del sistema...

Por eso yo pensé poner un Button en el statusbar, y cuando tenga que informarle que me muestre un Hint sobre el Button, y al hacer click sobre ese Button pueda ver la información que tiene que controlar...

Eso es lo que tengo que hacer... esta casi todo, me falta decirle desde el timer que me muestre el hint!!!


Espero haberme hecho entender...

Saluda Atte Neeruu!!!

[Casimiro Notevi]

Recuerda poner títulos descriptivos a tus preguntas, gracias.

[[escafandra]]

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  P: TPoint;
begin
   Button1.ShowHint:= true;
   P.X:= 10;
   P.Y:= 10;
   Windows.ClientToScreen(Button1.Handle, P);
   SetCursorPos(P.X, P.Y);
   Application.ActivateHint(P);
end;

Saludos.

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