[Delphi] Form Style이 fsStayOnTop일 경우 메세지 박스가 뒤로 숨는 문제

 Showmessage 박스 Owner가 Application으로 되어져 있는 현상 때문에 Form이 StayOnTop일 경우 아래에 숨어버리는 현상 발생

해결 방법은 아래 소스.... Screen.ActiveForm을 이용한 방법

 

1. TForm1 = class(TForm)
2. {...생략...}
3. procedure OnScreenActiveFormChange(Sender: TObject);
4. private
5. {...생략...}
6. protected
7. {...생략...}
8. public
9. {...생략...}
10. end;
12. procedure TForm1.FormCreate(Sender: TObject);
    begin
13. Screen.OnActiveControlChange := OnScreenActiveFormChange;
14. end;
16. procedure TfrmUbBase_S.OnScreenActiveFormChange(Sender: TObject);
17. begin
18. if Assigned(Screen.ActiveForm) and ( (UpperCase(Screen.ActiveForm.ClassName) = UpperCase('TMessageForm')) ) then
19. begin
20. SetWindowPos(Screen.ActiveForm.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
21. end;
22. end;

 

출처 : 델마당 for Modify By Userpark

이 글은 스프링노트에서 작성되었습니다.