摘要:
SystemParametersInfo(spi_setbeep,0,NIL,spif_sendwininichange); //关闭 SystemParametersInfo(spi_setbeep,1,NIL,spif_sendwininichange); //打开//没有效果通过 Wiz 发布 阅读全文
摘要:
//功能说明:SystemParametersinfo代码控制光标procedureTForm1.Button1Click(Sender: TObject);varh: HCURSOR;beginh:=LoadCursorFromFile('3dsmove.cur');//导入光标SetSystemCursor(h,ocr_normal);end;procedureTForm1.Button2Cl... 阅读全文
摘要:
//StatusBar在状态栏中显示checkBoxprocedure TForm1.CheckBox1Click(Sender: TObject);beginImage1.Visible := not CheckBox1.Checked;end;procedure TForm1.FormCreate(Sender: TObject);beginCheckBox1.P... 阅读全文