Develop의 Tistory

Form Style - fsStayOnTop 효과 SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE) SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE); 출처 : http://www.delmadang.com/community/bbs_view.asp?bbsNo=17&bbsCat=41&indx=405581&keyword1=fsStayOnTop&keyword2= 이 글은 스프링노트에서 작성되었습니다.

폼 소스 부분은 생략하고 처리부분만 기술한다. 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..

Showmessage 박스 Owner가 Application으로 되어져 있는 현상 때문에 Form이 StayOnTop일 경우 아래에 숨어버리는 현상 발생 해결 방법은 아래 소스.... Screen.ActiveForm을 이용한 방법 TForm1 = class(TForm) {...생략...} procedure OnScreenActiveFormChange(Sender: TObject); private {...생략...} protected {...생략...} public {...생략...} end; procedure TForm1.FormCreate(Sender: TObject); begin Screen.OnActiveControlChange := OnScreenActiveFormChange; end; proce..

Showmessage 박스 Owner가 Application으로 되어져 있는 현상 때문에 Form이 StayOnTop일 경우 아래에 숨어버리는 현상 발생 해결 방법은 아래 소스.... Screen.ActiveForm을 이용한 방법 TForm1 = class(TForm) {...생략...} procedure OnScreenActiveFormChange(Sender: TObject); private {...생략...} protected {...생략...} public {...생략...} end; procedure TForm1.FormCreate(Sender: TObject); begin Screen.OnActiveControlChange := OnScreenActiveFormChange; end; proce..