Articles   Members Online:
-Article/Tip Search
-News Group Search over 21 Million news group articles.
-Delphi/Pascal
-CBuilder/C++
-C#Builder/C#
-JBuilder/Java
-Kylix
Member Area
-Home
-Account Center
-Top 10 NEW!!
-Submit Article/Tip
-Forums Upgraded!!
-My Articles
-Edit Information
-Login/Logout
-Become a Member
-Why sign up!
-Newsletter
-Chat Online!
-Indexes NEW!!
Employment
-Build your resume
-Find a job
-Post a job
-Resume Search
Contacts
-Contacts
-Feedbacks
-Link to us
-Privacy/Disclaimer
Embarcadero
Visit Embarcadero
Embarcadero Community
JEDI
Links
System menu in tray-icon mode Turn on/off line numbers in source code. Switch to Orginial background IDE or DSP color Comment or reply to this aritlce/tip for discussion. Bookmark this article to my favorite article(s). Print this article
06-Jan-03
Category
System
Language
Delphi 2.x
Views
126
User Rating
No Votes
# Votes
0
Replies
0
Publisher:
DSP, Administrator
Reference URL:
DKB
			Author: Christian Cristofori 

I always wanted to show the Main window's system menu also when the only thing the 
user could click on the screen of my application, was the tray icon. Like Total 
Commanderhttp://www.ghisler.com/ is doing...

Answer:

With the most components provinding very-easy-to-use icon tray support, you can 
specify to show up a popupmenu, or you can catch the click event.

But you can't easily show the same menu as if you right-clicked on application's 
taskbar icon. 

Just catch the WM_CLICK event over the icon, or simply use the OnClick event as 
shown: 

1   procedure TfrmMain.tiIconClick(Sender: TObject; Button: TMouseButton;
2     Shift: TShiftState; X, Y: Integer);
3   var
4     I: HMenu;
5   begin
6     I := GetSystemMenu(Handle, False);
7     TrackPopupMenuEx(I, TPM_HORIZONTAL, X, Y, Handle, nil);
8   end;

Be warned: you must specify X and Y as screen coordinates, not relative to the icon, like some components do.

			
Vote: How useful do you find this Article/Tip?
Bad Excellent
1 2 3 4 5 6 7 8 9 10

 

Advertisement
Share this page
Advertisement
Download from Google

Copyright © Mendozi Enterprises LLC