دخول

merouane · 04-06-2008, 11:14 AM

السلام عليكم و رحمة الله تعالى وبركاته

تطبيق سهل مع الشرح لكيفية إنشاء شاشة ترحيـبية من عمل Frank de Hell

أعجبني فأحببت إرفاقه لأنه كما نقول " سهل ممتنع "

الكود للإفادة

كود :
Project1.dpr 

================================================================
program Project1;

uses
  Forms,
  unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

================================================================

Unit1.pas

================================================================

unit Unit1;

interface
 
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, IniFiles;
 
type

  TForm1 = class(TForm)

    Checkbox1: TCheckBox;

    Label1: TLabel;

    procedure FormCreate(Sender: TObject);

     procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    IniFile: TIniFile;

  public

    { Public declarations }

  end;
 
var

  Form1: TForm1; 

implementation

uses

  Unit2;
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);

var

   Splash: Boolean;

begin

 Inifile := TIniFile.Create(Changefileext(application.exename, '.ini'));

 with Inifile do

  try

    Splash:= ReadBool('ShowSplash','LastChoice', True );

    Checkbox1.Checked := Splash;

   if Splash then

   begin

     Sleep(1000);

     Form2.Close;

     Form2.Release;

   end;

  finally

    Free;

 end;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var

   Splash: Boolean;

 begin

  Inifile := TIniFile.Create(Changefileext(application.exename, '.ini'));

  Splash := Checkbox1.Checked;

  with Inifile do

     try

       WriteBool('ShowSplash','LastChoice', Splash);

     finally

   Free;

  end;

 end; 

end.

================================================================

 Unit2.pas [Your splashscreen]

================================================================

unit Unit2;

interface
 
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, IniFiles;

type

  TForm2 = class(TForm)

  private

  public

  end;

var

  Form2: TForm2;

  Splash: Boolean;

  Inifile: TIniFile;

implementation 

{$R *.dfm}

initialization 

 Inifile := TIniFile.Create(Changefileext(application.exename, '.ini'));

  with Inifile do

    try

      Splash:= ReadBool('ShowSplash','LastChoice', True);

     finally

      Free;

    end;

    if Splash then

      begin

        Form2 := TForm2.Create(nil);

        Form2.Show;

        Form2.Update;

      end;

end.

آمل أنه مفيد

تحياتي Smile

pioneerto · 04-09-2009, 10:08 AM

شكرا لك و جزاك الله خيراً

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة