delphi
关注
分享
扫一扫
文章平均质量分 57
super_kevin
这个作者很懒，什么都没留下…
展开
专栏收录文章
- 默认排序
- 最新发布
- 最早发布
- 最多阅读
- 最少阅读
-
多线程ping代码
unit PingThread;interfaceuses Windows, Messages, SysUtils, Classes, winsock;type TPingReply = class(TObject) IP,转载 2006-08-25 13:41:00 · 1845 阅读 · 0 评论 -
delphi Ping code
回复人： cuteant(我这张旧床票还能否登上你的破床|涛声是否依旧) ( ) 信誉：100 2006-3-10 10:39:00 得分:0转载 2006-08-25 13:44:00 · 938 阅读 · 0 评论 -
汉字简繁转换
unit UserTypes;interfaceusesWindows;type TLanguageType = (LanguageType_Simplified, LanguageType_Traditional);// TLanguage = (Language_GB, Language_BIG5);typeTVersionInfoItem = (viCompanyName, viF转载 2006-08-25 13:59:00 · 1228 阅读 · 0 评论 -
制作动态效果的Form
procedure TForm3.FormShow(Sender: TObject);begin AnimateWindow(handle,250,AW_Center); // AW_BLEND , AW_Center // AW_VER_POSITIVE , AW_HOR_POSITIVE // AW_HOR_NEGATIVE , AW_VER_NEGATIVE转载 2006-08-28 14:36:00 · 735 阅读 · 0 评论 -
logic font sample code
procedure TForm1.DrawFont(ParentHandle: HWND; x, y, fw, fh: Integer; c: string);var FLogFont : tagLogFontA; //逻辑字体--结构体类型 hTempFont, hPrevFont : HFONT; //字体句柄 hTem转载 2006-08-25 13:56:00 · 747 阅读 · 0 评论 -
编程实现自动隐藏任务栏
procedure TForm1.CheckBox1Click(Sender: TObject);const ABM_SETSTATE = $000000A;var AppBarData: TAppBarData;begin AppBarData.cbSize := SizeOf(TAppBarData); if CheckBox1.Checked then begin AppBar转载 2006-08-25 13:37:00 · 1162 阅读 · 0 评论