폼 소스 부분은 생략하고 처리부분만 기술한다. Form Style : fsStayOnTop 해당 폼을 TObject 형태로 구현 함수로 넘긴다 (경우에 따라서 TForm으로 넘기던지 상속클래스 만들어서 넘기던지...그건 알아서...단, 구현부분 파라메터 타입과 구현부분도 거기에 맞추어서 ^^) 구현 부분 procedure ShowSaveDialogBox(Sender : TObject = nil) var saveDlg : TSaveDialog; SenderFormStyle : TFormStyle; isSenderFormStyleChange : Boolean; begin isSenderFormStyleChange := False; if (Sender nil) and Assigned(Sender) and (S..