procedure TForm1.pnl1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(pnl1.Handle,wm_SysCommand,$F012,0);//改变位置
//ReleaseCapture;
//SendMessage(pnl1.Handle,wm_SysCommand,$F008,0);//改变大小
end;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(pnl1.Handle,wm_SysCommand,$F012,0);//改变位置
//ReleaseCapture;
//SendMessage(pnl1.Handle,wm_SysCommand,$F008,0);//改变大小
end;
本文概述了程序设计、开发技术及应用领域的关键概念,包括但不限于AI音视频处理、区块链、自然语言处理等前沿技术,旨在为读者提供全面的技术视角。
1976

被折叠的 条评论
为什么被折叠?



