2022 年 6月 17 日随笔档案 - 一曲轻扬

2022年6月17日

摘要：我写了一个无边框的窗体.想通过pnlTop实现拖动窗体,与双击时最大化的功能. 最佳的解决方案如下: procedure TFMain.pnlTopMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: I 阅读全文

posted @ 2022-06-17 19:42 一曲轻扬阅读(463) 评论(0) 推荐(0)

Delphi 获取屏幕分辨率与Windows任务栏的高度

摘要：屏幕分辨率: 宽: screen.WorkAreaWidth; 高: screen.WorkAreaHeight; 获取任务栏高度的方法有三种: 第一种：需要引用Windows单元 ShowMessage(IntToStr(GetSystemMetrics(SM_CYSCREEN)-GetSyste 阅读全文

posted @ 2022-06-17 11:12 一曲轻扬阅读(453) 评论(0) 推荐(0)