Panelを自由に移動するには？ (ID:29477)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

すいません。
よく分からなくてネット上にあったサンプルを使ってみたらそうなってしまいました。

↓がそのサンプルです。
//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;

←解決時は質問者本人がここをチェックしてください。

戻る