Foros Club Delphi - "Hints-bocadillos"

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - "Hints-bocadillos" (https://www.clubdelphi.com/foros/showthread.php?t=42868)

"Hints-bocadillos"

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?

:eek: Bocadillos :eek:

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 :D

// Saludos

Je, je, ya veo:

Cita:

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. :D

// Saludos

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

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

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

Código:

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;