FormStyle을 fsNormal 에서 fsStayOnTop 등으로 빠꾸는것은

별로 좋지 않습니다.

왜냐하면 Form의 WindowHandle이 새로 만들어집니다.

내부적으로   RecreateWnd() 가 호출되죠.

RecreateWnd 가 발생하면 WebBroswer같은 COM컨트롤을 쓰거나

TreeVeiw 또는 ListView 등의 Node나 Item의 Data에 어떤 정보를 기록해 놓을경우 치명적일수 있습니다.

(이 문제 때문에 고생한적이....)

 

단지 StayOnTop 속성 변경이라면 아래와 같이 하시길 권합니다.

procedure TfrmUserList.mm3_StayOnTopClick(Sender: TObject); begin  mm3_StayOnTop.Checked:=not mm3_StayOnTop.Checked; if mm3_StayOnTop.Checked then     SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE)   else     SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE); end;

그럼..



────────────────────────────────────────────────

▷ 주딩이님께서 작성하신 내용입니다.

────────────────────────────────────────────────



>>

>> 컴파일러: Delphi 2007

>>

>>

>> Form 위에

>>  

>> ㅁAlways Top     <-- 이라는 CheckBox 가 있고

>>

>> 해당 소스는 아래와 같습니다.

>>

>> procedure TForm1.ckAlwaysTopClick(Sender: TObject);

>> begin

>>     // ShowMessage('Check 했어요~');

>>

>>     if TCheckBox(Sender).Checked then

>>         Self.FormStyle:= fsStayOnTop

>>     else

>>         Self.FormStyle:= fsNormal;

>> end;

>>

>>

>> 이렇게 하고 해당 CheckBox 를 클릭했을 경우에 다른폼보다

>> 항상 최상위로 유지함을 확인했는데요

>>

>> 문제는 소스상에서 체크하면 작동을 안합니다.

>>

>> procedure TForm1.FormCreate(Sender: TObject);

>> begin

>>     ckAlwaysTop.Checked:= True;

>> end;

>>

>> ShowMessage 로 확인결과 소스로 Check 하나

>> 마우스 클릭으로 Check 하나 둘 다 실행은 되더라구요~

>>

>> 소스 상에서도 fsStayOnTop 으로 놓으려면 어떻게 해야 하는지 ^^?

>>

>>