都市随缘

Delphi 心得、体会

导航

2009年6月7日 #

判断系统是否启动了视觉样式

摘要： Function IsAppThemed: Boolean; external 'uxtheme.dll';Function FreeLibrary: Integer; external 'kernel32.dll';Function SupportThemeSystem: Boolean;var lngLibHandle: THandle;begin Result := false; lngLi... 阅读全文

posted @ 2009-06-07 15:47 UfoID 阅读(181) 评论(0) 推荐(0) 编辑

系统菜单的控制,使菜单项灰显及恢复功能

摘要： Const MyMove = 1000; //自定义消息(全局)M := GetSystemMenu(Application.Handle, false); //获取系统菜单，M定义属性为HMENUDeleteMenu(M, 0, MF_BYPOSITION); //删除系统菜单中的第一菜单项InsertMenu(M, 0, MF_ByPosition+MF_String, 1000, '还原(... 阅读全文

posted @ 2009-06-07 11:31 UfoID 阅读(368) 评论(0) 推荐(0) 编辑

使窗体处于可“移动”，可改变“大小”状态中

摘要： 在菜单中加入两个按钮，实现系统菜单中的“大小”及“移动”功能。SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_SIZE, 0);//使窗体处于可改变大小状态SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_MOVE, 0);//使窗体处于可移动位置状态 阅读全文

posted @ 2009-06-07 00:17 UfoID 阅读(193) 评论(0) 推荐(0) 编辑