FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
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
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#2
|
|||
|
|||
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; |
#3
|
|||
|
|||
Muchas gracias.
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Comentario "aplastante" contra los que atacan la "piratería" | Casimiro Notevi | La Taberna | 12 | 07-03-2010 14:03:02 |
Necesito llamar a métodos de clases "hija" desde su clase "padre" | Flecha | OOP | 17 | 20-04-2007 00:03:53 |
Ventana MDI, "Siempre visible" y "Pantalla completa" | ixMike | API de Windows | 7 | 11-04-2007 18:36:55 |
¿cuál es mejor: "close" o "application.terminate"? | unreal4u | Varios | 5 | 05-03-2007 11:01:19 |
"ChequeaEsto" elegido el futuro "Killer CLubDelphi" | mamcx | Noticias | 51 | 31-10-2006 20:56:32 |
|