📄 gld610_01.pas.svn-base
字号:
unit Gld610_01;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
BAS100_01, ComCtrls, StdCtrls, Buttons;
type
TGld610_01Form = class(TBas100_01Form)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Label1: TLabel;
Label2: TLabel;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
RadioButton2: TRadioButton;
RadioButton1: TRadioButton;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
UpDown2: TUpDown;
UpDown3: TUpDown;
ComboBox1: TComboBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
Label4: TLabel;
GroupBox3: TGroupBox;
CheckBox4: TCheckBox;
SpeedButton1: TSpeedButton;
Edit4: TEdit;
Edit3: TEdit;
SpeedButton2: TSpeedButton;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Edit5: TEdit;
SpeedButton3: TSpeedButton;
ComboBox2: TComboBox;
Edit6: TEdit;
SpeedButton4: TSpeedButton;
Label9: TLabel;
Edit7: TEdit;
SpeedButton5: TSpeedButton;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
Edit8: TEdit;
ComboBox5: TComboBox;
ComboBox6: TComboBox;
ComboBox7: TComboBox;
Edit9: TEdit;
ComboBox8: TComboBox;
ComboBox9: TComboBox;
ComboBox10: TComboBox;
Edit10: TEdit;
ComboBox11: TComboBox;
ComboBox12: TComboBox;
ComboBox13: TComboBox;
Edit11: TEdit;
ComboBox14: TComboBox;
ComboBox15: TComboBox;
ComboBox16: TComboBox;
Edit12: TEdit;
ComboBox17: TComboBox;
ComboBox18: TComboBox;
ComboBox19: TComboBox;
Edit13: TEdit;
ComboBox20: TComboBox;
ComboBox21: TComboBox;
ComboBox22: TComboBox;
Edit14: TEdit;
ComboBox23: TComboBox;
ComboBox24: TComboBox;
ComboBox25: TComboBox;
Edit15: TEdit;
ComboBox26: TComboBox;
ComboBox27: TComboBox;
ComboBox28: TComboBox;
Edit16: TEdit;
BitBtn3: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Gld610_01Form: TGld610_01Form;
implementation
{$R *.DFM}
procedure TGld610_01Form.FormCreate(Sender: TObject);
begin
inherited;
//
end;
procedure TGld610_01Form.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
//
end;
initialization
RegisterClass(TGld610_01Form);
finalization
UnRegisterClass(TGld610_01Form);
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -