资 源 简 介
应用背景…/ / --------使twincontrols双缓冲(消除愚蠢的闪烁)程序enabledoublebuffering(父母:来;const aenabled:布尔);VaR我:整数; ;awincontrol:来;开始 ;与父母做一开始 ; ; ; ; ;如果父母是有有那么aparent.doublebuffered:= aenabled;和公司的; ; ; ; ; ;我:= 0 - 1开始controlcount ; ; ; ; ; ; ;如果控制[我]是有有那么和,和,和,和,和,; ; ; ; ; ; ; ; ; ; ;awincontrol来:=(对照组[我]); ; ; ; ; ; ; ; ; ; ;awincontrol.doublebuffered:= aenabled; ; ; ; ; ; ; ; ; ; ;如果awincontrol.controlcount & gt;0 enabledoublebuffering(awincontrol,真的);和,和,和,和,和,;和,和,和,结束;结束了;终点…关键技术型 ;/ / -------参与者 ;tparticipants =记录人:数组[ 1 .. 0 ]的字符串;和,我的身份证:数组[ 0 .. 1 ]的字符串;结束了;并; ;/ / ------- Skype聊天同步文件 ;tskypechatsyncfile =记录文件名:文件名:字符串; ; ; ;filedatetimestamp:整数; ; ; ;filedatetime:TDateTime;结束了; ;/ / -------所有同步文件 ;tskypech