TForm의 속성에 AlwaysOnTop이 있지만, 이것은 어플리케이션 내에서만 유효합니다.
모든 윈도에서 가장 상위창으로 만드려면 다음 코드를 사용하세요.
// 최상위 윈도로
SetWindowLong(Form.Handle, GWL_HWNDPARENT, TForm(Owner).Handle);
SetWindowPos(Form.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
// 해제
SetWindowLong(Form.Handle, GWL_HWNDPARENT, TForm(Owner).Handle);
SetWindowPos(Form.Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
|