让窗体永远显示在最前面:
取FormStyle值为fsStayOnTop
//---------------------------------------------------------------------------
夺取程序的控制权:
Application->ProcessMessages();
//---------------------------------------------------------------------------
隐藏桌面的图标:
HWND hw;hw=FindWindow("Progman",0);ShowWindow(hw,SW_HIDE);//显示ShowWindow(hw,SW_SHOW);
//---------------------------------------------------------------------------
隐藏windows开始菜单的方法:
HWND hw;hw=FindWindow("Shell_TrayWnd",0);ShowWindow(hw,SW_HIDE);//显示ShowWindow(hw,SW_SHOW);
//---------------------------------------------------------------------------
自定义应用程序的图标:
菜单Project-Option,单击Application页,单击旁边的Load Icon按钮
//---------------------------------------------------------------------------
改变应用程序的光标:
控件的Cursor属性
//---------------------------------------------------------------------------
让应用程序脱离支持文件而独立运行:
第一步:选择菜单Project-Option项,Linker页,将Use dynamic RTL选项的"勾"取消;
第二步:菜单项,Packages页,将Build with runtime packages 选项的勾取消。
//注:如果程序用到OLL,ocx等键接库,不存在独立运行的可能,必须带上键接库
//---------------------------------------------------------------------------
对窗体OnClose事件响应函数只有一个参数Action,该参数的取值是一个枚举类型:
enum TCloseAction {caNone,caHide,caFree,caMInimize};
caNone表示不允许关闭窗体;caHide表示隐藏窗体但不关闭;caFree表示关闭窗体并释放窗体所占内存,
caMinimize表示将窗体最小化但不关闭
//---------------------------------------------------------------------------
产生随机数,random(i)返回一个0 ~ i-1之间的整数,rand()则返回一个0 ~ 32767之间的整数
//---------------------------------------------------------------------------
复选按钮的AllowGray属性为true则按钮有三种状态(选中,未选中,选中只读),若为false,只有两种状态(选中,未选中)
弹出对话框 Application->MessageBox("这是一个按钮","Hello",MB_OKCANCEL);