Q&A
- 작업표시줄에서 실행 프로그램 선택시 이벤트
사용환경
WIN98, DELPHI4
고수님들 안녕하세요?
도움을 받고자 글을 올립니다.
프로그램을 최소화 시킬때는
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
이런걸루 SC_MINIMIZE 이벤트를 발생하여 프로그램을 했는데
작업표시줄에 최소화 되어있는 프로그램을 선택했을시
SC_RESTORE 이벤트가 발생할 줄 알았는데 안되네요...
최소화된 프로그램을 다시 선택해서 복원할 때 이벤트를
발생하려면 어떻게 하나요? 고수님들 도와주세요....
WIN98, DELPHI4
고수님들 안녕하세요?
도움을 받고자 글을 올립니다.
프로그램을 최소화 시킬때는
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
이런걸루 SC_MINIMIZE 이벤트를 발생하여 프로그램을 했는데
작업표시줄에 최소화 되어있는 프로그램을 선택했을시
SC_RESTORE 이벤트가 발생할 줄 알았는데 안되네요...
최소화된 프로그램을 다시 선택해서 복원할 때 이벤트를
발생하려면 어떻게 하나요? 고수님들 도와주세요....
2
COMMENTS
-
-
최용일님 정말 감사합니다.
사부로 모시고 싶네요....
사막에서 오아시스를 만난 기분이라고 할까요...
정말 진심으로 감사드리고요, 델피언을 위해 힘쓰시는
모습 정말 보기 좋습니다.
앞으로도 많은 도움 부탁드립니다.
좋은 하루되세요!!!
최용일 wrote:
> 안녕하세요. 최용일입니다.
>
> 메인폼을 최소화시키면 메인폼에서 WM_SYSCOMMAND가 발생하고, 어플리케이션이 최소화되지만 최소화된 어플레케이션을 리스토어 시켰을때는 메인폼에서 WM_SYSCOMMAND가 발생하는 것이 아니라 어플리케이션에서 WM_SYSCOMMAND가 발생합니다. 메인폼이 아니라 일반 폼이라면 그 폼에서 발생하지만...
>
> 아래와 같이 Application객체의 메세지를 핸들하세요...
>
> type
> TForm1 = class(TForm)
> procedure FormCreate(Sender: TObject);
> protected
> procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
> ......
> end;
>
> procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
> begin
> if (Msg.message = WM_SYSCOMMAND) and (Msg.wParam = SC_RESTORE) then
> begin
> // 여기에서 리스토어될때의 처리를 하세요...
> ShowMessage('Application restored');
> end;
> end;
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> Application.OnMessage := AppMessage;
> end;
>
> ^^ 항상 즐코하세요...
>
> 강동길 wrote:
> > 사용환경
> > WIN98, DELPHI4
> >
> > 고수님들 안녕하세요?
> >
> > 도움을 받고자 글을 올립니다.
> >
> > 프로그램을 최소화 시킬때는
> >
> > procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
> >
> > 이런걸루 SC_MINIMIZE 이벤트를 발생하여 프로그램을 했는데
> >
> > 작업표시줄에 최소화 되어있는 프로그램을 선택했을시
> >
> > SC_RESTORE 이벤트가 발생할 줄 알았는데 안되네요...
> >
> > 최소화된 프로그램을 다시 선택해서 복원할 때 이벤트를
> >
> > 발생하려면 어떻게 하나요? 고수님들 도와주세요....
> >
> >
(NOTICE) You must be logged in to comment on this post.
-
- 정종구
- •
- 2001.05.18 01:13
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.18 02:00안녕하세요. 최용일입니다. 동적배열과 정적배열은 완전히 다른구조의 데이터형입니다. 동적배열은 stri...
-
- 초보델
- 2001.05.18 00:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 박상현
- 2001.05.18 00:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.05.18 00:30
- 6 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.18 02:51안녕하세요. 최용일입니다. procedure Form1.FormCreate(...); begin ...... RegisterClass(...
-
델초보•2001.05.18 04:12procedure TF_QMAIN00000.TreeView1DblClick(Sender: TObject); var PGM_ID, PGM_NM : String; W_LEN...
-
최용일•2001.05.18 04:20procedure TF_QMAIN00000.TreeView1DblClick(Sender: TObject); var PGM_ID: TForm; varPGM_NM : Stri...
-
델초보•2001.05.18 04:01죄송함미다. 다름이 아니라 아리의 Form name을 아는 경우가 아니라 node_name 이란 변수에 임이의 Form...
-
최용일•2001.05.18 04:22코드를 이해하시지 못하셨군요... 폼의 이름을 모르더라도 그 폼이 선언되어 있는 유닛이 있을거 아닙니...
-
델초보•2001.05.18 03:49항상 초보들의 든든한 사부로서 존재하는 최용일님 감사함미다.. 하시는 모든일이 항상 즐겁고 행복하시길...
-
- 새까만넘
- •
- 2001.05.17 23:14
- 3 COMMENTS
- /
- 0 LIKES
-
나연희•2001.05.18 01:25BorderStyle을 bsNone 으로 바꿔주세요..
-
새까만넘•2001.05.18 02:11나연희 wrote: > BorderStyle을 bsNone 으로 바꿔주세요.. 답변 감사합니다. 그런데 콤보 박스에는 Bo...
-
최용일•2001.05.18 04:25자료실에 있는 Flat컴포넌트를 이용해보세요... 그게 맘에 안들면 Flat컴포넌트를 참조해서 새로 만드세요....
-
- 어린왕자
- •
- 2001.05.17 23:01
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.18 03:11안녕하세요. 최용일입니다. TListBox의 ItemIndex속성을 이용하세요. ListBox1.ItemIndex := 아...
-
- 초보델
- •
- 2001.05.17 22:28
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.18 03:18안녕하세요. 최용일입니다. 다운로드받아서 설치했다는 것을 보면 아마도 평가판을 설치하신거 같은데 ...
-
- 초보에요
- •
- 2001.05.17 22:27
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.18 03:22안녕하세요. 최용일입니다. 유닛의 사용범위(scope)문제이군요... interface절에 선언하면 그 유닛의 모...
-
- 델맨유저
- •
- 2001.05.17 22:14
- 1 COMMENTS
- /
- 0 LIKES
-
얀•2001.05.18 03:31델맨유저 wrote: > > * 사용환경 : 델파이4 / Windows 98 SE > > QuickRep에서 출력을 하는데 QRSa...
-
- COWBOY
- 2001.05.17 22:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- •
- 2001.05.17 21:37
- 1 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2001.05.18 02:50type TMyListBox = class(TListBox) protected procedure CreateParams(var Params: TCreateP...
-
- 어린왕자
- 2001.05.17 21:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- 2001.05.17 23:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 개미
- 2001.05.17 20:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 유희정
- •
- 2001.05.17 20:40
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.18 00:07안녕하세요. 최용일입니다. 예전에 올린 자료는 포커스가 변경될때 조절점이 사라지도록 되어 있을겁니...
-
- parkisu
- 2001.05.17 20:23
- 0 COMMENTS
- /
- 0 LIKES
-
- ssam
- •
- 2001.05.17 20:20
- 1 COMMENTS
- /
- 0 LIKES
-
loke•2001.05.17 21:38try --- except --- end; 이문이 에러가 났다구요? 혹시 except 문장을 잘못 쓰시지 않았는...
-
- 강동길
- •
- 2001.05.17 20:13
- 2 COMMENTS
- /
- 0 LIKES
사용환경 WIN98, DELPHI4 고수님들 안녕하세요? 도움을 받고자 글을 올립니다. 프로그램을 최소화 시킬때는 procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; 이런걸루 SC_MINIMIZE 이벤트를 발생하여 프로그램을...-
최용일•2001.05.18 03:56안녕하세요. 최용일입니다. 메인폼을 최소화시키면 메인폼에서 WM_SYSCOMMAND가 발생하고, 어플리케이션...
-
강동길•2001.05.18 19:24최용일님 정말 감사합니다. 사부로 모시고 싶네요.... 사막에서 오아시스를 만난 기분이라고 할까요...
-
- 델초보
- 2001.05.17 19:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 법돌이
- •
- 2001.05.17 18:26
- 1 COMMENTS
- /
- 0 LIKES
-
학생•2001.05.17 22:30panel2,panel3각각의 클릭이벤트에서 처리해주시면 될거 같은디요. 법돌이 wrote: > 특정 폼상의Pane...
메인폼을 최소화시키면 메인폼에서 WM_SYSCOMMAND가 발생하고, 어플리케이션이 최소화되지만 최소화된 어플레케이션을 리스토어 시켰을때는 메인폼에서 WM_SYSCOMMAND가 발생하는 것이 아니라 어플리케이션에서 WM_SYSCOMMAND가 발생합니다. 메인폼이 아니라 일반 폼이라면 그 폼에서 발생하지만...
아래와 같이 Application객체의 메세지를 핸들하세요...
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
protected
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
......
end;
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if (Msg.message = WM_SYSCOMMAND) and (Msg.wParam = SC_RESTORE) then
begin
// 여기에서 리스토어될때의 처리를 하세요...
ShowMessage('Application restored');
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
end;
^^ 항상 즐코하세요...
강동길 wrote:
> 사용환경
> WIN98, DELPHI4
>
> 고수님들 안녕하세요?
>
> 도움을 받고자 글을 올립니다.
>
> 프로그램을 최소화 시킬때는
>
> procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
>
> 이런걸루 SC_MINIMIZE 이벤트를 발생하여 프로그램을 했는데
>
> 작업표시줄에 최소화 되어있는 프로그램을 선택했을시
>
> SC_RESTORE 이벤트가 발생할 줄 알았는데 안되네요...
>
> 최소화된 프로그램을 다시 선택해서 복원할 때 이벤트를
>
> 발생하려면 어떻게 하나요? 고수님들 도와주세요....
>
>