🚀 go-pugleaf

On 17 Jan 2006 11:24:26 -0700, "JD" <nospam@nospam.com> wrote:
>    http://groups.google.com/group/borland.public.cppbuilder.vcl.components.using/msg/57af11b9a35689b0

JD, 

Unfortunately I'm having some problems integrating your TrayIcon code
into my actual project. 

class TMainForm : public TForm 
{ 
public:                 
   class TAnimatedTrayIcon *MySystemTray; 
   void __fastcall MyBalloonClick(TObject *Sender); 
   ... 
} 

void __fastcall TMainForm::MyBalloonClick(TObject *Sender) 
{ 
   Caption="Click"; 
} 

void __fastcall TMainForm::FormCreate(TObject *Sender) 
{ 
   MySystemTray=new TAnimatedTrayIcon(this); 
   MySystemTray->ImageList=SysTrayImageList; 
   MySystemTray->StaticIndex=NEUTRAL_AGENT; // =0 
   MySystemTray->BalloonIconType=itInformation; 
   MySystemTray->OnBalloonClick=MyBalloonClick; 
   MySystemTray->BalloonCaption="Caption"; 
   MySystemTray->BalloonText="Text"; 
   MySystemTray->Active=true; 
} 

Following error code is executed when I run it : 
   if( FParentForm != Application->MainForm ) 
   { 
      MessageDlg( "TAnimatedTrayIcon can only be placed on the Main
Form.", mtError, TMsgDlgButtons() << mbOK, 0 ); 
      Application->Terminate(); 
   } 
Which is then followed by an access violation. 

However, TMainForm is auto-created and assigned to be the MainForm. 
The line of code triggering this error is this one : 
MySystemTray->BalloonText="Click here to download these updates."; 
Leaving out this line causes the app to work with systray icon, but
without balloons. 
However, closing the app still results in an access violation. 

I changed the first line into : 
MySystemTray=new TAnimatedTrayIcon(Application->MainForm); 
But this resulted in following error : 
if( !Owner ) throw Exception("You must assign an Owner."); 


The TrayIcon does work fine when I ommit the balloon code : 
   MySystemTray=new TAnimatedTrayIcon(this); 
   MySystemTray->ImageList=SysTrayImageList; 
   MySystemTray->StaticIndex=NEUTRAL_AGENT; 
   MySystemTray->Active=true; 

I've disabled my own code as much as possible in the
FormCreate/FormClose to eliminate the possibility that my own code is
somehow messing things up, but even then the problems remain as soon
as I start using the balloon. 

I've initially played with the TrayIcon and its balloons on an empty
project with just a single form and this worked great. However, if I
integrate it into my current project things start going wrong and I
haven't got a clue on what is going wrong. 

Any help is VERY much appreciated.