RE: [DUG] System tray program function when screensaver on.
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
[DUG] System tray program function when screensaver on.
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? -- Phil Scadden, GNS Science Ltd 764 Cumberland St, Private Bag 1930, Dunedin, New Zealand Ph +64 3 4799663, fax +64 3 477 5232 ___ 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
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
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
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
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
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
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
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
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/
[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/
Re: [DUG]: System Tray
ÿþ< ! D O C T Y P E H T M L P U B L I C " - / / W 3 C / / D T D H T M L 4 . 0 T r a n s i t i o n a l / / E N " > < H T M L > < H E A D > < M E T A h t t p - e q u i v = C o n t e n t - T y p e c o n t e n t = " t e x t / h t m l ; c h a r s e t = u n i c o d e " > < M E T A c o n t e n t = " M S H T M L 5 . 5 0 . 4 1 3 4 . 6 0 0 " n a m e = G E N E R A T O R > < S T Y L E > < / S T Y L E > < / H E A D > < B O D Y b g C o l o r = # f f f f f f > < D I V > < F O N T f a c e = A r i a l s i z e = 2 > L a u r i e < / F O N T > < / D I V > < D I V > < F O N T f a c e = A r i a l s i z e = 2 > < / F O N T > & n b s p ; < / D I V > < D I V > < F O N T f a c e = A r i a l s i z e = 2 > I f y o u s e n d y o u r e m a i l a d d r e s s I ' l l s e n d y o u a c o m p o n e n t I h a v e u s e d s u c c e s s f u l l y < / F O N T > < / D I V > < D I V > < F O N T f a c e = A r i a l s i z e = 2 > < / F O N T > & n b s p ; < / D I V > < D I V > < F O N T f a c e = A r i a l s i z e = 2 > P a u l L o w m a n < / F O N T > < / D I V > < D I V > & n b s p ; < / D I V > < D I V > < F O N T f a c e = A r i a l s i z e = 2 > L o w m a n C o n s u l t i n g L t d . < B R > E m b e d d e d S y s t e m s & a m p ; S o f t w a r e < / F O N T > < / D I V > < D I V > & n b s p ; < / D I V > < D I V > < F O N T f a c e = A r i a l s i z e = 2 > < A h r e f = " m a i l t o : p a u l _ l o w m a n @ x t r a . c o . n z " > p a u l _ l o w m a n @ x t r a . c o . n z < / A > < / F O N T > < / D I V > < / B O D Y > < / H T M L >
RE: [DUG]: System Tray
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..)
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
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"
[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¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤øø¤
[DUG]: System Tray Icon - how to find the centre
Hi all. After beating my head into an even more ugly state, I couldnt find any way of getting a handle on the TrayIcon - the problem is its created not as a window, rather as an Icon. You can get the handle then location of the system tray OK, but where each Icon is situated is much less obvious. Here is my code below for getting the system tray icons centre. It is crappy, but may be of use to some of you who need to do more than just bring up menus. The downside is that the TrayIcon must be 'wiped' before the right and left positions are useable. In my use of this we can go to Previous or Next track on our MPEG player by clicking to the right or left of the icon, once the icon is 'wiped'. Until it is, there is a singular function of Pause/Play: procedure TPlayerForm.RxTrayMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin //The following code requires a user to 'wipe' the icon, before a centre ref is available //TrayIconCentre, TrayIconLeft,TrayIconRight are global if (TrayIconCentre > 0) then begin //check in case new tray incons installed or removed (new position) if (X > TrayIconRight+10) or (X < TrayIconLeft-10) then begin TrayIconCentre := 0; TrayIconRight := 0; TrayIconLeft := 2000; end else exit; //All is well, use TrayIconCentre as the ref point end; if X > TrayIconRight then TrayIconRight := X else if (X < TrayIconLeft) and (TrayIconRight - X <= 16) then TrayIconLeft := X; if TrayIconRight - TrayIconLeft > 14 then TrayIconCentre := round((TrayIconLeft + TrayIconRight) / 2); end; //Example code of using the TrayIconCentre procedure TPlayerForm.RxTrayClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin //Allow short delay just in case double click (form made visible) delay(GetDoubleClickTime()); if Playerform.Visible then exit; if CurrentState = 'PAUSED' then begin XAudioPlayer.Play; exit; end; if TrayIconCentre = 0 then //Not 'wiped' so Pause/Play only available begin menuPauseClick(self); exit; end else if (x > TrayIconCentre) and (X - TrayIconCentre > 3) then menunextclick(self) //Next track else if (x < TrayIconCentre) and (TrayIconCentre - X > 3) then menupreviousclick(self) //Previous track else menupauseclick(self); end; --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
Re: [DUG]: System Tray
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
[DUG]: System Tray
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
Re: [DUG]: System tray.
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.
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.
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.
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.
> 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.
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.
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.
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.
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.
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.
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.
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.
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.
[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.
