在 Delphi 中可以自定义类吗，如何定义呢，刚入门，求助！

Question

请给出具体的格式，谢谢了。

Answer 1

定义类，你可以仿照VCL定义类的方法，这个可不是3句2句说清，等你入门了自然就明白了……

Answer 2

呵呵，要不贴一个出来吧，
  TMyCommThread = class(TThread)
  private
    { Private declarations }
    FSBID: Byte;
    FPort: Byte;
    FBaulSpeed:DWord;
    FParty:Byte;
    FByteSize:Byte;
    FStopBit:Byte;
    FDTREnable:Boolean;
    FRTSEnable:Boolean;
    FSB:TStatusBar;    FHandle: THandle;
    hComm: THandle;
  protected
    procedure Execute; override;
  public
    procedure WriteMyInfo(str: string);
    procedure DataManage;
    //检测控制符并发送数据或消息
    //如果SData=0 则发送消息(指数据接受完成)
    procedure CheckReceiveAndSend(buf:TMyAData;IDKey,SData:Byte);
    //处理SABA18数据
    procedure TransactSABA18(buf: TMyAData);
    procedure TransactF820(buf: TMyAData);
    procedure TransactHC9885(buf: TMyAData);
    procedure TransactD2010(buf: TMyAData);
    procedure TransactA6(buf: TMyAData);
  published
    constructor Create(ThdPrm: TMyPortParam;AHandle:THandle);
  end;

Answer 3

type
  TMyClass=class
end;