千日夢의 Tistory

 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

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

 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

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