단지 최상단에 놓기만 하는 겁니다.
포스트잇 처럼 내려가지도 않고 항상 최상단이게 만드는 방법입니다. 참고만 하세요..
중요 키포인트는 아래 두줄입니다.
ExStyle := ExStyle or WS_EX_TOOLWINDOW or WS_EX_TOPMOST ;
WndParent := GetDesktopWindow;
요부분입니다.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
protected procedure CreateParams(var Params: TCreateParams); override; ... procedure TForm1.CreateParams(var Params: TCreateParams); const CS_DROPSHADOW = $00020000; begin inherited; with Params do begin Style := Style and ( not WS_CAPTION ); ExStyle := ExStyle or WS_EX_TOOLWINDOW or WS_EX_TOPMOST ; WndParent := GetDesktopWindow; end; end; |
최신 댓글