exitf.pas

来自「网络教室delphi源码」· PAS 代码 · 共 45 行

unit exitf;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, TFlatSpeedButtonUnit, ExtCtrls, TFlatButtonUnit, TFlatPanelUnit,
  XPMenu, XP_Button;

type
  Texit1 = class(TForm)
    FlatPanel1: TFlatPanel;
    FlatPanel2: TFlatPanel;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    Image1: TImage;
    FlatSpeedButton1: TFlatSpeedButton;
    Label1: TLabel;
    XPMenu1: TXPMenu;
    XP_Button1: TXP_Button;
    XP_Button2: TXP_Button;
    procedure FlatButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  exit1: Texit1;

implementation

uses MAIN;

{$R *.DFM}

procedure Texit1.FlatButton1Click(Sender: TObject);
begin
close;
form1.close;
end;

end.