【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-Dev_set.pas,希望本篇文章对您学习有所帮助。
unit Dev_set;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, ValEdit, ComCtrls, ExtCtrls,GeneralBufferUnit,DTE3216Unit;
type
TfrmDev = class(TForm)
Label1: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Label3: TLabel;
Edit1: TEdit;
Label4: TLabel;
Label5: TLabel;
ComboBox2: TComboBox;
Label6: TLabel;
Edit2: TEdit;
Label7: TLabel;
ComboBox3: TComboBox;
Label8: TLabel;
PageControl2: TPageControl;
TabSheet4: TTabSheet;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
Bevel1: TBevel;
TabSheet3: TTabSheet;
CheckBox9: TCheckBox;
CheckBox10: TCheckBox;
CheckBox11: TCheckBox;
CheckBox12: TCheckBox;
CheckBox13: TCheckBox;
CheckBox14: TCheckBox;
CheckBox15: TCheckBox;
CheckBox16: TCheckBox;
Label2: TLabel;
ComboBox1: TComboBox;
Label9: TLabel;
ComboBox4: TComboBox;
Label10: TLabel;
ComboBox5: TComboBox;
Label11: TLabel;
ComboBox6: TComboBox;
Label12: TLabel;
ComboBox7: TComboBox;
Label13: TLabel;
ComboBox8: TComboBox;
Label14: TLabel;
ComboBox9: TComboBox;
Label15: TLabel;
ComboBox10: TComboBox;
Label16: TLabel;
ComboBox11: TComboBox;
Label17: TLabel;
ComboBox12: TComboBox;
Label18: TLabel;
ComboBox13: TComboBox;
Label19: TLabel;
ComboBox14: TComboBox;
Label20: TLabel;
ComboBox15: TComboBox;
Label21: TLabel;
ComboBox16: TComboBox;
Label22: TLabel;
ComboBox17: TComboBox;
Label23: TLabel;
ComboBox18: TComboBox;
CheckBox17: TCheckBox;
CheckBox18: TCheckBox;
CheckBox19: TCheckBox;
CheckBox20: TCheckBox;
CheckBox21: TCheckBox;
CheckBox22: TCheckBox;
CheckBox23: TCheckBox;
CheckBox24: TCheckBox;
ComboBox19: TComboBox;
ComboBox20: TComboBox;
ComboBox21: TComboBox;
ComboBox22: TComboBox;
ComboBox23: TComboBox;
ComboBox24: TComboBox;
ComboBox25: TComboBox;
ComboBox26: TComboBox;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
CheckBox25: TCheckBox;
CheckBox26: TCheckBox;
CheckBox27: TCheckBox;
CheckBox28: TCheckBox;
CheckBox29: TCheckBox;
CheckBox30: TCheckBox;
CheckBox31: TCheckBox;
CheckBox32: TCheckBox;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
ComboBox27: TComboBox;
ComboBox28: TComboBox;
ComboBox29: TComboBox;
ComboBox30: TComboBox;
ComboBox31: TComboBox;
ComboBox32: TComboBox;
ComboBox33: TComboBox;
ComboBox34: TComboBox;
Bevel2: TBevel;
FixChnNumCBox: TCheckBox;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure CheckBox4Click(Sender: TObject);
procedure CheckBox5Click(Sender: TObject);
procedure CheckBox6Click(Sender: TObject);
procedure CheckBox7Click(Sender: TObject);
procedure CheckBox8Click(Sender: TObject);
procedure CheckBox9Click(Sender: TObject);
procedure CheckBox10Click(Sender: TObject);
procedure CheckBox11Click(Sender: TObject);
procedure CheckBox12Click(Sender: TObject);
procedure CheckBox13Click(Sender: TObject);
procedure CheckBox14Click(Sender: TObject);
procedure CheckBox15Click(Sender: TObject);
procedure CheckBox16Click(Sen