초보 wrote:

> 안녕하세요?

> 메인폼이 아닌 Form2를 윈도우에서 다른 창들 보다 제일 위에

> 항상 띄우고 싶습니다.

> 다른 익스플로어나 엑셀등 어던 창보다 항상 위에 오게요.

> 부탁 드립니다.



자료를 찾아보니까.. 이런 내용이 있더군요. 음... 제가 실험해본 결과 항상 폼위 위에 떠 있습니다. 도움이 되었으면 좋겠습니다.



procedure TForm1.FormActivate(Sender: TObject);

begin

with Self do

SetWindowPos(Handle, HWND_TOPMOST, // 폼을 최상위로...

Left, Top, Width, Height,

SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

end;





procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

with Self do

SetWindowPos(Handle, HWND_NOTOPMOST, // 폼의 최상위 해제...

Left, Top, Width, Height,

0);

CanClose := True;

end;