摘要: var reg : TRegistry; sComm : TStrings; i : integer;begin reg := TRegistry.Create; reg.RootKey := HKEY_LOCAL_MACHINE; reg.OpenKey('hardware\devicemap\serialcomm',false); sComm := TStringList.... 阅读全文
posted @ 2013-10-12 14:30 热血小伙 阅读(1098) 评论(0) 推荐(0) 编辑
摘要: 在Delphi中,早期的时候我们没办法建立 像这样的 array of TButton 的组件数组。我们的使用的方法或许是: 利用 Form 的Components属性,这个属性就是Form中所有的组件的数组,通过它来索引组件,显然这是不方 便的: var Index : Integer;begin For Index:=0 to ControlCount-1 do begin if ... 阅读全文
posted @ 2013-10-06 21:46 热血小伙 阅读(229) 评论(0) 推荐(0) 编辑
摘要: var BlendFunc: TBlendFunction;begin BlendFunc.BlendOp := AC_SRC_OVER; BlendFunc.BlendFlags := 0; BlendFunc.SourceConstantAlpha := TrackBar1.Position; if bit.PixelFormat = pf32bit then BlendFun... 阅读全文
posted @ 2013-10-06 21:35 热血小伙 阅读(361) 评论(0) 推荐(0) 编辑
摘要: 1. 整条 MainMenu 的背景 Windows 本身有提供API,让我们定制 MainMenu 的背景,那就是通过 SetMenuInfo BOOL SetMenuInfo( HMENU hmenu, LPCMENUINFO lpcmi ); 参数: hmenu , 要自绘的 MainMenu 的 句柄 lpcmi, 指向 MENUINFO 结构体的指针 具体的设置全在 MENUIN... 阅读全文
posted @ 2013-10-06 21:22 热血小伙 阅读(1376) 评论(0) 推荐(0) 编辑
摘要: 只需要在窗体的创建时,添加如下代码procedure TMainForm.FormCreate(Sender: TObject);begin SetWindowLong(handle, gwl_style, getwindowlong(handle, gwl_style) xor ws_caption); hide; show;end; 阅读全文
posted @ 2013-05-16 16:07 热血小伙 阅读(407) 评论(0) 推荐(0) 编辑