A
arraiy
Unregistered / Unconfirmed
GUEST, unregistred user!
[]我是个delphi新手,对有些delphi语法我搞不懂,请教一下大家:
举个例子,窗体中一个Edit1组件,编写其的MouseDown事件如下
procedure TForm1.Edit1MouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
const
SC_DragMove=$F012;
begin
ReleaseCapture ;
(Sender as TWinControl).Perform(WM_SysCommand,SC_DragMove,0);
end ;
编译运行效果是实现鼠标拖动edit1组件可以让它移动,可我不明白其中的那几条
语句的意思,请大家帮我分析一下好吗?
关于什么Sender、as、self、函数名(WM_SysCommand,SC_DragMove,0) 带的参数是什么WM_
什么的,这些都是什么意思啊?书上又不讲清楚,让我们这些初学者摸头不知脑。谢谢各了!
举个例子,窗体中一个Edit1组件,编写其的MouseDown事件如下
procedure TForm1.Edit1MouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
const
SC_DragMove=$F012;
begin
ReleaseCapture ;
(Sender as TWinControl).Perform(WM_SysCommand,SC_DragMove,0);
end ;
编译运行效果是实现鼠标拖动edit1组件可以让它移动,可我不明白其中的那几条
语句的意思,请大家帮我分析一下好吗?
关于什么Sender、as、self、函数名(WM_SysCommand,SC_DragMove,0) 带的参数是什么WM_
什么的,这些都是什么意思啊?书上又不讲清楚,让我们这些初学者摸头不知脑。谢谢各了!