摘要:
常用DELPHI控件属性设置说明目录TForm Class TPanel组件 TToolBar Class TToolButton Class TTimer Class TADOConnection Class TADOQuery Class TADODataSet Class TDBGrid Cl 阅读全文
摘要:
var defaultPath:string; //这里可以设置为全局变量begin if SaveDialog1.Execute then begin defaultPath := SaveDialog1.FileName; //文件路径+文件名,不确定是否包含后缀 if ExtractFileE 阅读全文
摘要:
function IntToBin(AInt: Integer): string; begin Result := ''; for var lIndex := 1 to Sizeof(AInt) * 8 do Result := Result + (AInt shr (Sizeof(AInt) * 阅读全文
摘要:
当用户的键盘和鼠标无操作超过才一个时间值时,执行锁屏程序 //使用TTimer控件的OnTime事件procedure TForm1.Timer1Timer(Sender: TObject); begin //锁屏.当用户设置了自动锁屏,并且锁屏程序没有启动时,这两个都是自定义变量 if UserI 阅读全文