Q&A
- Tray Icon 팝업 후 다른 곳 클릭하면 팝업메뉴가 없어져야 되는데...
제 글을 보시니 정말 감사합니다.
다름이 아니라 제목처럼 Tray Icon에서 오른쪽 버튼을 클릭하면 팝업메뉴가 뜹니다.
근데 다른 곳에 클릭하면 팝업메뉴가 사라져야 하는데 사라지지가 않는군요.
제발 조언 좀 부탁드립니다. 아래는 개략적인 소스입니다.
uses
..., ShellApi, ...;
const
WM_MYTRAYICONCALLBACK = WM_USER + 1000;
type
TFormCalcLimit = class(TForm)
Timer: TTimer;
PopupMenu: TPopupMenu;
mnClose: TMenuItem;
.......
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure mnCloseClick(Sender: TObject);
.......
private
{ Private declarations }
MyTrayIcon : TNotifyIconData;
procedure AppMinimize(Sender:TObject);
procedure WMMyTrayIconCallback(var Msg:TMessage);
Message WM_MYTRAYICONCALLBACK;
public
{ Public declarations }
end;
.......
procedure TFormCalcLimit.AppMinimize(Sender:TObject);
begin
Visible := False;
Application.ShowMainForm := Visible;
end;
procedure TFormCalcLimit.WMMyTrayIconCallback(var Msg:TMessage);
var
CursorPos : TPoint;
begin
case Msg.lParam of
WM_RBUTTONDOWN : begin
GetCursorPos(CursorPos);
PopupMenu.Popup(CursorPos.X, CursorPos.Y);
end;
{ WM_LBUTTONDBLCLK : ShowMessage('WM_LBUTTONDBLCLK'); }
{ WM_LBUTTONDOWN : ShowMessage('WM_LBUTTONDOWN'); }
{ WM_LBUTTONUP : ShowMessage('WM_LBUTTONUP'); }
{ WM_MBUTTONDBLCLK : ShowMessage('WM_MBUTTONDBLCLK'); }
{ WM_MBUTTONDOWN : ShowMessage('WM_MBUTTONDOWN'); }
{ WM_MBUTTONUP : ShowMessage('WM_MBUTTONUP'); }
{ WM_MOUSEMOVE : ShowMessage('WM_MOUSEMOVE'); }
{ WM_MOUSEWHEEL : ShowMessage('WM_MOUSEWHEEL'); }
{ WM_RBUTTONDBLCLK : ShowMessage('WM_RBUTTONDBLCLK'); }
{ WM_RBUTTONUP : ShowMessage('WM_RBUTTONUP'); }
end;
end;
procedure TFormCalcLimit.FormCreate(Sender: TObject);
begin
Application.OnMinimize := AppMinimize;
Application.ShowMainForm := Visible;
with MyTrayIcon do begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Handle;
uId := 1;
uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
uCallBackMessage := WM_MYTRAYICONCALLBACK;
hIcon := LoadIcon(0, IDI_APPLICATION);
szTip := 'Calculating up and down limit...';
end;
Shell_NotifyIcon(NIM_ADD, @MyTrayIcon);
end;
procedure TFormCalcLimit.FormDestroy(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, @MyTrayIcon);
end;
procedure TFormCalcLimit.mnCloseClick(Sender: TObject);
begin
Close;
end;
다름이 아니라 제목처럼 Tray Icon에서 오른쪽 버튼을 클릭하면 팝업메뉴가 뜹니다.
근데 다른 곳에 클릭하면 팝업메뉴가 사라져야 하는데 사라지지가 않는군요.
제발 조언 좀 부탁드립니다. 아래는 개략적인 소스입니다.
uses
..., ShellApi, ...;
const
WM_MYTRAYICONCALLBACK = WM_USER + 1000;
type
TFormCalcLimit = class(TForm)
Timer: TTimer;
PopupMenu: TPopupMenu;
mnClose: TMenuItem;
.......
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure mnCloseClick(Sender: TObject);
.......
private
{ Private declarations }
MyTrayIcon : TNotifyIconData;
procedure AppMinimize(Sender:TObject);
procedure WMMyTrayIconCallback(var Msg:TMessage);
Message WM_MYTRAYICONCALLBACK;
public
{ Public declarations }
end;
.......
procedure TFormCalcLimit.AppMinimize(Sender:TObject);
begin
Visible := False;
Application.ShowMainForm := Visible;
end;
procedure TFormCalcLimit.WMMyTrayIconCallback(var Msg:TMessage);
var
CursorPos : TPoint;
begin
case Msg.lParam of
WM_RBUTTONDOWN : begin
GetCursorPos(CursorPos);
PopupMenu.Popup(CursorPos.X, CursorPos.Y);
end;
{ WM_LBUTTONDBLCLK : ShowMessage('WM_LBUTTONDBLCLK'); }
{ WM_LBUTTONDOWN : ShowMessage('WM_LBUTTONDOWN'); }
{ WM_LBUTTONUP : ShowMessage('WM_LBUTTONUP'); }
{ WM_MBUTTONDBLCLK : ShowMessage('WM_MBUTTONDBLCLK'); }
{ WM_MBUTTONDOWN : ShowMessage('WM_MBUTTONDOWN'); }
{ WM_MBUTTONUP : ShowMessage('WM_MBUTTONUP'); }
{ WM_MOUSEMOVE : ShowMessage('WM_MOUSEMOVE'); }
{ WM_MOUSEWHEEL : ShowMessage('WM_MOUSEWHEEL'); }
{ WM_RBUTTONDBLCLK : ShowMessage('WM_RBUTTONDBLCLK'); }
{ WM_RBUTTONUP : ShowMessage('WM_RBUTTONUP'); }
end;
end;
procedure TFormCalcLimit.FormCreate(Sender: TObject);
begin
Application.OnMinimize := AppMinimize;
Application.ShowMainForm := Visible;
with MyTrayIcon do begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Handle;
uId := 1;
uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
uCallBackMessage := WM_MYTRAYICONCALLBACK;
hIcon := LoadIcon(0, IDI_APPLICATION);
szTip := 'Calculating up and down limit...';
end;
Shell_NotifyIcon(NIM_ADD, @MyTrayIcon);
end;
procedure TFormCalcLimit.FormDestroy(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, @MyTrayIcon);
end;
procedure TFormCalcLimit.mnCloseClick(Sender: TObject);
begin
Close;
end;
2
COMMENTS
-
-
Rx라이브러리에 있는 RxTray를 사용하면 간단하게 할수 있는것 같던데요.
힘들게 코딩할 필요가 있겠습니까.
장지용 wrote:
> 제 글을 보시니 정말 감사합니다.
> 다름이 아니라 제목처럼 Tray Icon에서 오른쪽 버튼을 클릭하면 팝업메뉴가 뜹니다.
> 근데 다른 곳에 클릭하면 팝업메뉴가 사라져야 하는데 사라지지가 않는군요.
>
> 제발 조언 좀 부탁드립니다. 아래는 개략적인 소스입니다.
>
> uses
> ..., ShellApi, ...;
>
> const
> WM_MYTRAYICONCALLBACK = WM_USER + 1000;
>
> type
> TFormCalcLimit = class(TForm)
> Timer: TTimer;
> PopupMenu: TPopupMenu;
> mnClose: TMenuItem;
> .......
>
> procedure FormCreate(Sender: TObject);
> procedure FormDestroy(Sender: TObject);
> procedure mnCloseClick(Sender: TObject);
> .......
> private
> { Private declarations }
> MyTrayIcon : TNotifyIconData;
>
> procedure AppMinimize(Sender:TObject);
> procedure WMMyTrayIconCallback(var Msg:TMessage);
>
> Message WM_MYTRAYICONCALLBACK;
> public
> { Public declarations }
> end;
>
> .......
> procedure TFormCalcLimit.AppMinimize(Sender:TObject);
> begin
> Visible := False;
> Application.ShowMainForm := Visible;
> end;
>
> procedure TFormCalcLimit.WMMyTrayIconCallback(var Msg:TMessage);
> var
> CursorPos : TPoint;
> begin
> case Msg.lParam of
> WM_RBUTTONDOWN : begin
> GetCursorPos(CursorPos);
> PopupMenu.Popup(CursorPos.X, CursorPos.Y);
> end;
> { WM_LBUTTONDBLCLK : ShowMessage('WM_LBUTTONDBLCLK'); }
> { WM_LBUTTONDOWN : ShowMessage('WM_LBUTTONDOWN'); }
> { WM_LBUTTONUP : ShowMessage('WM_LBUTTONUP'); }
> { WM_MBUTTONDBLCLK : ShowMessage('WM_MBUTTONDBLCLK'); }
> { WM_MBUTTONDOWN : ShowMessage('WM_MBUTTONDOWN'); }
> { WM_MBUTTONUP : ShowMessage('WM_MBUTTONUP'); }
> { WM_MOUSEMOVE : ShowMessage('WM_MOUSEMOVE'); }
> { WM_MOUSEWHEEL : ShowMessage('WM_MOUSEWHEEL'); }
> { WM_RBUTTONDBLCLK : ShowMessage('WM_RBUTTONDBLCLK'); }
> { WM_RBUTTONUP : ShowMessage('WM_RBUTTONUP'); }
> end;
> end;
>
> procedure TFormCalcLimit.FormCreate(Sender: TObject);
> begin
> Application.OnMinimize := AppMinimize;
> Application.ShowMainForm := Visible;
>
> with MyTrayIcon do begin
> cbSize := SizeOf(TNotifyIconData);
> Wnd := Handle;
> uId := 1;
> uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
> uCallBackMessage := WM_MYTRAYICONCALLBACK;
> hIcon := LoadIcon(0, IDI_APPLICATION);
> szTip := 'Calculating up and down limit...';
> end;
>
> Shell_NotifyIcon(NIM_ADD, @MyTrayIcon);
> end;
>
> procedure TFormCalcLimit.FormDestroy(Sender: TObject);
> begin
> Shell_NotifyIcon(NIM_DELETE, @MyTrayIcon);
> end;
>
>
> procedure TFormCalcLimit.mnCloseClick(Sender: TObject);
> begin
> Close;
> end;
>
>
>
(NOTICE) You must be logged in to comment on this post.
-
- 장지용
- •
- 2000.04.26 07:58
- 2 COMMENTS
- /
- 0 LIKES
제 글을 보시니 정말 감사합니다. 다름이 아니라 제목처럼 Tray Icon에서 오른쪽 버튼을 클릭하면 팝업메뉴가 뜹니다. 근데 다른 곳에 클릭하면 팝업메뉴가 사라져야 하는데 사라지지가 않는군요. 제발 조언 좀 부탁드립니다. 아래는 개략...-
nemesis•2001.11.08 07:461년이 넘은 글인데 답변을 하면.... setForegroundWindow( Application.handle)을 PopupMenu.Popup(Cur...
-
톰과 제리•2000.04.26 08:29Rx라이브러리에 있는 RxTray를 사용하면 간단하게 할수 있는것 같던데요. 힘들게 코딩할 필요가 있겠습니...
-
- 김고진
- •
- 2000.04.26 05:52
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•2000.04.26 09:03쩝.. 잘못 알고 계십니다. 저희역시 엄청난 프로젝트(?)를 몇백번 컴파일을 해도 죽는일은 우리 프로젝트...
-
- 차니
- 2000.04.26 05:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 이상학
- •
- 2000.04.26 04:16
- 2 COMMENTS
- /
- 0 LIKES
-
박권섭•2000.05.17 04:48이상학 wrote: > 프로그램이 시작된 후..아래와 같이 파일의 경로를 써주지 않고 어느 경로에 있더라도 >...
-
구창민•2000.04.26 04:31이상학 wrote: > 프로그램이 시작된 후..아래와 같이 파일의 경로를 써주지 않고 어느 경로에 있더라도 >...
-
- 이태호
- •
- 2000.04.26 03:58
- 1 COMMENTS
- /
- 0 LIKES
-
HART•2000.04.26 18:35caleulated 필드 형태로 만들어서 표시 하면 간단합니다.. 그럼 caleulated 필드 만들는 방법은 TDate...
-
- 채경식
- 2000.04.26 03:32
- 0 COMMENTS
- /
- 0 LIKES
-
-
강인규•2000.04.26 05:19단순히 체크하는 것이라면 이렇게 하심 됩니다. try strtofloat(edit1.Text); except Sho...
-
nambada•2000.04.26 06:37답변 감사합니다. 근데 '+' 나 '-' 도 에러로 봐버리네요. 스트링내에서 '+' 나 '-' 는 에러가 아니게 ...
-
강인규•2000.04.26 11:51일단 고백합니다. 저는 스트링그리드는 한번도 써본적이 없어 뭐라 말씀드릴 수가 없지만 스트링그리드의 ...
-
-
- 델초보
- 2000.04.26 02:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 강현덕
- •
- 2000.04.26 01:52
- 3 COMMENTS
- /
- 0 LIKES
-
이기현•2000.04.26 03:09[InterBase Server Manager] 안되면 전화하세요. 0351-866-8473
-
이기현•2000.04.26 02:54Table or Column 의 권한이 읽기 전용으로 되어 있읍니다. DB Edit 에 Table or Column 포미션을 읽기와 ...
-
강현덕•2000.04.26 02:27이기현 wrote: > Table or Column 의 권한이 읽기 전용으로 되어 있읍니다. > DB Edit 에 Table or Colum...
-
- 김상국
- •
- 2000.04.26 01:42
- 2 COMMENTS
- /
- 0 LIKES
-
seagod•2000.04.26 01:56요렇게 하면 어떨까요? var nIndex:Integer begin for nIndex := 0 To frmMain.ComponentCount -1 ...
-
최용일•2000.04.26 01:55안녕하세요. 최용일입니다. 판넬안에 있는 컨트롤들은 모두 TPanel.Controls배열에 들어 있습니다. v...
-
- seagod
- •
- 2000.04.26 01:16
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.04.26 02:01안녕하세요. 최용일입니다. 아마도 다른 프로세스에서 fmShareDenyWrite를 사용하여 파일을 연것 같은데...
-
- 까마귀
- •
- 2000.04.26 01:02
- 2 COMMENTS
- /
- 0 LIKES
-
한창희•2000.04.26 10:09까마귀 wrote: > 안녕하세요. 까마귀입니다. > 일주일중 죽을 확률이 가장 낮다는 화요일입니다. 아무렇...
-
HART•2000.04.26 01:13아래 소스 스트링 그리드에 해당하는 소스데 디비 그리디에서 같은 효과을 낼 수 있습니다. 단 먼저 숫자...
-
- 조유정
- •
- 2000.04.26 01:01
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.04.26 09:49안녕하세요. 최용일입니다. IndexOf를 이용해보세요. var SearchStr: string; begin // 전체를 ...
-
-
- Macgyver
- •
- 2000.04.26 00:37
- 1 COMMENTS
- /
- 0 LIKES
-
까마귀•2000.04.26 01:09Macgyver wrote: > CommitUpdates & ApplyUpdates의 정확한 차이와 Table/Query컴포넌트에 적용할경우 ...
-
- 박설화
- •
- 2000.04.26 00:29
- 1 COMMENTS
- /
- 0 LIKES
-
seagod•2000.04.26 02:02델파이 수퍼페이지에서 한번찾아 보심이 어떠신지요 제가 한번 본것 같거든요. 박설화 wrote: > 게...
-
- 최영만
- •
- 2000.04.26 00:25
- 2 COMMENTS
- /
- 0 LIKES
-
HART•2000.04.26 01:19디비에 필드 사이즈을 변경하여 아래 같은 에러가 발생하는 경우는 아만 TTable이나 TQuery의에서 더블 ...
-
까마귀•2000.04.26 01:16최영만 wrote: > 필드 사이즈를 변경하게 되었습니다. > > Database Desktop을 이용해서 변경 했는데 ...
-
- delphi boy
- 2000.04.26 00:17
- 0 COMMENTS
- /
- 0 LIKES
-
- SerVing
- •
- 2000.04.26 00:04
- 2 COMMENTS
- /
- 0 LIKES
-
강민주•2000.04.26 01:28SerVing wrote: > 지금 하는 프로젝트는 (델파이4로 합니다.) > 반드시 컴포넌트를 추가시키지 않고 완성...
-
SerVing•2000.04.26 03:55우선 답변에 감사드립니다. 제가하는 프로젝트는 새로운 컴포넌트를 설치하지 않고 해야만합니다. 델...
-
- 김 동호
- 2000.04.26 00:01
- 0 COMMENTS
- /
- 0 LIKES
답변을 하면....
setForegroundWindow( Application.handle)을
PopupMenu.Popup(CursorPos.X, CursorPos.Y)의 위치중
아래 위로 붙이시면 됩니다.
즉,
setForegroundWindow( Application.handle);
PopupMenu.Popup(CursorPos.X, CursorPos.Y);
setForegroundWindow( Application.handle);
이렇게 요...
다른 핸들 값만 처리하는 부분만 만들면 굳이 컴포넌트를 쓰시지 않아도 됩니다.
그럼 1년이 넘은 글에 답변을 하며..
장지용 wrote:
> 제 글을 보시니 정말 감사합니다.
> 다름이 아니라 제목처럼 Tray Icon에서 오른쪽 버튼을 클릭하면 팝업메뉴가 뜹니다.
> 근데 다른 곳에 클릭하면 팝업메뉴가 사라져야 하는데 사라지지가 않는군요.
>
> 제발 조언 좀 부탁드립니다. 아래는 개략적인 소스입니다.
>
> uses
> ..., ShellApi, ...;
>
> const
> WM_MYTRAYICONCALLBACK = WM_USER + 1000;
>
> type
> TFormCalcLimit = class(TForm)
> Timer: TTimer;
> PopupMenu: TPopupMenu;
> mnClose: TMenuItem;
> .......
>
> procedure FormCreate(Sender: TObject);
> procedure FormDestroy(Sender: TObject);
> procedure mnCloseClick(Sender: TObject);
> .......
> private
> { Private declarations }
> MyTrayIcon : TNotifyIconData;
>
> procedure AppMinimize(Sender:TObject);
> procedure WMMyTrayIconCallback(var Msg:TMessage);
>
> Message WM_MYTRAYICONCALLBACK;
> public
> { Public declarations }
> end;
>
> .......
> procedure TFormCalcLimit.AppMinimize(Sender:TObject);
> begin
> Visible := False;
> Application.ShowMainForm := Visible;
> end;
>
> procedure TFormCalcLimit.WMMyTrayIconCallback(var Msg:TMessage);
> var
> CursorPos : TPoint;
> begin
> case Msg.lParam of
> WM_RBUTTONDOWN : begin
> GetCursorPos(CursorPos);
> PopupMenu.Popup(CursorPos.X, CursorPos.Y);
> end;
> { WM_LBUTTONDBLCLK : ShowMessage('WM_LBUTTONDBLCLK'); }
> { WM_LBUTTONDOWN : ShowMessage('WM_LBUTTONDOWN'); }
> { WM_LBUTTONUP : ShowMessage('WM_LBUTTONUP'); }
> { WM_MBUTTONDBLCLK : ShowMessage('WM_MBUTTONDBLCLK'); }
> { WM_MBUTTONDOWN : ShowMessage('WM_MBUTTONDOWN'); }
> { WM_MBUTTONUP : ShowMessage('WM_MBUTTONUP'); }
> { WM_MOUSEMOVE : ShowMessage('WM_MOUSEMOVE'); }
> { WM_MOUSEWHEEL : ShowMessage('WM_MOUSEWHEEL'); }
> { WM_RBUTTONDBLCLK : ShowMessage('WM_RBUTTONDBLCLK'); }
> { WM_RBUTTONUP : ShowMessage('WM_RBUTTONUP'); }
> end;
> end;
>
> procedure TFormCalcLimit.FormCreate(Sender: TObject);
> begin
> Application.OnMinimize := AppMinimize;
> Application.ShowMainForm := Visible;
>
> with MyTrayIcon do begin
> cbSize := SizeOf(TNotifyIconData);
> Wnd := Handle;
> uId := 1;
> uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
> uCallBackMessage := WM_MYTRAYICONCALLBACK;
> hIcon := LoadIcon(0, IDI_APPLICATION);
> szTip := 'Calculating up and down limit...';
> end;
>
> Shell_NotifyIcon(NIM_ADD, @MyTrayIcon);
> end;
>
> procedure TFormCalcLimit.FormDestroy(Sender: TObject);
> begin
> Shell_NotifyIcon(NIM_DELETE, @MyTrayIcon);
> end;
>
>
> procedure TFormCalcLimit.mnCloseClick(Sender: TObject);
> begin
> Close;
> end;
>
>
>