摘要：1 uses 2 Zlib; 3 4 //压缩函数 5 procedure Zip(var fs: TMemoryStream); 6 var 7 cs: TCompressionStream; 8 ms: TMemoryStream; 9 num: Integer;10 begin11 if not(Assigned(fs) and (fs.Size>0)) then Exit;12 13 num := fs.Size;14 ms := TMemoryStream.Create;15 cs := TCompressionStream.Creat... 阅读全文

摘要：在Delphi中有一个控件THotKey，可以用来设置自定义的快捷键。一般情况可以 ShortCutToText，以文件的形式将设置的快捷键保存下来，还可以用TextToShortCut，将保存成文本的键值灰复。这种方式虽然很直观，但是存在一些问题，大键盘的“Ctrl+1” 与 数字键盘的“Ctrl+1”，在THotKey控件显示是不同的，前者会显示 “Ctrl + 1” ，而后者会显示 “Ctrl + Num 1”，但是用 ShortCutToText 输出均显示“Ctrl + 1”，如果是这样那么用TextToShortCut恢复键值就会出错。对于这个问题，网上有人建议在保存键值的同时，将 阅读全文

摘要：point: TPoint; Point := (sender as TStringGrid).ScreenToClient(GetMouseCursorPos); (sender as TStringGrid).MouseToCell(Point.x, Point.y, col, row); 阅读全文