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