RE: [DUG] System tray program function when screensaver on.

2007-07-04 Thread Conor Boyd
Can't comment about TCP, but I found with one app that I've written
recently that used window messages (i.e. SendMessage, PostMessage etc)
that window messaging didn't appear to work while the screensaver was
active.

In my case I was writing both an app to live in the system tray and the
screensaver.  I was wanting to use messages to pass info from the
screensaver to the system tray app, but it just wouldn't work.

I ended up using something from the madShi collection instead to pass
information between the processes.

Not a direct answer to your problem, but maybe it's some help.

C.

-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
On Behalf Of Phil Scadden

Got some puzzling behaviour. I have an app that normally lives in system
tray. It takes to a custom server on another machine via TCP using Indy
tcpClient readln with timeout. Normal behaviour is that the tray icon
will go into a flicker mode if it gets a message from the TCP server.
However, if the machine has dropped into screensaver mode, the flicker
state isnt triggered despite the server sending a message in that
period. Could the screensaver be interfering with TCP communication?

___
NZ Borland Developers Group - Delphi mailing list
Post: delphi@delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to [EMAIL PROTECTED] with Subject: unsubscribe


Re: [DUG]: System Tray app

2001-09-05 Thread Ross Levis

Thanks Patrick.  I wasn't going to have a visible form at all but it 
turns out I do need one and your example was very useful.

Cheers,
Ross.

Patrick Dunford wrote:

>The one I have used which I am happy with is mdTrayIcon by Martin Djaernes.
>
>You can make an application autohide to the system tray (like the Volume
>Control popup adjustment) with the following code by firing the
>Application.On Deactivate event, telling it to hide the main form. I suppose
>setting the form to minimise first would produce the animated effect that
>ZoneAlarm and other tray apps sometimes produce.
>
>If you have a close button on the title bar and want to minimise to the
>system tray when they click the close button (like ZoneAlarm does), use this
>as an example:
>
>1. Add a property to the form called PermitClose.
>2. Set this to false in FormCreate
>3. In the FormCloseQuery event handler, put this code:
>
>   MainForm.Hide;
>   CanClose := PermitClose;
>
>4. In the private declarations of your form, put this procedure declaration
>
>procedure EndSession(var Message : TMessage); message
>WM_QUERYENDSESSION;
>
>5. Here is the code of this procedure:
>
>procedure TMainForm.EndSession(var Message : TMessage) ;
>begin
>   PermitClose := true;
>   Message.Result := Integer(True);
>end;
>
>How does this work? The CloseQuery event procedure is called every time the
>user tries to close the form. The default behaviour is to tell Delphi that
>the application can't be closed, so the form appears to disappear to the
>system tray.
>
>The EndSession procedure is a message handler for the WM_QUERYENDSESSION
>operating system message. Windows sends this message to each running
>application whenever the user attempts to shut down, log off or restart
>their computer. The message essentially asks the application whether it can
>exit or not. It does not shut down the application at this point. If the
>application returns false then Windows will not be shut down. Returning true
>indicates the application can be exited.
>The actual attempt to close the application will occur when the message
>WM_ENDSESSION is sent by Windows, which occurs if all applications return
>true.
>
>>-Original Message-
>>From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
>>Behalf Of Ross Levis
>>Sent: Wednesday, 5 September 2001 16:45
>>To: Multiple recipients of list delphi
>>Subject: RE: [DUG]: System Tray app
>>
>>
>>Well I downloaded & installed RXLIB and setup a basic tray app.
>>The EXE is
>>299k - 12k larger than an empty form.  Doesn't seem too bad.  I'll keep an
>>eye on that if I use other controls.
>>
>>Thanks for the info, however.
>>
>>Cheers,
>>Ross.
>>
>>
>>[EMAIL PROTECTED] wrote:
>>
>>>You already have source on your pc that puts an icon into the
>>>tray area.
>>>Look at the source for the socket server (it's in the source\vcl
>>>directory).  Watch out using RXLib.  Last time I used it, it added
>>>tremendous bloat to the application because everything is so closely
>>>coupled.  That may have changed now though.
>>>
>>>JED
>>>
>>>>I only want it to appear in the System Tray with a few
>>>>
>>>right-click options
>>>like Enable/Disable, Exit etc.
>>>


---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/



RE: [DUG]: System Tray app

2001-09-04 Thread Patrick Dunford

The one I have used which I am happy with is mdTrayIcon by Martin Djaernes.

You can make an application autohide to the system tray (like the Volume
Control popup adjustment) with the following code by firing the
Application.On Deactivate event, telling it to hide the main form. I suppose
setting the form to minimise first would produce the animated effect that
ZoneAlarm and other tray apps sometimes produce.

If you have a close button on the title bar and want to minimise to the
system tray when they click the close button (like ZoneAlarm does), use this
as an example:

1. Add a property to the form called PermitClose.
2. Set this to false in FormCreate
3. In the FormCloseQuery event handler, put this code:

   MainForm.Hide;
   CanClose := PermitClose;

4. In the private declarations of your form, put this procedure declaration

procedure EndSession(var Message : TMessage); message
WM_QUERYENDSESSION;

5. Here is the code of this procedure:

procedure TMainForm.EndSession(var Message : TMessage) ;
begin
   PermitClose := true;
   Message.Result := Integer(True);
end;

How does this work? The CloseQuery event procedure is called every time the
user tries to close the form. The default behaviour is to tell Delphi that
the application can't be closed, so the form appears to disappear to the
system tray.

The EndSession procedure is a message handler for the WM_QUERYENDSESSION
operating system message. Windows sends this message to each running
application whenever the user attempts to shut down, log off or restart
their computer. The message essentially asks the application whether it can
exit or not. It does not shut down the application at this point. If the
application returns false then Windows will not be shut down. Returning true
indicates the application can be exited.
The actual attempt to close the application will occur when the message
WM_ENDSESSION is sent by Windows, which occurs if all applications return
true.

> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of Ross Levis
> Sent: Wednesday, 5 September 2001 16:45
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: System Tray app
>
>
> Well I downloaded & installed RXLIB and setup a basic tray app.
> The EXE is
> 299k - 12k larger than an empty form.  Doesn't seem too bad.  I'll keep an
> eye on that if I use other controls.
>
> Thanks for the info, however.
>
> Cheers,
> Ross.
>
>
> [EMAIL PROTECTED] wrote:
> > You already have source on your pc that puts an icon into the
> > tray area.
> > Look at the source for the socket server (it's in the source\vcl
> > directory).  Watch out using RXLib.  Last time I used it, it added
> > tremendous bloat to the application because everything is so closely
> > coupled.  That may have changed now though.
> >
> > JED
> >
> > >I only want it to appear in the System Tray with a few
> > right-click options
> > like Enable/Disable, Exit etc.
> >
> >
> >
> > **
> > This email and any files transmitted with it are confidential and
> > intended solely for the use of the individual or entity to whom they
> > are addressed. If you have received this email in error please notify
> > the [EMAIL PROTECTED]
> >
> > **
> > --
> > -
> > New Zealand Delphi Users group - Delphi List -
> > [EMAIL PROTECTED]
> >   Website: http://www.delphi.org.nz
> > To UnSub, send email to: [EMAIL PROTECTED]
> > with body of "unsubscribe delphi"
> > Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
> >
> --
> -
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
>   Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
> Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
>

---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/



RE: [DUG]: System Tray app

2001-09-04 Thread Ross Levis

Well I downloaded & installed RXLIB and setup a basic tray app.  The EXE is
299k - 12k larger than an empty form.  Doesn't seem too bad.  I'll keep an
eye on that if I use other controls.

Thanks for the info, however.

Cheers,
Ross.


[EMAIL PROTECTED] wrote:
> You already have source on your pc that puts an icon into the 
> tray area.
> Look at the source for the socket server (it's in the source\vcl
> directory).  Watch out using RXLib.  Last time I used it, it added
> tremendous bloat to the application because everything is so closely
> coupled.  That may have changed now though.
> 
> JED
> 
> >I only want it to appear in the System Tray with a few 
> right-click options
> like Enable/Disable, Exit etc.
> 
> 
> 
> **
> This email and any files transmitted with it are confidential and
> intended solely for the use of the individual or entity to whom they
> are addressed. If you have received this email in error please notify
> the [EMAIL PROTECTED]
> 
> **
> --
> -
> New Zealand Delphi Users group - Delphi List - 
> [EMAIL PROTECTED]
>   Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED] 
> with body of "unsubscribe delphi"
> Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
> 
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/



Re: [DUG]: System Tray app

2001-09-04 Thread jnorth


You already have source on your pc that puts an icon into the tray area.
Look at the source for the socket server (it's in the source\vcl
directory).  Watch out using RXLib.  Last time I used it, it added
tremendous bloat to the application because everything is so closely
coupled.  That may have changed now though.

JED

>I only want it to appear in the System Tray with a few right-click options
like Enable/Disable, Exit etc.



**
This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom they
are addressed. If you have received this email in error please notify
the [EMAIL PROTECTED]

**
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/



re: [DUG]: System Tray app

2001-09-04 Thread NIRAV KAKU

or you could do it the good old WinAPI way and write the code
which is not any effort at all. Read more on NOTIFYICONDATA.

regards,
NIRAV KAKU


On 4 Sep 01, at 18:54, Ben Taylor wrote:

> hi! the easy drag/drop way:
>
> - get rxlib, drop the trayicon component onto the main form
> - set the icon etc if you want
> - setup a popupmenu with items for 'exit' etc.
>   (exit.onclick should just need form.close)
> - edit project source(menu is project/view source').
>   before the form create stuff add the line:
>   Application.ShowMainForm := False;
> - may also need to have form.visible:=false too...
>
> see if that works :-)
>
> > I only want it to appear in the System Tray with a few
> > right-click options like Enable/Disable, Exit etc.
>
>
>
>
> ---
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
>   Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
> Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
>



- From the Shreemat Bhägwat Gïta -
'Sarcasm is the lowest form of wit.'
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/



RE: [DUG]: System Tray app

2001-09-04 Thread Ross Levis

Sounds good Ben, thanks.

Ross.

Ben Taylor wrote:
> hi! the easy drag/drop way:
> 
> - get rxlib, drop the trayicon component onto the main form
> - set the icon etc if you want
> - setup a popupmenu with items for 'exit' etc. 
>   (exit.onclick should just need form.close)
> - edit project source(menu is project/view source'). 
>   before the form create stuff add the line:
>   Application.ShowMainForm := False;
> - may also need to have form.visible:=false too...
> 
> see if that works :-)
> 
> > I only want it to appear in the System Tray with a few 
> > right-click options like Enable/Disable, Exit etc.
> 
> 
> 
> 
> --
> -
> New Zealand Delphi Users group - Delphi List - 
> [EMAIL PROTECTED]
>   Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED] 
> with body of "unsubscribe delphi"
> Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
> 
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/



re: [DUG]: System Tray app

2001-09-04 Thread Ben Taylor

hi! the easy drag/drop way:

- get rxlib, drop the trayicon component onto the main form
- set the icon etc if you want
- setup a popupmenu with items for 'exit' etc. 
  (exit.onclick should just need form.close)
- edit project source(menu is project/view source'). 
  before the form create stuff add the line:
  Application.ShowMainForm := False;
- may also need to have form.visible:=false too...

see if that works :-)

> I only want it to appear in the System Tray with a few 
> right-click options like Enable/Disable, Exit etc.




---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/



RE: [DUG]: System Tray app

2001-09-04 Thread Nahum Wild

Performing a search on a couple of Delphi component sites should reveal some
good, free including source, system tray components.

http://www.delphipages.com
http://www.torry.net


Nahum.

> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of Ross Levis
> Sent: Wednesday, 5 September 2001 13:43
> To: Multiple recipients of list delphi
> Subject: [DUG]: System Tray app
>
>
> Hi all
>
> My next project is to write a scheduler utility which will
> contain timer
> events but will not require a visible form for user
> interaction as it will
> be reading all the options setup in another program.  I only
> want it to
> appear in the System Tray with a few right-click options like
> Enable/Disable, Exit etc.
>
> I've never written anything like this before.  I presume some
> WinAPI calls
> are necessary which I also have never done before.
> Any helpful hints appreciated.
>
> Cheers,
> Ross.
> --
> -
> New Zealand Delphi Users group - Delphi List -
> [EMAIL PROTECTED]
>   Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
> Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
>

---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/



Re: [DUG]: System Tray

2001-05-24 Thread Paul Lowman
ÿþ<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML><HEAD>

<META http-equiv=Content-Type content="text/html; charset=unicode">

<META content="MSHTML 5.50.4134.600" name=GENERATOR>

<STYLE></STYLE>

</HEAD>

<BODY bgColor=#ffffff>

<DIV><FONT face=Arial size=2>Laurie</FONT></DIV>

<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>

<DIV><FONT face=Arial size=2>If you send your email address I'll send you a 

component I have used successfully</FONT></DIV>

<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>

<DIV><FONT face=Arial size=2>Paul Lowman</FONT></DIV>

<DIV>&nbsp;</DIV>

<DIV><FONT face=Arial size=2>Lowman Consulting Ltd.<BR>Embedded Systems &amp; 

Software</FONT></DIV>

<DIV>&nbsp;</DIV>

<DIV><FONT face=Arial size=2><A 

href="mailto:paul_lowman@xtra.co.nz">paul_lowman@xtra.co.nz</A></FONT></DIV></BODY></HTML>



RE: [DUG]: System Tray

2001-05-24 Thread James Low



I 
THINK the RX suite has one too ...

  -Original Message-From: Laurie Bisman 
  [mailto:[EMAIL PROTECTED]]Sent: 24 May 2001 18:58To: 
  Multiple recipients of list delphiSubject: [DUG]: System 
  Tray
  I have seen various components here and there for 
  minimizing your application to the system tray. 
   
  Anyone out there know of a good component (D5 / 
  D6) or perhaps some other method of doing this.
   
  ¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤øø¤    
  Laurie Bisman - New 
  Zealand¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤øø¤


Re: [DUG] System tray (more..)

2001-05-24 Thread NIRAV KAKU

oops I forgot the nitty gritty parts...

FIconData: TNotifyDataIcon (record}

To remove
  procedure RemoveIconInSysTray;
  begin
Shell_NotifyIcon(NIM_Delete, @FIconData);
  end;


NIRAV KAKU
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"



Re: [DUG]: System Tray

2001-05-23 Thread jnorth


www.dream-com.com  has one.  Works ok, although has a couple of issues I
have noticed but nothing you can't work around.  it's free.

JED

I have seen various components here and there for minimizing your
application to the system tray.


---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"



Re: [DUG]: System Tray

1999-10-13 Thread Nic Wise

Look on the Delphi Super Page (developer.href.com) or similar - there
are 101 tray icon components. If you REALLY can't find one, mail me - I
have one that works, tho its not exceptional.

Nic.

Joel van Velden wrote:
> 
> Hi
> 
> I was wondering if any of you know how to have your program in the system
> tray, instead of the taskbar.
> 
> Also, how can you create a menu when the icon (in the system tray) is right
> clicked on?
> 
> Thanks in advance
> Joel
> 
> __
> Get Your Private, Free Email at http://www.hotmail.com
> ---
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
>   Website: http://www.delphi.org.nz

--
Nic Wise - Inprise New Zealand / Brocker Technologies Web Monkey.
mob:+64.21.676.418 - wk:+64.9.481. x9753 - wk-em:[EMAIL PROTECTED]
hm: +64.9.277.5309 - hm-em:[EMAIL PROTECTED]
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz



Re: [DUG]: System tray.

1999-06-14 Thread Matthew Comb

Ok I will goober of the year award !

:)

Matt.
- Original Message -
From: <[EMAIL PROTECTED]>
To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
Sent: Tuesday, June 15, 1999 12:07 PM
Subject: Re: [DUG]: System tray.


> Quoting Matthew Comb <[EMAIL PROTECTED]>:
>
>
> > How do you go about adding popupmenu items to the system tray icon?
>
> >From memory you add a PopupMenu to the PopupMenu property
>
> snip
> --
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
>   Website: http://www.delphi.org.nz
>
>

---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz



Re: [DUG]: System tray.

1999-06-14 Thread pdunford

Quoting Matthew Comb <[EMAIL PROTECTED]>:


> How do you go about adding popupmenu items to the system tray icon?

>From memory you add a PopupMenu to the PopupMenu property

snip
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz



RE: [DUG]: System tray.

1999-06-14 Thread Alistair George

Whoops, that wasnt showmain you wanted, it was a popup menu item. In the
events page of your tray icon use click event and call the click proc
'Popmenu' use code like the following:
procedure TPRForm.Popmenu(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PopupMenu1.Popup(X, Y);
end;


You will have to manufacture your PopupMenu1 to suit - thats easy squeezy.

---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz



RE: [DUG]: System tray.

1999-06-14 Thread Coulter, Jeremy

I put this code in either the form Paint event.

Jeremy Coulter 
Application Developer

Application Development Centre
Compaq Computer New Zealand Ltd.

Phone:  64 3 371 5724 (DD)
Fax:64 3 371 5744
Cell:021 2150435
E-mail:  [EMAIL PROTECTED]
Private E-Mail:  [EMAIL PROTECTED]


-Original Message-
From: Matthew Comb [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, June 15, 1999 10:37
To: Multiple recipients of list delphi
Subject: Re: [DUG]: System tray.


Thanks to everyone who replied about this.

Chris Crowe's method works to hide the main form from the taskbar in the
first instance so that is good.

With ShowWindow(Application.Handle, SW_HIDE), I am unsure of where to put
this in my code. It won't work inthe oncreate for the form but it does work
in a button or something. Any suggestions where to put it?

How do you go about adding popupmenu items to the system tray icon?

Cheers,

Matt.
- Original Message -
From: Mark Derricutt <[EMAIL PROTECTED]>
To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
Sent: Monday, June 14, 1999 3:36 PM
Subject: RE: [DUG]: System tray.


> On Mon, 14 Jun 1999, Patrick Dunford wrote:
>
> > Once you call the Hide method of the main form then it disappears
> > completely.
>
> Hiding the main form isn't what you really want, you want to hide the
> application window, I use:
>
>   ShowWindow(Application.Handle, SW_HIDE);
>
> Which does it.
>
> --
> Mark Derricutt, PB Power NZ Ltd (http://www.pbpower.net)
> Now Playing... Fish - Raingods with Zippos
>
> --
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
>   Website: http://www.delphi.org.nz
>
>

---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz


 Jeremy Coulter.vcf


RE: [DUG]: System tray.

1999-06-14 Thread Alistair George

> With ShowWindow(Application.Handle, SW_HIDE), I am unsure of where to put
> this in my code. It won't work inthe oncreate for the form but it
> does work
> in a button or something. Any suggestions where to put it?
Do the following in your project file eg myapp.dpr (I use a tray icon in the
following app)
  Application.Initialize;
  Application.HelpFile := 'myapp.hlp';
  Application.ShowMainForm := False;

> How do you go about adding popupmenu items to the system tray icon?
You should find the tray icon component has an onclick event and
onmousemove, so in my case I put Showmain in the onclick event handler which
is on your component properties events;
you can work out the code to suit but here is a cut and paste of mine:

procedure TPRForm.ShowMain;
begin
  audrec := false;
  RxTrayIcon1.Animated := false;
//Disable all timers to ensure Zapping and other msg processing is stopped
  RxTimer2.enabled := false;
  RXTimer3.Enabled := false;
//  Add conditional for OSH here as well!
//  PRForm.FormStyle := fsStayOnTop;
  PRForm.Visible := true;
  Panel1.Visible := true;
  PRForm.Show;
  PRForm.BringToFront;

---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz



Re: [DUG]: System tray.

1999-06-14 Thread Matthew Comb

Thanks to everyone who replied about this.

Chris Crowe's method works to hide the main form from the taskbar in the
first instance so that is good.

With ShowWindow(Application.Handle, SW_HIDE), I am unsure of where to put
this in my code. It won't work inthe oncreate for the form but it does work
in a button or something. Any suggestions where to put it?

How do you go about adding popupmenu items to the system tray icon?

Cheers,

Matt.
- Original Message -
From: Mark Derricutt <[EMAIL PROTECTED]>
To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
Sent: Monday, June 14, 1999 3:36 PM
Subject: RE: [DUG]: System tray.


> On Mon, 14 Jun 1999, Patrick Dunford wrote:
>
> > Once you call the Hide method of the main form then it disappears
> > completely.
>
> Hiding the main form isn't what you really want, you want to hide the
> application window, I use:
>
>   ShowWindow(Application.Handle, SW_HIDE);
>
> Which does it.
>
> --
> Mark Derricutt, PB Power NZ Ltd (http://www.pbpower.net)
> Now Playing... Fish - Raingods with Zippos
>
> --
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
>   Website: http://www.delphi.org.nz
>
>

---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz



RE: [DUG]: System tray.

1999-06-13 Thread Chris Crowe



Try
 
Before 
the application.createForm()
 
Application.ShowMainForm := FALSE;
...
Application.CreateForm();
Application.RUN;
 
This 
way there is no flicker at all.
 
ps: 
Not sure what version of Delphi that was added, but it works in 
4
 
Chris

  -Original Message-From: [EMAIL PROTECTED] 
  [mailto:[EMAIL PROTECTED]]On Behalf Of Patrick 
  DunfordSent: Monday, 14 June 1999 15:30To: Multiple 
  recipients of list delphiSubject: RE: [DUG]: System 
  tray.
  Once 
  you call the Hide method of the main form then it disappears 
  completely.
  
-Original Message-From: [EMAIL PROTECTED] 
[mailto:[EMAIL PROTECTED]]On Behalf Of Matthew 
CombSent: Monday, 14 June 1999 14:58To: Multiple 
recipients of list delphiSubject: Re: [DUG]: System 
tray.
Thanks Patrick I downloaded the mentioned component and it 
seems to be working fine, except how do you make the main form not appear in 
the taskbar as this sort of defeats the purpose of having the icon in the 
system tray.


RE: [DUG]: System tray.

1999-06-13 Thread Mark Derricutt

On Mon, 14 Jun 1999, Patrick Dunford wrote:

> Once you call the Hide method of the main form then it disappears
> completely.

Hiding the main form isn't what you really want, you want to hide the
application window, I use:

  ShowWindow(Application.Handle, SW_HIDE);

Which does it.

-- 
Mark Derricutt, PB Power NZ Ltd (http://www.pbpower.net)
Now Playing... Fish - Raingods with Zippos

---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz



RE: [DUG]: System tray.

1999-06-13 Thread Patrick Dunford



Once 
you call the Hide method of the main form then it disappears 
completely.

  -Original Message-From: [EMAIL PROTECTED] 
  [mailto:[EMAIL PROTECTED]]On Behalf Of Matthew 
  CombSent: Monday, 14 June 1999 14:58To: Multiple 
  recipients of list delphiSubject: Re: [DUG]: System 
  tray.
  Thanks Patrick I downloaded the mentioned component and it 
  seems to be working fine, except how do you make the main form not appear in 
  the taskbar as this sort of defeats the purpose of having the icon in the 
  system tray.


Re: [DUG]: System tray.

1999-06-13 Thread Nic Wise

Matt,

ShowWindow(Application.handle, SW_HIDE)

I think.

N
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz



Re: [DUG]: System tray.

1999-06-13 Thread Matthew Comb



Thanks Patrick I downloaded the mentioned component and it 
seems to be working fine, except how do you make the main form not appear in the 
taskbar as this sort of defeats the purpose of having the icon in the system 
tray.
 
Cheers,
 
Matt.

  - Original Message - 
  From: 
  Patrick Dunford 
  To: Multiple recipients of list delphi 
  Sent: Monday, June 14, 1999 2:24 PM
  Subject: RE: [DUG]: System tray.
  
  Use 
  one of numerous tray icon components
   
  The 
  one I use is mdTray which is available free from 
  http://www.djernaes.dk/martin/
   
  
  Patrick 
  Dunford, Christchurch, NZhttp://patrick.dunford.com/ 
  
-Original Message-From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On 
Behalf Of Matthew CombSent: Monday, 14 June 1999 
14:21To: Multiple recipients of list delphiSubject: 
[DUG]: System tray.
Can someone please tell me how to make an application load 
as a system tray icon down the bottom on the taskbar ?
 
Still also trying to find out how to detect/install 
network protocols into windows.
 
Cheers,
 
Matt.


Re: [DUG]: System tray.

1999-06-13 Thread Nic Wise

look on the DSP (developer.href.com - might be plural) or similar -
there
are loads of components that do this. If not, drop me a line - I have
one that works.

Nic.


> Matthew Comb wrote:
> 
> Can someone please tell me how to make an application load as a system
> tray icon down the bottom on the taskbar ?
> 
> Still also trying to find out how to detect/install network protocols
> into windows.
> 
> Cheers,
> 
> Matt.
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
  Website: http://www.delphi.org.nz



RE: [DUG]: System tray.

1999-06-13 Thread Patrick Dunford



Use 
one of numerous tray icon components
 
The 
one I use is mdTray which is available free from 
http://www.djernaes.dk/martin/
 

Patrick Dunford, 
Christchurch, NZhttp://patrick.dunford.com/ 

  -Original Message-From: [EMAIL PROTECTED] 
  [mailto:[EMAIL PROTECTED]]On Behalf Of Matthew 
  CombSent: Monday, 14 June 1999 14:21To: Multiple 
  recipients of list delphiSubject: [DUG]: System 
  tray.
  Can someone please tell me how to make an application load 
  as a system tray icon down the bottom on the taskbar ?
   
  Still also trying to find out how to detect/install network 
  protocols into windows.
   
  Cheers,
   
  Matt.