Jump to content


Photo

Mostrar mensaje emergente (balloontip) en el systray (junto al reloj).


  • Please log in to reply
No replies to this topic

#1 monchito_elroro

monchito_elroro

    Advanced Member

  • Miembros
  • PipPipPip
  • 260 posts

Posted 23 July 2012 - 08:24 PM

Buenas con todos, quisiera compartirles este pequeño código que puede que les sirva,
resulta que una vez quize saber como mostrar esos mensajitos tipo pensamiento en el
systray (osea junto al reloj)... recuerdo que una vez lo hice pero se me olvido, hoy
practicando otra vez logró encontrar de nuevo la manera y se los comparto:

Teniendo el componente “Trayicon” ponemos el siguiente código:



delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. begin
  3.   TrayIcon1.BalloonTitle:='Monchito';
  4.   TrayIcon1.BalloonHint:='Hola amigos como están .....!!!';
  5.   TrayIcon1.ShowBalloonHint;  // este era el principal
  6. End;



Me alegra encontrar esta manera tan simple de hacerla y se que a alguien le servirá.

Saludos.  :) :)
  • 0




IP.Board spam blocked by CleanTalk.