자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi 파이어몽키 프로젝트에서 윈도우 메시지 핸들링?
2013.08.02 01:19
파이어몽키 프로젝트로 생성하여 데모를 작성해보고 있는중인데 윈도우 메시지 후킹이 가능한가요?
Winapi.Messages 추가후 기존의 VCL 프로젝트에서 하듯이 해봤는데 동작하지 않는군요.
구글링을 해봐도 만족할만한 답변을 못 찾아서 글 올려봅니다.
procedure WMSysCommand( var aMessage : TWMSysCommand ); message WM_SYSCOMMAND;
.
.
.
procedure TForm1.WMSysCommand( var aMessage : TWMSysCommand );
begin
.
.
.
end;
댓글 3
-
-
http://stackoverflow.com/questions/9186098/firemonkey-message-handling 이곳에 가시면 동일한 질문이 있고 답변이 몇 개 있습니다. 한번 확인해 보십시오. 혹시 예문이 있으면 다시 올리 겠습니다.
-
예제가 있는 주소를 알려드리겠습니다 : .https://forums.embarcadero.com/thread.jspa?threadID=68109
procedure TForm1.WndProc(var AMsg: TMessage);
begin
try
if AMsg.Msg = WM_USER+500 then
begin
do something
end
else
AMsg.Result := DefWindowProc(FMyNotifyWindow, AMsg.Msg, AMsg.WParam, AMsg.LParam);
except
Application.HandleException(Self);
end;
end;
또 다른 예문도 있습니다. 참고하십시오.
Delphi 파이어몽키 프로젝트에서 윈도우 메시지 핸들링?
2013.08.02 01:19
파이어몽키 프로젝트로 생성하여 데모를 작성해보고 있는중인데 윈도우 메시지 후킹이 가능한가요?
Winapi.Messages 추가후 기존의 VCL 프로젝트에서 하듯이 해봤는데 동작하지 않는군요.
구글링을 해봐도 만족할만한 답변을 못 찾아서 글 올려봅니다.
procedure WMSysCommand( var aMessage : TWMSysCommand ); message WM_SYSCOMMAND;
.
.
.
procedure TForm1.WMSysCommand( var aMessage : TWMSysCommand );
begin
.
.
.
end;
댓글 3
-
http://stackoverflow.com/questions/9186098/firemonkey-message-handling 이곳에 가시면 동일한 질문이 있고 답변이 몇 개 있습니다. 한번 확인해 보십시오. 혹시 예문이 있으면 다시 올리 겠습니다.
-
예제가 있는 주소를 알려드리겠습니다 : .https://forums.embarcadero.com/thread.jspa?threadID=68109
procedure TForm1.WndProc(var AMsg: TMessage);
begin
try
if AMsg.Msg = WM_USER+500 then
begin
do something
end
else
AMsg.Result := DefWindowProc(FMyNotifyWindow, AMsg.Msg, AMsg.WParam, AMsg.LParam);
except
Application.HandleException(Self);
end;
end;또 다른 예문도 있습니다. 참고하십시오.
핸들이 윈도우핸들과 FMX핸들이 다릅니다.
FmxHandleToHWND을 참고하세요.
윈도 기본 메시지 받는 법은 저도 잘 모르겠네요.