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/
