?? generalpage.pas
字號:
unit GeneralPage;
interface
uses SysUtils, Windows, Messages, Classes, Graphics, Controls, StdCtrls,
ExtCtrls, Forms, ComServ, ComObj, StdVcl, AxCtrls;
type
TppgGeneral = class(TPropertyPage)
Label1: TLabel;
ecColumns: TEdit;
cbSorted: TCheckBox;
Label2: TLabel;
ecTabWidth: TEdit;
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
procedure UpdatePropertyPage; override;
procedure UpdateObject; override;
end;
const
Class_ppgGeneral: TGUID = '{3774F17A-5D73-11D3-B872-0040F67455FE}';
implementation
{$R *.DFM}
procedure TppgGeneral.UpdatePropertyPage;
begin
{ Update your controls from OleObject }
ecColumns.Text := IntToStr(OleObject.Columns);
ecTabWidth.Text := IntToStr(OleObject.TabWidth);
cbSorted.Checked := OleObject.Sorted;
end;
procedure TppgGeneral.UpdateObject;
begin
{ Update OleObject from your controls }
OleObject.Columns := StrToInt(ecColumns.Text);
OleObject.TabWidth := StrToInt(ecTabWidth.Text);
OleObject.Sorted := cbSorted.Checked;
end;
initialization
TActiveXPropertyPageFactory.Create(
ComServer,
TppgGeneral,
Class_ppgGeneral);
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -