我有两千多分,想散分,大家快来呀!!见者有'分'!!

Question

请各位大虾提供一个类的结构
包括构造函数,析构函数,相关属性,方法的定义我有两千多分,想散分,大家快来呀!!见者有'分'!!

Answer 1

你自己看一看
 TCustomLabel = class(TGraphicControl)
  private
    FFocusControl: TWinControl;
    FAlignment: TAlignment;
    FAutoSize: Boolean;
    FLayout: TTextLayout;
    FWordWrap: Boolean;
    FShowAccelChar: Boolean;
    FOnMouseLeave: TNotifyEvent;
    FOnMouseEnter: TNotifyEvent;
    FTransparentSet: Boolean;    
    function GetTransparent: Boolean;
    procedure SetAlignment(Value: TAlignment);
    procedure SetFocusControl(Value: TWinControl);
    procedure SetShowAccelChar(Value: Boolean);
    procedure SetTransparent(Value: Boolean);
    procedure SetLayout(Value: TTextLayout);
    procedure SetWordWrap(Value: Boolean);
    procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
    procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED;
    procedure CMDialogChar(var Message: TCMDialogChar); message CM_DIALOGCHAR;
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  protected
    procedure AdjustBounds; dynamic;
    procedure DoDrawText(var Rect: TRect; Flags: Longint); dynamic;
    function GetLabelText: string; virtual;
    procedure Loaded; override;
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
    procedure Paint; override;
    procedure SetAutoSize(Value: Boolean); override;
    property Alignment: TAlignment read FAlignment write SetAlignment
      default taLeftJustify;
    property AutoSize: Boolean read FAutoSize write SetAutoSize default True;
    property FocusControl: TWinControl read FFocusControl write SetFocusControl;
    property ShowAccelChar: Boolean read FShowAccelChar write SetShowAccelChar default True;
    property Transparent: Boolean read GetTransparent write SetTransparent stored FTransparentSet;
    property Layout: TTextLayout read FLayout write SetLayout default tlTop;
    property WordWrap: Boolean read FWordWrap write SetWordWrap default False;
  public
    constructor Create(AOwner: TComponent); override;
    property Caption;
    property Canvas;
    property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
    property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
  end;

Answer 2

随便给一个
type
  TMyMsg = class(TThread)
  private
    SenderId: string;
    SenderName: string;
    function SaveMsg(): Boolean; 
    procedure AddReceivedMsg(MsgType: Integer); 
  protected
    procedure Execute; override;
  public
    constructor Create(MsgSrvIp: string; MsgSrvPort: string);
    destructor Destroy;override;
  end;

Answer 3

To delphi_xizhousheng
  奥NO,VCL是最好的啊；我常常看的就是VCL!

Answer 4

对,不要贴VCL出来呀
我是想要基础点的
类的基本结构

Answer 5

我想编一个数据库基础操作的类
下面的是代码,不知道哪里有错啦??
请大虾指教!
========================================================================unit DBBase;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ADODB;Type
TDBBase = class(TObject) private
FADOConn : TADOConnection;
FADOQuery : TADOQuery;
FSQLStr : string; protected public
constructor Create();virtual; // 构造函数
destructor Destroy();virtual; // 析构函数 function SQLExec : boolean;
function SQLConnect : boolean;
function SQLDisconnect : boolean; property ADOConn : TADOConnection read FADOConn write FADOConn;
property ADOQuery : TADOQuery read FADOQuery write FADOQuery;
property SQLStr : string read FSQLStr write FSQLStr;
end;implementation//-------------------------------------------------------------------------
constructor TDBBase.Create();
begin
inherited Create;
//..
if SQLConnect = false then
begin
Application.MessageBox('链接数据库失败！', '错误', MB_OK or MB_ICONERROR);
Application.Terminate;
end;
end;//-------------------------------------------------------------------------
destructor TDBBase.Destroy;
begin
//..
SQLDisconnect; inherited Destroy;
end;//-------------------------------------------------------------------------
function TDBBase.SQLExec : boolean;
begin
try
FADOQuery.Close;
FADOQuery.SQL.Text := FSQLStr;
FADOQuery.Active := true; Result := true;
except
Result := false;
end;
end;//-------------------------------------------------------------------------
function TDBBase.SQLConnect : boolean;
begin
try
FADOConn.Close;
FADOConn.ConnectionString := 'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=Test;Data Source=WINLAI';
FADOConn.Open; Result := true; if FADOConn.Connected = false then
Result := false;
except
Result := false;
end;
end;//-------------------------------------------------------------------------
function TDBBase.SQLDisconnect : boolean;
begin
try
FADOConn.Close;
Result := true;
except
Result := false;
end;
end;//-------------------------------------------------------------------------
end.