"Hints-bocadillos"

[Wellnic]

Hola

Hay programas que muestran información, avisos, etc. en una especie de hint con un angulito apuntando a un elemento concreto, como se aprecia en esta imagen. ¿Cuál es la API encargada de tal menester?

[roman]

Bocadillos

Son globos o balones, como los de las historietas o comics. Busca balloon en los foros que ya en alguna ocasión se ha tratado esto.

pd: ya me dio hambre, voy a comer algo

// Saludos

[roman]

Je, je, ya veo:

Empezado por RAE

4. m. En grabados, dibujos, caricaturas, chistes gráficos, tebeos, etc., espacio, generalmente circundado por una línea curva que sale de la boca o cabeza de una figura, en el cual se representan palabras o pensamientos atribuidos a ella.

Yo sólo concocía los bocadillos que se comen.

// Saludos

[Wellnic]

Gracias, roman. Estos balloons siempre me recordaron a los tebeos que leía en mi infancia... mientras me comía un bocadillo .

Por lo que estoy leyendo, son bastante complicados de utilizar. Yo creía que iban a ser tan sencillos como los hints...

[[Lepe]]

No son difíciles, al menos los de Hints, y para ello busca por torry por "BalloonHints" que seguro encuentras uno fácil.

Yo uso uno de la JVCL y puedes decirle en qué control debe mostrarse el bocata.

Para usarlos en la barra de tarea, si se usa otra técnica distinta, aunque el "globito" tenga la misma apariencia.

Saludos

[andresilvaus]

var    IconData: TNotifyIconDataEx;       // Data of the tray icon wnd. 
 
. 
. 
. 
 
function TCoolTrayIcon.ShowBalloonHint(Title: String; Text: String; 
  IconType: TBalloonHintIcon; TimeoutSecs: TBalloonHintTimeOut): Boolean; 
// Show balloon hint. Return false if error. 
const 
  aBalloonIconTypes: array[TBalloonHintIcon] of Byte = 
    (NIIF_NONE, NIIF_INFO, NIIF_WARNING, NIIF_ERROR); 
begin 
  // Remove old balloon hint 
  HideBalloonHint; 
  // Display new balloon hint 
  with IconData do 
  begin 
    uFlags := uFlags or NIF_INFO; 
    StrLCopy(szInfo, PChar(Text), SizeOf(szInfo)-1); 
    StrLCopy(szInfoTitle, PChar(Title), SizeOf(szInfoTitle)-1); 
    TimeoutOrVersion.uTimeout := TimeoutSecs * 1000; 
    dwInfoFlags := aBalloonIconTypes[IconType]; 
  end; 
  Result := ModifyIcon; 
  { Remove NIF_INFO before next call to ModifyIcon (or the balloon hint will 
    redisplay itself) } 
  with IconData do 
    uFlags := NIF_ICON + NIF_MESSAGE + NIF_TIP; 
end; 
 
function TCoolTrayIcon.HideBalloonHint: Boolean; 
// Hide balloon hint. Return false if error. 
begin 
  with IconData do 
  begin 
    uFlags := uFlags or NIF_INFO; 
    StrPCopy(szInfo, ''); 
  end; 
  Result := ModifyIcon; 
end; 
 
. 
. 
. 
 
function TCoolTrayIcon.ModifyIcon: Boolean; 
// Change icon or tooltip if icon already placed 
begin 
  Result := False; 
  if InitIcon then 
    Result := Shell_NotifyIcon(NIM_MODIFY, @IconData); 
end;

[Wellnic]

Muchas gracias.