//Panel1.BevelWidthを4〜8にセットしておくこと
procedure TForm1.Panel1MouseDown(Sender: TObject; Button:
TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  if X < Panel1.BevelWidth then
    begin
      if Y < Panel1.BevelWidth then
        Perform(WM_SYSCOMMAND, SC_SIZE or 4, 0)          //左上
      else if Y > Panel1.Height - Panel1.BevelWidth then
        Perform(WM_SYSCOMMAND, SC_SIZE or 7, 0)　　　　　//左下　
      else
        Perform(WM_SYSCOMMAND, SC_SIZE or 1, 0);　　　　 //左　
    end else if X > Panel1.Width - Panel1.BevelWidth then
    begin
      if Y < Panel1.BevelWidth then
        Perform(WM_SYSCOMMAND, SC_SIZE or 5, 0)　　　　　//右上
      else if Y > Panel1.Height - Panel1.BevelWidth then
        Perform(WM_SYSCOMMAND, SC_SIZE or 8, 0)　　　　　//右下
      else
        Perform(WM_SYSCOMMAND, SC_SIZE or 2, 0);　　　　 //右　
    end else if Y < Panel1.BevelWidth then
      Perform(WM_SYSCOMMAND, SC_SIZE or 3, 0)　　　　　　//上
    else if Y > Panel1.Height - Panel1.BevelWidth then
      Perform(WM_SYSCOMMAND, SC_SIZE or 6, 0)　　　　　　//下
    else
      Perform(WM_SYSCOMMAND, SC_MOVE or 2, 0);　　　　　 //移動
end;

                              97/10/18(Sat) 00:35am  BYI11634 MOMO_P

Original document by MOMO_P          氏 ID:(BYI11634)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。