2012年2月24日
TControl自由移动变化大小 assigned(Panel1.onMouseMoe)判断修改移动事件
摘要： procedure ManipulateControl(Control: TControl; Shift: TShiftState; X, Y, Precision: integer);var Form1: TForm1;implementation{$R *.dfm}// 任意改变一个控件 ( 拖动、放大、缩小 )procedure ManipulateControl(Control: TControl; Shift: TShiftState; X, Y, Precision: integer);var SC_MANIPULATE: Word;begin if (X<=Precisio 阅读全文
posted @ 2012-02-24 16:35 ftwsnow 阅读(296) 评论(0) 推荐(0)