unit1.pas

来自「Floating Window.It is descendant of TCus」· PAS 代码 · 共 101 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, FloatingWindow;

type
  TForm1 = class(TForm)
    FloatingWindow1: TFloatingWindow;
    Edit1: TEdit;
    Button1: TButton;
    FloatingWindow2: TFloatingWindow;
    Button2: TButton;
    chkExpanded: TCheckBox;
    chkShowButtons: TCheckBox;
    chkSizeable: TCheckBox;
    cboTitleBar: TComboBox;
    Memo1: TMemo;
    chkCtl3D: TCheckBox;
    btnShow: TButton;
    procedure chkExpandedClick(Sender: TObject);
    procedure chkShowButtonsClick(Sender: TObject);
    procedure chkSizeableClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cboTitleBarClick(Sender: TObject);
    procedure chkCtl3DClick(Sender: TObject);
    procedure btnShowClick(Sender: TObject);
    procedure FloatingWindow1Expand(Sender: TObject);
    procedure FloatingWindow1Hide(Sender: TObject);
    procedure FloatingWindow1Show(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  cboTitleBar.ItemIndex := 0
end;

procedure TForm1.chkExpandedClick(Sender: TObject);
begin
  FloatingWindow1.Expanded := chkExpanded.Checked
end;

procedure TForm1.chkShowButtonsClick(Sender: TObject);
begin
  FloatingWindow1.ShowButtons := chkShowButtons.Checked
end;

procedure TForm1.chkSizeableClick(Sender: TObject);
begin
  FloatingWindow1.Sizeable := chkSizeable.Checked
end;

procedure TForm1.cboTitleBarClick(Sender: TObject);
begin
  FloatingWindow1.TitleBarPosition := TTitleBarPosition(cboTitleBar.ItemIndex)
end;

procedure TForm1.chkCtl3DClick(Sender: TObject);
begin
  FloatingWindow1.Ctl3D := chkCtl3D.Checked
end;

procedure TForm1.btnShowClick(Sender: TObject);
begin
  FloatingWindow1.Show;
end;

procedure TForm1.FloatingWindow1Expand(Sender: TObject);
begin
  if FloatingWindow1.Expanded then
    Caption := 'Expanded = true'
  else
    Caption := 'Expanded = false'
end;

procedure TForm1.FloatingWindow1Hide(Sender: TObject);
begin
  Caption := 'Hide'
end;

procedure TForm1.FloatingWindow1Show(Sender: TObject);
begin
  Caption := 'Show'
end;

end.