- 博客(2)
- 资源 (23)
- 收藏
- 关注
原创 Delphi如何实现无边框窗体的移动
在控件的MouseDown事件中加入 if (ssleft in Shift) then begin ReleaseCapture; Perform(WM_syscommand, $F012, 0); end; 如form1: procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftSta
2008-09-02 09:34:00
649
转载 世界上最遥远的距离
世界上最遥远的距离 世界上最遥远的距离不是 生与死而是 我就站在你面前 你却不知道我爱你世界上最遥远的距离不是 我就站在你面前 你却不知道我爱你而是 明明知道彼此相爱 却不能在一起世界上最遥远的距离不是 明明知道彼此相爱 却不能在一起而是 明明无法抵挡这股想念却还得故意装作
2008-09-02 08:45:00
257
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人