模拟设计时组件托动、改变大小的问题？

2004-06-15 12:02:18 171 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Oracle到KingbaseES数据库迁移实战指南数据库迁移是系统架构演进中的关键技术环节，尤其在国产化替代背景下，Oracle到KingbaseES的异构数据库迁移需求激增。从技术原理看，这类迁移需要解决数据类型映射、SQL语法转换、存储过程兼容等核心问题。通过专业的迁移工具如KDTS，可以实现表结构、业务逻辑的完整移植，同时保证数据一致性。在金融、政务等关键领域，这类技术能有效降低迁移风险，提升系统稳定性。实际应用中需重点关注性能调优、连接池适配等工程细节，这正是Oracle迁移KingbaseES方案的核心价值所在。阅读详情

如何实现运行时能够像设计时一样点击组件，组件周围出现八个矩形区域
鼠标移到矩形区域上可以托动，改变组件的大小，位置等

...全文

JDBC实战避坑指南：驱动加载、URL解析与连接池真相 JDBC是Java应用访问数据库的基础技术，其核心在于驱动注册机制、连接URL协议解析和连接资源管理。从JDBC 4.0起，SPI服务发现取代了脆弱的Class.forName()显式加载，但ClassLoader隔离问题仍导致常见ClassNotFoundException；MySQL 8+与OceanBase等国产数据库的JDBC URL参数（如useSSL、serverTimezone、loadbalance）并非可选配置，而是直接影响连接建立、时区转换与高可用路由的关键控制项；而DataSource 阅读详情

将计就计123

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

将计就计123 2004-06-17

打赏
举报

已找到了方法
谢谢各位

tonylk 2004-06-16

打赏
举报

自己处理MouseDown，MouseUp等事件，在MouseDown时动态生成8个小控件（可以用TPanel之类的），并且在鼠标拖动这8个小控件时，自动更新主体。。。。如果要加上多选的功能就更复杂了，一句两句说不清楚的。。

踢踏 2004-06-15

打赏
举报

如果完全按照你所说的去做，难度非常大。
上面的代码只对从TWinControl继承下来的VCL控件有效。
TLabel可以使用TStaticText来替代。

将计就计123 2004-06-15

打赏
举报

谢过楼上的！
我的说明有“点击组件，组件周围出现八个矩形区域”一句，你的没有实现
且对于TLABEL这样的做法是不行的。

踢踏 2004-06-15

打赏
举报

用这个，然后在鼠标的Move事件中使用。

procedure ManipulateControl(WinControl: TWinControl; Shift: TShiftState;
X, Y, Precision: integer);
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 (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 (X<WinControl.Width-Precision) and (Y>=WinControl.Height-Precision)
then begin
SC_MANIPULATE := $F006;
WinControl.Cursor := crSizeNS;
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;

baseyueliang 2004-06-15

打赏
举报

1、画出来，得自己捕捉焦点
2、使用Windows控件

模拟设计时组件托动、改变大小的问题？

相关推荐