淺談控件(組件)制作方法一（附帶一delphi導出數據到Excel的組件實例）（原創）

2019-11-18 18:29:47

字體：大中小

來源：轉載

供稿：網友

從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: boyxd@163.net                                *}
{*            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             *}
{*    page [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;
    Top := 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.

上一篇：DELPHI的異常及事務保護的常見問題淺析

下一篇：Delphi＋Word解決方案參考