Discussion :

[AmisNoob]

Salut tous!
Alors j'ai deux fiches (form1 et 2) et trois unités (unit1, 2 et 3).
L'unit 1 contient le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
if not(logged) then
begin
 form1.show;
 form2.hide;
end
else
begin
 form2.show;
 form1.hide;
end;

J'aimerais que si un utilisateur ne s'est pas connecter alors la form1 s'affiche sinon form2 se lance.
Voila, merci d'avance

[ShaiLeTroll]

Le mieux serait de ne pas créer les fenêtres (voir les options de projet pour retirer les fenêtres au démarrage ou suffit de les supprimer du DPR) et ensuite de les créer au moment opportun ...

Code :

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

1
2
3
4
5
6
7
8
9
10
if logged then
begin
 form2 := Tform2.Create(Self);
 form2.show;
end
else
begin
 form1 := Tform1.Create(Self);
 form1.show;
end;

cela peut se faire aussi dans le DPR

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
program Project1;
 
uses
  Forms,
  unit1 in 'unit1.pas' {Form1},
  unit2 in 'unit2.pas' {Form2};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.Title := 'Project1';
  // Machin Truc qui renseigne logged, ne pas créer avec CreateForm mais via le constructeur Create ...
  if logged then
    Application.CreateForm(TForm2, form2)
  else
    Application.CreateForm(TForm1, form1);
 
  Application.Run;
end.

[AmisNoob]

Merci pour le bout de code je test et je clos si c'est bon merci encore++