border.pas

delphi编程控件

unit Border;

interface

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

type
  TBorderForm = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    BottomLine: TCheckBox;
    RightLine: TCheckBox;
    TopLine: TCheckBox;
    LeftLine: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BorderForm: TBorderForm;

implementation

{$R *.DFM}

procedure TBorderForm.FormActivate(Sender: TObject);
begin
  LeftLine.Checked := True;
  TopLine.Checked := True;
  RightLine.Checked := True;
  BottomLine.Checked := True;
end;

procedure TBorderForm.SpeedButton1Click(Sender: TObject);
begin
   LeftLine.Checked:=True;
   TopLine.Checked:=True;
   RightLine.Checked:=True;
   BottomLine.Checked:=True;
end;

procedure TBorderForm.SpeedButton2Click(Sender: TObject);
begin
   LeftLine.Checked:=False;
   TopLine.Checked:=False;
   RightLine.Checked:=False;
   BottomLine.Checked:=False;
end;

end.