main.pas

delphi编程控件

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, aurllabl, ExtCtrls, ARichEd;

type
  TFMainForm = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    GroupBox2: TGroupBox;
    Label14: TLabel;
    Label15: TLabel;
    Image1: TImage;
    Label16: TLabel;
    Label17: TLabel;
    AutoURLLabel1: TAutoURLLabel;
    AutoURLLabel2: TAutoURLLabel;
    AutoURLLabel3: TAutoURLLabel;
    AutoURLLabel4: TAutoURLLabel;
    BitBtn1: TBitBtn;
    AutoRichEdit1: TAutoRichEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public

  end;

var
  FMainForm: TFMainForm;

implementation

uses uadbtime, uadbdate, uadbdat2, uadbcomb, udbspini, uadbimct;

{$R *.DFM}

procedure TFMainForm.Button1Click(Sender: TObject);
begin
  if(FADBDateControls = Nil) then
    FADBDateControls := TFADBDateControls.Create(Application);
  FADBDateControls.Show;
end;

procedure TFMainForm.Button2Click(Sender: TObject);
begin
  if(FADBTimeEdits = Nil) then
    FADBTimeEdits := TFADBTimeEdits.Create(Application);
  FADBTimeEdits.Show;  
end;

procedure TFMainForm.Button3Click(Sender: TObject);
begin
  if(FADateControls2 = Nil) then
    FADateControls2 := TFADateControls2.Create(Application);
  FADateControls2.Show;  
end;

procedure TFMainForm.Button4Click(Sender: TObject);
begin
  if(FAutoDBCombo = Nil) then
    FAutoDBCombo := TFAutoDBCombo.Create(Application);
  FAutoDBCombo.Show;  
end;

procedure TFMainForm.Button5Click(Sender: TObject);
begin
  if(FADBSpinImage = Nil) then
    FADBSpinImage := TFADBSpinImage.Create(Application);
  FADBSpinImage.Show;  
end;

procedure TFMainForm.Button6Click(Sender: TObject);
begin
  if(FADBImageControls = Nil) then
    FADBImageControls := TFADBImageControls.Create(Application);
  FADBImageControls.Show;  
end;

end.