從99年學習delphi開始，我就被它的快速開發迷上了，那時候剛接觸編程，對可視化開發特別來勁，原因嘛，不外乎是比C更快的實現啦，這幾年來，從delphi的C/S到三層B/S,大大小小也寫過一些軟體，自認為這delphi也就這麼些功能吧，自從最近偶得一本Com本質論,研究了一下VCL源碼，才發現它真的神通廣大（我也不知道用什麼詞來形容），最近有些許突破，就在此於大家分享，有不對之處還請指點一二。
說穿了，元件只包括二類成員： 屬性和方法(我所說的方法包括了事件)
分屬於四個部分：
PRivate
protected
public
published
上面四部分的意思在一般的視覺化開發書籍當中都會有介紹，這裡只相對於delphi作簡單概述。
private： 所有私有的成員都放在這裡，只能被類別本身的方法所訪問，而不能被子類別訪問，對子類別透明。也可說只能被單元本身的方法存取。
protected：除了可以被子類別繼承外，其餘和private一樣。不能被外界造訪。
public： 公有的，在此間宣告的屬性和方法能被使用者呼叫。
published: 出現在delphi開發環境屬性列。
首先我們來做一個最簡單的控件，不到五分鐘，你就會明白delphi的組件面板上的組件是如何製作的了。
新建->New->Component 回車。
然後在Ancestor type:中選擇你要繼承的父類，這裡我們選TComponent.表示繼承TComponent的所有屬性和方法。
Class Name:中輸入將要製作的元件的類別名稱。 (我們輸入TShowText)
Palette Page:組件將要安裝到delphi的哪個面板上。 (我們選擇Samples，你也可以輸入一個新的名字)
下面的就不用我說了吧。
點擊OK按鈕，delphi自動產生了一個基本的繼承自TComponent的控件了，也可以這樣理解，我們已經開發了一個與TComponent功能一樣強大的控件，不過這不是我們需要的，下面我們繼續。
以下說明一下元件本身私有變數的讀寫方法：
例如我們寫了下面一小段：
private
FText : String;
....
/*私有變數不是允許被外界使用的，那麼要如何才能對這個FText字串變數進行操作呢？ */
我們還要在Published後面加這麼一段：
property Text: String read FText write FText;
這裡的意思就是指，這個Text屬性會出現在delphiSDK的屬性欄中，使用者修改屬性欄中的Text其實都是在修改FText這個字串變數。 read表示使用者讀取Text屬性其實讀取FText，write當然就表示使用者為Text賦值則存在FText字串變數中囉。
如果在這時候保存，並在delphi中安裝.那麼我們這個最基本的組件就製作完了。 (安裝組件方法最後有介紹)
哈哈，是不是很簡單呢？只不過我們的這個元件沒有實現什麼具體用處罷了。
剛才這裡我們介紹了屬性，下面我們繼續增加功能，來介紹方法的使用。
我們在Public後面加如下：
procedure ShowText();
然後按Ctrl + Alt +C,系統自動為你添加了些方法的實作程式碼。
接下來我們在寫：
procedure TShowText.ShowText();
begin
ShowMessage(FText);
end;
看到了，上面的ShowMessage顯示的就是類別私有變數的值，到這裡大家應該明白了，只有在類本事的方法才能存取私有的變數。這裡必須在uses 後面加上Dialogs單元，因為ShowMessage包含在Dialogs單元中,否則通不過。
當然，上面的事件只能在控制項中使用，去不能在屬性框中的事件欄出現，為什麼呢？因為這裡聲名的方法只是Public的，純方法而已，並沒有宣告為事件。
透過上面的學習，大家是不是已經知道控制的屬性和方法是如何寫的和調了的了呢？
不過，一個真正意義上的控制項是離不開事件的，而事件的呼叫必須透過訊息來驅動，這將在我的下一篇文章中介紹。
一個功能強大的控制項的屬性和方法也不是這麼容易的，還需要大家多實踐，多應用。
下面附帶了我寫的一個DBGridToExcel控件，功能是把DBGrid中的資料匯出到Excel。大家可以學習一下，做為參考。為個控制項中包含了使用屬性，方法和我們將在下一篇中講到的「事件」。
附1: 安裝自製控制的方法：
(1).在Component選單中，選擇"Install Component...".
(2).在Unit File name 後面點選「..."，選擇"*.pas"控制項的單元文件，再點選OK。在出現的視窗中點選"install"，即安裝完畢。
新裝的控制即出現在你的面板中。
附2: TDBGridToExcel控制項的全部源碼，把它拷貝到記事本中，存為.pas檔即可。
unit DBGridToExcel;
{************************************************* **********************}
{* *}
{* Export Grid To Word VCL Control for D5 & D6 *}
{* Copyright(C) xiangding 2003.10.1 All rights reserved *}
{* Bug Report: [email protected] *}
{* Author : 小熊*}
{* *}
{************************************************* **********************}
{* *}
{* This is a Simple Version *}
{* *}
{************************************************* **********************}
{* *}
{* Install: *}
{* Please Save as file GridToExcel.pas then open the file *}
{* Click the menu item [Component] --> [Install Component] *}
{* Click [Install] button in the Install Component dialog *}
{* after install ,you can find the control at component *}
{* 頁 [sample] *}
{* *}
{************************************************* **********************}
{* *}
{* 安裝： *}
{* 把附件儲存，然後用Delphi開啟這個GridToExcel.Pas文件， *}
{* 選擇Delphi選單--〉Component-->Install Component， *}
{* 然後選擇Install即可。安裝之後，在控制面板的Samples頁面上面， *}
{* 熟悉之後，你可以試著設定一些複雜的屬性，其他的自己摸索吧， *}
{************************************************* **********************}
interface
uses
Windows, StdCtrls, ComCtrls, Messages, DBGrids, Graphics, ExtCtrls,
Forms, DB, ComObj, Controls, SysUtils, Classes;
ResourceString
SPromptExport = '請等待，正在匯出資料…';
SConnectExcel = '正在啟動Excel，請稍候…';
SConnectExcelError= '連線Excel失敗，可能沒有安裝Excel,無法匯出.';
SCancel = '取消(&C)';
SError = '錯誤';
SConfirm = '真的要終止資料的匯出嗎？ ';
SCaption = '確認';
SGridError = '沒有指定資料集，請指定資料集控制項！ ';
type
TDBGridToExcel = class(TComponent)
private
ProgressForm: TForm;
FShowProgress: Boolean;
ExcelApp : Variant;
FTitle: String;
Quit: Boolean;
FOnProgress: TNotifyEvent;
FGrid: TDBGrid; {The Source Grid}
ProgressBar: TProgressBar;
Prompt: TLabel;
FAutoExit: Boolean;
FAutoSize: Boolean;
FDBGrid: TDBGrid;
procedure SetShowProgress(const Value: Boolean);
procedure CreateProgressForm;
procedure ButtonClick(Sender: TObject);
Function ConnectToExcel: Boolean;
procedure ExportDBGrid;
{ Private declarations }
protected
{ Protected declarations }
public
Constructor Create(AOwner: TComponent); override;
Destructor Destroy(); override;
Procedure ExportToExcel; {Export Grid To Excel}
{ Public declarations }
published
{ Published declarations }
property DBGrid: TDBGrid read FDBGrid write FDBGrid;
property Title: String read FTitle write FTitle;
property ShowProgress: Boolean read FShowProgress write SetShowProgress;
property OnProgress: TNotifyEvent read FOnProgress write FOnProgress;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TDBGridToExcel]);
end;
{ TDBGridToExcel }
procedure TDBGridToExcel.ButtonClick(Sender: TObject);
begin
Quit := MessageBox(ProgressForm.Handle, pchar(SConfirm), pchar(SCaption),
MB_OKCANCEL + MB_ICONINFORMATION) = IDOK;
end;
function TDBGridToExcel.ConnectToExcel: Boolean;
begin
Result := true;
Try
ExcelApp := CreateOleObject('Excel.application');
ExcelApp.Visible := False;
if Title<>'' then ExcelApp.Caption := Title;
ExcelApp.WorkBooks.Add;
except
MessageBox(GetActiveWindow,PChar(SConnectExcelError),PChar(SError),Mb_OK+MB_IconError);
result := false;
end;
end;
constructor TDBGridToExcel.Create(AOwner: TComponent);
begin
inherited;
FShowProgress := True; {Default value was Show the Progress}
FAutoExit := False;
FAutoSize := True;
end;
procedure TDBGridToExcel.CreateProgressForm;
var
Panel : TPanel;
Button : TButton;
begin
if Assigned(ProgressForm) then exit; {Aready Create?}
ProgressForm := TForm.Create(Owner);
With ProgressForm do
begin
Font.Name := '宋體';
Font.Size := 10;
BorderStyle := bsNone;
Width := 280;
Height := 120;
BorderWidth := 1;
Color := clBackground;
Position := poOwnerFormCenter;
end;
Panel := TPanel.Create(ProgressForm);
with Panel do { Create Panel }
begin
Parent := ProgressForm;
Align := alClient;
BevelInner := bvNone;
BevelOuter := bvRaised;
Caption := '';
end;
Prompt := TLabel.Create(Panel);
with Prompt do { Create Label }
begin
Parent := Panel;
Left := 20;
Top := 25;
Caption := SConnectExcel;
end;
ProgressBar := TProgressBar.Create(panel);
with ProgressBar do { Create ProgressBar }
begin
Step := 1;
Parent := Panel;
Smooth := true;
Left := 20;
Top := 50;
Height := 18;
Width := 260;
end;
Button := TButton.Create(Panel);
with Button do { Create Cancel Button }
begin
Parent := Panel;
Left := 115;
頂 := 80;
Caption := SCancel;
OnClick := ButtonClick;
end;
ProgressForm.Show;
ProgressForm.Update;
end;
destructor TDBGridToExcel.Destroy;
begin
inherited;
end;
procedure TDBGridToExcel.ExportDBGrid;
var
Data : TDataSet;
ADBGrid: TDBGrid;
i, j : integer;
CurrentPoint : Pointer;
OldBeforeScroll, OldAfterScroll: TDataSetNotifyEvent;
begin
Screen.Cursor := crHourGlass;
try
try
TForm(Owner).Enabled := False;
ExcelApp.DisplayAlerts := false;
ExcelApp.ScreenUpdating := false;
Quit := false;
if ShowProgress then Prompt.Caption := SPromptExport;
ADBGrid := DBGrid;
Data := ADBGrid.DataSource.DataSet;
with ADBGrid do { Insert Table Header }
for i := 1 to Columns.Count do
if Columns[i - 1].Visible then
ExcelApp.Cells[1,i].Value :=Columns[i - 1].Title.Caption;
CurrentPoint := Data.GetBookmark; {Save Current Position}
OldBeforeScroll := Data.BeforeScroll; { Save Old Before Scroll Event handle }
OldAfterScroll := Data.AfterScroll; { Save Old After Scroll Event Handle }
Data.DisableControls; { Disable Control }
Data.BeforeScroll := nil;
Data.AfterScroll := nil;
if ShowProgress then ProgressBar.Max := Data.RecordCount;
i := 2;
Data.First;
while not Data.Eof do { Process All record }
begin
with ADBGrid do { Process one record }
for j := 1 to Columns.Count do
if Columns[j - 1].Visible then
ExcelApp.Cells[i,j].Value := Columns[j - 1].Field.DisplayText;
Inc(i);
Data.Next;
if Assigned(FOnProgress) then FOnProgress(Self);
if ShowProgress then { Update Progress UI }
begin
ProgressBar.StepIt;
Application.ProcessMessages;
if Quit then exit;
end;
end;
except
MessageBox(GetActiveWindow,PChar(SConnectExcelError),Pchar(SError),MB_OK+MB_ICONERROR);
end;
ExcelApp.Visible := False;
TForm(Owner).Enabled := True;
Screen.Cursor := crDefault;
if ShowProgress then FreeAndNil(ProgressForm); { Free Progress Form }
ExcelApp.DisplayAlerts := True;
ExcelApp.ScreenUpdating := True;
finally
Data.BeforeScroll := OldBeforeScroll; { Restore Old Event Handle }
Data.AfterScroll := OldAfterScroll;
Data.GotoBookmark(CurrentPoint);
Data.FreeBookmark(CurrentPoint);
Data.EnableControls;
Screen.Cursor := crDefault;
end;
end;
procedure TDBGridToExcel.ExportToExcel;
begin
if DBGrid= nil then raise Exception.Create(SGridError); {No DataSource, then Error}
if ShowProgress then CreateProgressForm; {Whether or not Show the ProgressForm}
if not ConnectToExcel then { Exit when error occer }
begin
if ShowProgress then FreeAndNil(ProgressForm); {release form}
exit;
end;
ExportDBGrid; {begin Export Data}
end;
procedure TDBGridToExcel.SetShowProgress(const Value: Boolean);
begin
FShowProgress := Value;
end;
end.