拖动更改panel控件大小

最新推荐文章于 2025-06-03 18:04:44 发布

转载最新推荐文章于 2025-06-03 18:04:44 发布 · 3.5k 阅读

delphi 专栏收录该内容

41 篇文章

订阅专栏

本文介绍了一个使用Delphi编写的窗体调整程序，通过监听鼠标事件实现对窗体边界的智能调整。针对窗体的不同边界位置，程序能自动切换到相应的调整模式，如移动、缩放等。

ACE-Step

音乐合成

ACE-Step

ACE-Step是由中国团队阶跃星辰（StepFun）与ACE Studio联手打造的开源音乐生成模型。它拥有3.5B参数量，支持快速高质量生成、强可控性和易于拓展的特点。最厉害的是，它可以生成多种语言的歌曲，包括但不限于中文、英文、日文等19种语言

unit Unit1;
{download by http://www.codefans.net}
interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Buttons;

type
TForm1 = class(TForm)
Panel1: TPanel;
pnl1: TPanel;
procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (x>=0)and(x<=3) then
begin
if (y>=0)and(y<=3) then Panel1.Cursor:=crSizeNWSE;
if (y>3)and(y<Panel1.Height-3) then Panel1.Cursor:=crSizeWE;
if (y>=Panel1.Height-3)and(y<=Panel1.Height) then Panel1.Cursor:=crSizeNESW;
end
else if (x>3)and(x<Panel1.Width-3) then
begin
if (y>=0)and(y<=3) then Panel1.Cursor:=crSizeNS;
if (y>3)and(y<Panel1.Height-3) then Panel1.Cursor:=crArrow;
if (y>=Panel1.Height-3)and(y<=Panel1.Width) then Panel1.Cursor:=crSizeNS;
end
else if (x>=Panel1.Width-3)and(x<=Panel1.Width) then
begin
if (y>=0)and(y<=3) then Panel1.Cursor:=crSizeNESW;
if (y>3)and(y<Panel1.Height-3) then Panel1.Cursor:=crSizeWE;
if (y>=Panel1.Height-3)and(y<=Panel1.Width) then Panel1.Cursor:=crSizeNWSE;
end;

end;

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
if (x>=0)and(x<=3) then
begin
// file://左上角方向改变大小
if (y>=0)and(y<=3) then Panel1.Perform(WM_SysCommand,$F004,0);
// file://左侧
if (y>3)and(y<Panel1.Height-3) then Panel1.Perform(WM_SysCommand,$F001,0);
// file://左下角
if (y>=Panel1.Height-3)and(y<=Panel1.Height) then Panel1.Perform(WM_SysCommand,$F007,0);
end
else if (x>3)and(x<Panel1.Width-3) then
begin
// file://上侧
if (y>=0)and(y<=3) then Panel1.Perform(WM_SysCommand,$F003,0);
// file://移动控件
if (y>3)and(y<Panel1.Height-3) then Panel1.Perform(WM_SysCommand,$F012,0);
// file://下侧
if (y>=Panel1.Height-3)and(y<=Panel1.Width) then Panel1.Perform(WM_SysCommand,$F006,0);
end
else if (x>=Panel1.Width-3)and(x<=Panel1.Width) then
begin
// file://右上角
if (y>=0)and(y<=3) then Panel1.Perform(WM_SysCommand,$F005,0);
// file://右侧
if (y>3)and(y<Panel1.Height-3) then Panel1.Perform(WM_SysCommand,$F002,0);
// file://右下角
if (y>=Panel1.Height-3)and(y<=Panel1.Width) then Panel1.Perform(WM_SysCommand,$F008,0);
end;
end;

end.

您可能感兴趣的与本文相关的镜像

ACE-Step

音乐合成

ACE-Step