MensajePublicado: Mie 04 Abr, 2018 11:17 am    Asunto: Icono en un TTrayIcon Responder citando
Código:
void __fastcall TForm1::::FormActivate(TObject *Sender)
{
     TImageList *list = new TImageList(Application->Icon->Width, Application->Icon->Height);

     try
     {
          list->AddIcon(Application->Icon);
          TrayIcon1->Icons     = list;
          TrayIcon1->IconIndex = 0;
     }
     __finally
     {
          delete list;
     }
}
//---------------------------------------------------------------------------

_________________
Un saludo

Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA)