摘要： { 可用于下拉框的值，因为不经常变，就算变可改变INI文件一次。 一、ini文件结构 ; 注释，独占一行，否则认为是关键字的值 [小节名] 关键字=值 二、定义 uses IniFiles [UserInfo] userName=moon userPas=123456 isHun=1 [UserPro] userAge=26} //定义 filePath:String; myIniFile:TIniFile; //创建 fileP... 阅读全文

摘要： 1、将OpenDialog打开的图片显示到image控件：//如果需要打开jpg图片，需要引用单元 uses jpeg;image1.Picture.LoadFromFile(OpenDialog1.FileName);2、产生随机数//uses math;Randomize; //初始化随机种子，否则结果相同。Randomrange(0,5); //随机产生0至4的随机数。random(5); //随机产生0到4的随机数。3、修改Delphi工具控件的默认字体：注册表：Delphi 6: HKEY_CURRENT_USER\Software\Borland\Delphi\6.0Del... 阅读全文

摘要： 1、提示框TbsSkinMessageuses Dialogs; bsSkinMessage1.MessageDlg2(value,'提示',mtInformation,[mbOk],0); 阅读全文

摘要： 1、右键选择行procedure TFZu.SG_dataMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var MousePos: TSmallPoint;begin if Button = mbRight then begin MousePos.x := x; MousePos.y := y; SendMessage(SG_data.Handle, WM_LBUTTONDOWN, ... 阅读全文