delphi程序全屏显示无标题栏覆盖整个屏幕(适合屏保)
delphi 程序全屏显示无标题栏，覆盖整个屏幕，这个在做抽奖或屏保时有用的，所以记下 procedure TMainFrm.FormCreate(Sender: TObject); begin with Main...
Delphi xe10.1中实现程序的自重启
uses ShellAPI; 代码如下 procedure TForm2.btn1Click(Sender: TObject); var strAppPath: String; begin form1.qry1.UpdateBatch;//提交修bai改; Sh...
在DBGrid 中修改、删除、更新数据
用adoquery操作数据库，用的是baiadoconnection，而不是database 只需du要将adoquery的Lock Type设置成 adoquery1.LockType:=ltBatchOptimistic; procedure T...
Delphi洗牌算法 – 将一个数组随机乱序
用于考试时乱序，相同的试题，但每位考生看到的题序不同。 unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, Sy...
delphi Memo1 行随机打乱
procedure ShuffleStrings(List: TStrings; MoveCount: Integer = 0); var i, N, C: Integer; Index1, Index2: Integer; Str: string; Obj: TObject; b...
delphi dbgrideh 根据标题宽度自动调整列宽
1.uses Math(我在xp+d7下没有引用该文件貌似也能执行,原文是要引用的,大家可以测试一下) 2.先定义两个函数 function Tmain_khjx.DBGridAutoSize(mD...
flutter_easyrefresh自定义下拉样式及文字
return EasyRefresh( enableControlFinishRefresh: false, enableControlFinishLoad: true, control...