안냐세용..

음.. 제가 테스트를 해 보긴 했는데.. 많이 해보진 못해서.. 히..

암튼.. 되었거덩여??

다음과 같이 코딩하시면 됩니다...

기럼.. 로비..


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;