자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Firemonkey 서브폼 Close시 메인폼 활성화문제
2015.09.16 08:49
본 게시판 사용시 당부 사항
* 이 게시판은 누구나 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------
우선 간단한 재현경로는 다음과 같습니다.
1. 메인폼에서 서브폼을 생성
2. 메인폼은 최소화
3. 서브폼 Close
이때 메인폼이 자동으로 Show됨.
메인폼 코드
var
vSubForm:TForm2 ;
begin
vSubForm := TForm2.Create(nil);
vSubForm.Show ;
서브폼 Create 코드(윈도우 타스크바에 서브폼도 표시하기 위함)
SetWindowLong(FmxHandleToHWND(Self.Handle), GWL_EXSTYLE, GetWindowLong(FmxHandleToHWND(Self.Handle), GWL_EXSTYLE) or WS_EX_APPWINDOW );
SetWindowLong(FmxHandleToHWND(Self.Handle), GWL_HWNDPARENT, GetDesktopWindow);
VCL같은경우 같은 방식으로 진행했을때 메인폼이 활성화 되지 않지만 파이어몽키같은 경우 메인폼이 활성화됩니다.
혹시 해결방법이 있을까요?
댓글 0
Firemonkey 서브폼 Close시 메인폼 활성화문제
2015.09.16 08:49
본 게시판 사용시 당부 사항
* 이 게시판은 누구나 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------
우선 간단한 재현경로는 다음과 같습니다.
1. 메인폼에서 서브폼을 생성
2. 메인폼은 최소화
3. 서브폼 Close
이때 메인폼이 자동으로 Show됨.
메인폼 코드
var
vSubForm:TForm2 ;
begin
vSubForm := TForm2.Create(nil);
vSubForm.Show ;
서브폼 Create 코드(윈도우 타스크바에 서브폼도 표시하기 위함)
SetWindowLong(FmxHandleToHWND(Self.Handle), GWL_EXSTYLE, GetWindowLong(FmxHandleToHWND(Self.Handle), GWL_EXSTYLE) or WS_EX_APPWINDOW );
SetWindowLong(FmxHandleToHWND(Self.Handle), GWL_HWNDPARENT, GetDesktopWindow);
VCL같은경우 같은 방식으로 진행했을때 메인폼이 활성화 되지 않지만 파이어몽키같은 경우 메인폼이 활성화됩니다.
혹시 해결방법이 있을까요?