Discussion :

['ti programmeur]

Bonjour,
je travaille actuellement sur un petit programme de jeux d'allumettes incluant une fenêtre "à propos de" qui s'affichera en appuyant sur un bouton. J'avais pensé à quelque chose du genre

Code :

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

1
2
3
4
procedure TForm1.Button2Click(Sender: TObject);
begin
show.Form2;
end;

mais c'était trop beau pour être vrai alors si vous connaissez la bonne formulation...

[christophe D]

Bonjour,
je travail actuellement sur un petit program de jeux d'allumettes incluant une fenetre a
"propos de" qui s'affichera en appuyant sur un bouton j'avais pensé a quelque chose du genre

Code :

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

1
2
3
4
procedure TForm1.Button2Click(Sender: TObject);
begin
show.Form2;
end;

mais c'était trop beau pour être vrai alors si vous connaissez la bonne formulation...

ceci marche !!

Code :

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

1
2
3
4
procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.show;
end;

['ti programmeur]

ah ben j'était pas loin ...

[Clandestino]

Il va falloir tout d'abord ajouter une fiche à ton projet.
Ceci se fait à l'aide du menu fichier >> nouvelle fiche
Puis tu vas enregistrer le nouveau fichier généré (unit2.pas) à l'aide de la commande fichier >> tout enregistrer.

Ceci étant fait, tu vas déclarer la fiche 2 dans dans ton code source principal, en ajoutant unit2 dans les uses ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, Process,
  Buttons, unit2;

Grace à celà, tu peux utiliser la ligne

Code :

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

form2.show;

dans ta procedure liée au click sur le bouton2...

A l'inverse, tu peux avoir besoin de manipuler ta fiche1 depuis ta fiche 2, par exemple si tu decide de cacher ta fiche1 quand tu montre ta fiche2 et inversement...

Dans ce cas il faudra déclarer unit1 dans ta fiche2, mais plus bas, après le mot clef implementation de la manière suivante :

Code :

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

1
2
implementation
uses unit1;

Pour ce qui est de la disparition de l'une et de l'autre tu peux faire :

dans unit1 :

Code :

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

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
   form1.hide;
   form2.show;
end;

dans unit2:

Code :

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

1
2
3
4
5
procedure TForm2.Button1Click(Sender: TObject);
begin
  form2.hide;
  form1.Show;
end;

Tu n'as plus qu'à parfaire le look de ta fiche 2 pour faire une belle fenetre About...

Bon Courage

['ti programmeur]

ça y'est c bon merci encore

[Bernard B]

Tu peux aussi faire du form2.showmodal

Tu travailles dans la deux qui est au dessus de la 1 et tant que tu n'as pas fermé la 2 tu ne peux pas revenir à la 1

@+

[Clandestino]

Tu peux aussi faire du form2.showmodal

Tu travailles dans la deux qui est au dessus de la 1 et tant que tu n'as pas fermé la 2 tu ne peux pas revenir à la 1

@+

Celà fonctionne parfaitement sous windows mais pas sous linux (du moins pas encore...)
On peut parfaitement revenir à la première fenetre sous linux. La fermeture de la fenetre créée ainsi (toujours sous Linux)ne rend pas le focus à la fenetre parente lors de sa fermeture,si bien que le showmodal ne fait rien de plus qu'un simple show...

Il y a souvent des différences de comportement avec lazarus entre windows et linux avec le meme code, il convient de toujours tester la version compilée sous les deux OS...