frmabout.pas

一个简单的同学录软件

unit FrmAbout;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  XP_Balloon, XP_Matrix, StdCtrls, TFlatMemoUnit, TFlatSpeedButtonUnit,
  jpeg, ExtCtrls, XP_Form, TFlatPanelUnit, XP_TransDesktop;

type
  TFmAbout = class(TForm)
    XP_Form1: TXP_Form;
    Image1: TImage;
    FlatSpeedButton1: TFlatSpeedButton;
    FlatPanel1: TFlatPanel;
    FlatMemo1: TFlatMemo;
    procedure FlatSpeedButton1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormHide(Sender: TObject);
//    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmAbout: TFmAbout;

implementation

uses frmMain;

{$R *.DFM}
var
  fx: boolean;

procedure TFmAbout.FlatSpeedButton1Click(Sender: TObject);
begin
  fmabout.Visible := false;
  fmmain.enabled := true;
  fmmain.visible := true;
end;


procedure TFmAbout.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
fmmain.Enabled :=true;

end;

procedure TFmAbout.FormHide(Sender: TObject);
begin
fmmain.enabled:=true;
end;

end.