怎么用鼠标拖拽方式移动、改变大小已有的控件，比如Panel

2003-12-02 11:44:02 408 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

c# 模仿鼠标拖拽矩形框张宇轩 private void ResizeToRectangle(Point p){ DrawRectangle(); MouseRect.Width = p.X - MouseRect.Left; MouseRect.Height = p.Y - MouseRect.Top; DrawRectangle();}private void DrawRectangle(){ Rectangle rect = this.RectangleToScreen(MouseRect); ControlPaint. 阅读详情

在Form中的已有控件，怎么用鼠标拖动，改变其位置，当鼠标移动到panel边缘的时候，怎么拖动改变其大小？俺是UI白痴！

...全文

WinForm开发中Panel控件的核心应用与高级技巧详解在桌面应用开发中，容器控件是实现复杂界面布局和功能分区的基石。其核心原理在于通过逻辑分组和统一管理，将相关UI元素组织在一起，从而提升代码的可维护性和界面结构的清晰度。这一技术价值体现在能够高效构建动态内容加载、选项卡切换、可折叠区域等高级交互场景。例如，在C# WinForm开发中，Panel控件作为最基础的容器，通过其Dock、Anchor、AutoScroll等关键属性，结合SuspendLayout/ResumeLayout性能优化方法，可以解决界面闪烁、内存管理等常见工程问题。本文聚焦Panel控阅读详情

roc_fu

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

47522341 2003-12-02

打赏
举报

给分吧
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Button1.Perform(wm_syscommand,$F012,0);
end;

frogshero 2003-12-02

打赏
举报

俺也是

roc_fu 2003-12-02

打赏
举报

zzh54zzh(我也要补钙！) 的答案最好，嘿嘿，今天真顺利，一下就找到答案了

zzh54zzh 2003-12-02

打赏
举报

procedure ManipulateControl(WinControl: TControl; Shift: TShiftState;
X, Y, Precision: integer);
//Precision:精度，该方法可以在onmousemove中调用
var
SC_MANIPULATE: Word;
begin
//光标在控件的最左侧
if (X<=Precision) and (Y>Precision) and (Y<WinControl.Height-Precision) then
begin
SC_MANIPULATE := $F001;
WinControl.Cursor := crSizeWE;

end
else
//光标在控件的最右侧
if (X>=WinControl.Width-Precision) and (Y>Precision) and (Y<WinControl.Height-Precision) then
begin
SC_MANIPULATE := $F002;
WinControl.Cursor := crSizeWE;
end
else
//光标在控件的最上侧
if (X>Precision) and (X<WinControl.Width-Precision) and (Y<=Precision) then
begin
SC_MANIPULATE := $F003;
WinControl.Cursor := crSizeNS;
end
else
//光标在控件的最下侧
if (X>Precision) and (X<WinControl.Width-Precision) and (Y>=WinControl.Height-Precision) then
begin
SC_MANIPULATE := $F006;
WinControl.Cursor := crSizeNS;
end
else
//光标在控件的左上角
if (X<=Precision) and (Y<=Precision) then
begin
SC_MANIPULATE := $F004;
WinControl.Cursor := crSizeNWSE;
end
else
//光标在控件的右上角
if (X>=WinControl.Width-Precision) and (Y<=Precision) then
begin
SC_MANIPULATE := $F005;
WinControl.Cursor := crSizeNESW ;
end
else
//光标在控件的左下角
if (X<=Precision) and (Y>=WinControl.Height-Precision) then
begin
SC_MANIPULATE := $F007;
WinControl.Cursor := crSizeNESW;
end
else
//光标在控件的右下角
if (X>=WinControl.Width-Precision) and (Y>=WinControl.Height-Precision) then
begin
SC_MANIPULATE := $F008;
WinControl.Cursor := crSizeNWSE;
end
else
//光标在控件的客户区（移动整个控件）
if (X>5) and (Y>5) and (X<WinControl.Width-5) and
(Y<WinControl.Height-5) then
begin
SC_MANIPULATE := $F009;
WinControl.Cursor := crSizeAll;
end
else
begin
SC_MANIPULATE := $F000;
WinControl.Cursor := crDefault;
end;
if Shift=[ssLeft] then
begin
ReleaseCapture;
WinControl.Perform(WM_SYSCOMMAND, SC_MANIPULATE, 0);
end;
end;

//调用方法：
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Caption := IntToStr(X) + '/' + IntToStr(Y);
ManipulateControl((Panel1 as TwinControl), Shift, X, Y, 10);
end;

注意：只有从TWinControl继承的控件，才能用此方法。

constantine 2003-12-02

打赏
举报

不知道。

roc_fu 2003-12-02

打赏
举报

不是吧，用什么关键字可以搜到以前的贴？

flyforlove 2003-12-02

打赏
举报

47522341(睡到8：30)

呵呵，同样的一个回帖，不知道“骗”了多少分了。

roc_fu 2003-12-02

打赏
举报

果然是高人，还有一个问题，怎么通过鼠标改变控件大小咧？

怎么用鼠标拖拽方式移动、改变大小已有的控件，比如Panel

相关推荐