delphi学习杂记

上传：crx67770 浏览： 35 推荐： 0 文件：TXT 大小：41.7KB 上传时间：2019-02-28 03:43:09 版权申诉

一些Delphi常用的代码及问题展示` 如： //为控件加边框 procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT; procedure TForm1.WMNCPaint(var Msg: TWMNCPaint); var dc: hDC; Pen: hPen; OldPen: hPen; OldBrush: hBrush; begin inherited; dc := GetWindowDC(Handle); msg.Result := 1; Pen := CreatePen(PS_SOLID,