?
三、開關控件TlincoSwitch
用過Delphi1（好古老的東東呀?。┑娜讼嘈哦加浀眠@個開關控件 
，不知道當初Borland為什么把這么一個在開發普通應用程序中應用不到的工控控件放到Delphi中，而且在Delphi2及其以后的版本中再也沒有見過它的身影。讓我們懷著懷舊的心情把這位“開國元老”請出來吧！
1、建立位圖資源文件：
用Image Editor建立一個Res文件，并在文件中分別建立下面兩個位圖
，并分別命名為SWITCHON、SWITCHOFF。保存此Res到控件單元所在目錄下。
2、寫控件代碼。
unit LincoSwitch;
interface
uses
? SysUtils, Classes, Controls, Graphics, Windows;
?
type
? TLincoSwitch = class(TCustomControl)
? private
??? FIsOn: Boolean;
??? FPicOn: Graphics.TBitmap;
??? FPicOff: Graphics.TBitmap;
??? procedure FSetIsOn(AValue: Boolean);
? protected
??? procedure Click;override;
??? procedure Paint;override;
? public
??? constructor Create(AOwner: TComponent);override;
??? destructor Destroy;override;
? published
??? property IsOn: Boolean read FIsOn write FSetIsOn;
??? property OnClick;
??? property OnKeyDown;
??? property OnKeyPress;
??? property OnKeyUp;
??? property OnCanResize;
??? property OnDblClick;
??? property OnMouseDown;
??? property OnMouseMove;
??? property OnMouseUp;
??? property OnMouseWheel;
??? property OnResize;
? end;
?
procedure Register;
implementation
{$R *.res}
procedure LoadBitmapFromRes(ABitmapId: string; ABitmap: Graphics.TBitmap);
begin
? ABitmap.LoadFromResourceName(hInstance, ABitmapId);//從資源文件中讀取位圖
end;
?
constructor TLincoSwitch.Create(AOwner: TComponent);
begin
? inherited Create(AOwner);
? FPicOn := Graphics.TBitmap.Create;
? FPicOff := Graphics.TBitmap.Create;
? LoadBitmapFromRes('SWITCHON', FPicOn);
? LoadBitmapFromRes('SWITCHOFF', FPicOff);
? Invalidate;
end;
?
destructor TLincoSwitch.Destroy;
begin
? FPicOn.Free;
? FPicOff.Free;
? inherited;
end;
?
procedure TLincoSwitch.Click;
begin
? IsOn := not IsOn;//改變按鈕的狀態
? Invalidate;
? inherited;
end;
?
procedure TLincoSwitch.Paint;
begin
//畫開關圖案?
if IsOn then
???
????? StretchBlt(Canvas.Handle, 0, 0, self.Width, self.Height, FPicOn.Canvas.Handle,
???????????? 0, 0, FPicOn.Width, FPicOn.Height,SRCCOPY)
? else
????? StretchBlt(Canvas.Handle, 0, 0, self.Width, self.Height, FPicOff.Canvas.Handle,
???????????? 0, 0, FPicOff.Width, FPicOff.Height,SRCCOPY);
end;
?
?
procedure TLincoSwitch.FSetIsOn(AValue: Boolean);
begin
? FIson := AValue;
? Invalidate;
end;
?
procedure Register;
begin
? RegisterComponents('Linco', [TLincoSwitch]);
end;
end.
3、代碼分析
? （1）、因為我們要在控件表面上將按鈕的圖案畫出來，所以我們選擇TcustomControl做為父類控件，因為它有個Canvas屬性，我們可以利用Canvas在控件表面作圖。不選用Tcontrol的原因是因為它有很多我們不需要的屬性。
（2）、ABitmap.LoadFromResourceName(hInstance, ABitmapId);是從資源文件中讀取Id為AbitmapId的位圖，關于資源文件的使用請參考其他相關資料。注意代碼中的“{$R *.res}”，它的作用是將資源文件編譯到程序文件中，如果沒有這個預編譯條件，程序將會出現錯誤。
（3）、StretchBlt是將位圖畫到畫板上，使用方法請參考MSDN。
（4）、我們為控件增加了IsOn屬性。這個布爾屬性用來表示開關的狀態（開/關）。
從property IsOn: Boolean read FIsOn write FSetIsOn;我們可以看出這個屬性是個可讀可寫的屬性。當讀這個屬性時會將FisOn的值返回給調用者，而寫屬性時則會調用FsetIsOn方法，并將賦給屬性的值做為參數傳遞給FsetIsOn。在FsetIsOn方法中，有如下實現代碼：
? FIson := AValue;
? Invalidate;
首先將Fison設置為參數傳遞來的值，然后調用? Invalidate;要求重畫控件，以告訴用戶控件的狀態已經改變，這一點是使用寫字段無法做到的。
（5）???
??? FPicOn: Graphics.TBitmap;
FPicOff: Graphics.TBitmap;
是聲明兩個.Tbitmap類型變量以保存控件的開關兩種狀態的圖案。
（6）
??? procedure Click;override;
procedure Paint;override;
分別是覆蓋父類中相應的調度方法。當控件被鼠標單擊時，Click方法會被調用，我們將在Click中改變控件的開關狀態；Paint方法則在用戶調用? Invalidate方法或控件發生重畫時調用，我們一般在這個方法繪制控件的圖案。
（7）、TcustomControl中又很多事件處理句柄。比如OnClick、OnKeyDown等，但是它把他們聲明成了Protected保護級別，所以我們在Object Inspector中看不到他們，如果我們要他們可以在Object Inspector中被用戶編輯的話，只要在Published中重新聲明他們即可，不用寫他們的讀寫方法，只要使用：Property? 屬性名；
這樣的方法就可以。比如這個例子中的：Property Onclick;
思考題：
1、??????? 做一個有特效的按鈕控件，當鼠標按下時按鈕是一個紅色邊框的空心圓，當鼠標松開時按鈕是一個淡綠色邊框的空心圓。
2、??????? 對于父類控件中為protected的屬性，如果想將它在子類控件中公布，應該怎么做？請思考Delphi為什么要將一些屬性設為protected級別？