Discussion :

[seifrf]

Bonjour,

J'ai deux fiches. La première fiche est une forme d’accueil et la deuxième fiche contient un progress bar. Je veux que, quand j'ouvre mon projet et que je l’exécute, la deuxième fiche du progress bar s'affiche et que le progress bar fait un signe de chargement du contenu.

Merci d'avance !

[Roland Chastain]

Bonjour !

Voici un exemple trouvé dans les sources Delphi :

http://nono40.developpez.com/sources/source0030/

[seifrf]

merci je vais essayer

[cantador]

Bonjour seifrf ,

Tu peux créer un SplashScreen (avec un logo ou une image) sur une ouverture d'un DataModule (contenant l'ensemble de tes tables, si tu en as bien sûr..)
Ainsi, ta barre de progression avancera au fur et à mesure de l'ouverture de tes tables ou Query
et une fois l'opération terminée, ta forme s'ouvrira.

@+

[seifrf]

bonjour, désole pour le retard tu peut me donner un exemple comment faire cela ?

[gbegreg]

Bonsoir,

Une petite recherche dans la FAQ Delphi https://delphi.developpez.com/faq/?p...-splash-screen

[cantador]

Bonsoir,
un premier exemple simple utilisant l'alphablending de la forme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Splash;
 
{$R *.dfm}
 
 
procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  Sleep(1000);
  for i := 255 downto 1 do
  begin
    FSplashScreen.AlphaBlendValue := i;
    Sleep(4);
  end;
  FSplashScreen.Free;
end;
 
end.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
unit Splash;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ComCtrls, jpeg, JvExControls, JvComponent,
  JvSpecialProgress;
 
type
  TFSplashScreen = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Panel2: TPanel;
    ProgressBar1: TJvSpecialProgress;
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  FSplashScreen: TFSplashScreen;
 
implementation
 
{$R *.DFM}
 
end.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Splash in 'Splash.pas' {FSplashScreen};
 
{$R *.res}
 
begin
  Application.Initialize;
  FSplashScreen := TFSplashScreen.Create(Application);
  FSplashScreen.Show;
  FSplashScreen.Refresh;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
 
end.

il faut mettre la propriété alphablend à true dans FSplashScreen
@+