upform.pas

delphi编程控件

unit upform;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  adbpanel, StdCtrls, Buttons;

type
  TFAPanelForm = class(TForm)
    AutoDBForm1: TAutoDBForm;
    Button1: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    CheckBox3: TCheckBox;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure AutoDBForm1ActiveChanged(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FAPanelForm: TFAPanelForm;

implementation

{$R *.DFM}

procedure TFAPanelForm.Button1Click(Sender: TObject);
begin
  AutoDBForm1.Active := Not AutoDBForm1.Active;
  AutoDBForm1ActiveChanged(Sender);
end;

procedure TFAPanelForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
  FAPanelForm := Nil;
end;

procedure TFAPanelForm.AutoDBForm1ActiveChanged(Sender: TObject);
begin
  if(AutoDBForm1.Active) then
    Button1.Caption := 'Hide'
  else Button1.Caption := 'Show';
end;

procedure TFAPanelForm.CheckBox1Click(Sender: TObject);
begin
  if(CheckBox1.Checked) then
    AutoDBForm1.BorderStyle := bsDialog
  else AutoDBForm1.BorderStyle := bsSizeable;
end;

procedure TFAPanelForm.CheckBox2Click(Sender: TObject);
begin
  if(CheckBox2.Checked) then
    AutoDBForm1.PanelLayout.ControlLayout := pclHorz
  else AutoDBForm1.PanelLayout.ControlLayout := pclVert;
end;

procedure TFAPanelForm.CheckBox3Click(Sender: TObject);
begin
  if(CheckBox3.Checked) then
    AutoDBForm1.PanelLayout.LabelLayout := pllUp
  else AutoDBForm1.PanelLayout.LabelLayout := pllLeft;
end;

end.