안녕하세요...
폼을 잠깐 숨겼는데요... 숨긴 이유는 그 폼이 없는 전체 화면을 캡쳐하기 위해서
입니다...
그런데 그 폼이 숨겨지기도 전에 캡쳐가 되서 잔상이 남는다고 얼마전에 질문을
올렸었죠...
어느분이 painto 메쏘드를 써보라고 하셨는데 제가 원하는 부분은 해결이 안되더
라구요...
그래서 폼이 완전히 숨겨지고 난후에 캡쳐를 하려고 하는데 그런 메시지가 있나
해서요...
그렇담 좋은데...
특히 숨겨지고 있을때 하고 완전히 숨겨졌을때 하고 나오는 메시지는 다른가요???
물론 다르겠죠???
그런데 그 메시지를 어떻게 알아내고 잡아낼수 있나요???
고수님들의 조언을 부탁드립니다...
안녕히계세요...
예전에 한거 같아서 테스트를 해보았는데 원하시는거하고 일치하는지
모르겠습니다.
폼의 minimize 버튼을 누를 때 체크하는 메시지가 wm_syscommand입니다.
일단 form class에 다음과 같이 선언하고요.
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
아래 처럼 구현합니다.
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
var
check: integer;
begin
if Msg.CmdType = SC_MINIMIZE then
check := 1;
DefaultHandler(Msg);
if check = 1 then
ShowMessage('ok');
end;
DefaultHandler함수 위에서 기능을 구현하면 미니마이즈 직전에 기능을 수행할
수 있고요 이후에 하면 미니마이즈된 다음에 기능이 수행됩니다.
그럼 보석같은 프로그래밍하세요.
문보석 께서 말씀하시기를...
> 안녕하세요...
>
> 폼을 잠깐 숨겼는데요... 숨긴 이유는 그 폼이 없는 전체 화면을 캡쳐하기 위해서
>
> 입니다...
>
> 그런데 그 폼이 숨겨지기도 전에 캡쳐가 되서 잔상이 남는다고 얼마전에 질문을
>
> 올렸었죠...
>
> 어느분이 painto 메쏘드를 써보라고 하셨는데 제가 원하는 부분은 해결이 안되더
>
> 라구요...
>
> 그래서 폼이 완전히 숨겨지고 난후에 캡쳐를 하려고 하는데 그런 메시지가 있나
>
> 해서요...
>
> 그렇담 좋은데...
>
> 특히 숨겨지고 있을때 하고 완전히 숨겨졌을때 하고 나오는 메시지는 다른가요???
>
> 물론 다르겠죠???
>
> 그런데 그 메시지를 어떻게 알아내고 잡아낼수 있나요???
>
> 고수님들의 조언을 부탁드립니다...
>
> 안녕히계세요...
>
>