알짜게시판

[Delphi] bsNone 인 폼에서 드래그 및 크기조절

[code]

unit Area;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask, Vcl.ExtCtrls,
  JvExControls, JvButton, JvNavigationPane, Vcl.Buttons;

type
  TFrmArea = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Memo1: TMemo;
    JvNavIconButton1: TJvNavIconButton;
    Button1: TButton;
    BitBtn1: TBitBtn;
    SpeedButton1: TSpeedButton;
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  protected
    procedure CreateParams(var Params: TCreateParams); override;
    procedure WMNCHitTest(var message: TWMNCHitTest); message WM_NCHITTEST;
  private
  public
    { Public declarations }
  end;

const
  Edge = 5;

var
  FrmArea: TFrmArea;

implementation

{$R *.dfm}

{ TFrmArea }

procedure TFrmArea.CreateParams(var Params: TCreateParams);
begin
  BorderStyle := bsNone;

  inherited;

  Params.WndParent := 0;
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;

procedure TFrmArea.FormCreate(Sender: TObject);
begin
  FormResize(Sender);
end;

procedure TFrmArea.FormResize(Sender: TObject);
var
  WindowRgn, HoleRgn : HRgn;
begin
  WindowRgn := 0;
  GetWindowRgn(Handle, WindowRgn);
  DeleteObject(WindowRgn);
  WindowRgn := CreateRectRgn(0, 0, Width, Height);
  HoleRgn := CreateRectRgn(Edge, Edge+Panel1.Height+Edge, Width-Edge, Height-Edge);
  CombineRgn(WindowRgn, WindowRgn, HoleRgn, RGN_DIFF);
  SetWindowRgn(Handle, WindowRgn, TRUE);
  DeleteObject(HoleRgn);
end;

procedure TFrmArea.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Handle, WM_NCLBUTTONDOWN, htCaption, 0);
end;

procedure TFrmArea.WMNCHitTest(var Message: TWMNCHitTest);
var
  P: TPoint;
begin
  inherited;

  P := ScreenToClient(Message.Pos);

  with Message do
  begin
    if Result = htClient then Exit;

    Result := htCaption;

    if P.Y < Edge then
    begin
      if P.X < Edge then
        Result := htTopLeft
      else if P.X > ClientWidth - Edge then
        Result := htTopRight
      else
        Result := htTop;
    end
    else if P.Y > ClientHeight - Edge then
    begin
      if P.X < Edge then
        Result := htBottomLeft
      else if P.X > ClientWidth - Edge then
        Result := htBottomRight
      else
        Result := htBottom;
    end
    else
    begin
      if P.X < Edge then
        Result := htLeft
      else if P.X > ClientWidth - Edge then
        Result := htRight
    end;
  end;
end;

end.
[/code]

번호 제목 글쓴이 조회 날짜
31 [리눅스] 윈도우 프로그램 실행 (centos7, wine 7.0) 44,764 08-09
30 [윈도우] IPv6 켜기, 끄기 44,581 08-03
29 [그누보드] 회원 가입일 기준으로 이용기간 정하기 40,969 07-28
28 [그누보드] sql_fetch, sql_query 안쓰고 직접 mysql 사용하기 40,601 07-24
27 [PHP] PHP 수정시 적용이 안되는 경우 해결 (opcache 중지) 35,158 03-31
26 [맥OS] 마우스 휠 스크롤 방향 윈도우와 일치시키는 방법 25,920 02-28
25 [Ruby] 윈도우에서 pod install 실행시 UTF-8 오류 26,715 02-28
24 [Ruby] Could not open library 'libcurl' 25,091 02-28
23 [Android] Error type 3: Activity class {com.?.MainActivity} … 16,451 02-02
22 [PHP] Curl 을 이용하여 파일 다운로드 5,721 01-19
21 [PHP] Curl 을 이용하여 json 을 post 보내기 6,410 01-19
20 설치하려고 하는 앱이 Microsoft에서 확인된 앱이 아닙니다. 15,820 10-11
19 [Delphi] Glyph 에 사용할 이미지 생성하기 1,572 09-02
18 파이썬 아나콘다 업데이트 1,829 08-06
열람 [Delphi] bsNone 인 폼에서 드래그 및 크기조절 3,032 07-11
16 [리눅스] Composer 설치하기 1,767 07-06
15 [윈도우] WinHTTP 사용에서 12175 에러 발생시 4,659 04-04
14 [MYSQL] 날짜필드 연장하기 1,938 03-20
13 [리눅스] Swap 생성/수정 2,179 09-04
12 [리눅스] 바이러스 검사 1,971 09-04
11 [PHP] 실시간 화면 출력 4,124 08-04
10 [윈도우] 원격 데스크탑 접속 기록 삭제하기 2,940 07-24
9 [윈도우] 네트워크 드라이브 커맨드 명령으로 연결하기 1,561 07-11
8 [MYSQL] 계정 추가 및 외부 접속 허용 1,599 07-05
7 VS Code 설치방법 2,188 06-30
6 구글 google 영어 사이트로 접속하기 3,366 06-20
5 [안드로이드] 구글 검색기록 끄기 2,058 06-14
4 [윈도우] 레지스트리 변경값 추적하는 프로그램 6,350 06-14
3 [리눅스] 간단한 보안 체크하기 1,865 06-05
2 크롬 알림창 해제하기 2,035 05-28
1 Go 언어 설치하기 1,832 05-16
목록