摘要： 问题来源: http://www.cnblogs.com/del/archive/2009/03/09/1284244.html#1472084 {函数} function ReadFileToHex(FileName: string): string; var b: Byte; begin Result := ''; if not FileExists(FileName) the... 阅读全文

摘要： 问题来源: http://www.cnblogs.com/del/archive/2009/03/09/1234066.html#1471535 本例效果图: 自定义类(TMyShape)单元 : unit Unit2; interface uses Classes, Controls, ExtCtrls; type TMyShape = class(TShape) pr... 阅读全文