dfwbuttonsu.pas

dfw控件组V0.62

unit DFWButtonsU;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    DFWEncartaButton1: TDFWEncartaButton;
    DFWEncartaButton2: TDFWEncartaButton;
    DFWAOLButton1: TDFWAOLButton;
    DFWSelButton1: TDFWSelButton;
    DFWSquareButton1: TDFWSquareButton;
    DFWAOLButton2: TDFWAOLButton;
    DFWEncartaButton3: TDFWEncartaButton;
    DFWImageButton1: TDFWImageButton;
    DFWButton1: TDFWButton;
    procedure EncartaButton3Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.EncartaButton3Click(Sender: TObject);
begin
  close;
end;

end.