?? unit2.pas
字號:
//-------------------------------------
// Factory Method模式下的動態控件創建
// 邏輯單元(TControlFactory)
// 劉藝 2003/02/26
//--------------------------------------
unit Unit2;
interface
uses
Windows, SysUtils, Classes,Controls, Forms;
Type
TControlClass =class of TControl;
TControlFactory=class
public
class function createControlObj(AOwner:TWinControl ;ControlClass:TControlClass):TControl;
end;
implementation
class function TControlFactory.createControlObj(AOwner:TWinControl ;ControlClass:TControlClass):TControl;
var
FControlObj:TControl;
begin
FControlObj:=ControlClass.Create(AOwner);
FControlObj.Parent:=AOwner;
FControlObj.Name:=FControlObj.ClassName;
FControlObj.SetBounds(10,10,250,150);
result:=FControlObj;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -