Discussion :

[dibak]

Bonjour chers tous,
Je suis dans delphi/ rad studio. Je suis dans une fiche form1 et je cree et j'appelle une autre fiche form2. Étant dans la form2, je ne voudrais plus voir en bas la form1,
Comment rendre la form1 non visible étant dans la form2.
Merci de vos réponses.
Cordialement,
Dibak.

[popo]

Méthode Hide sur Form1 pour simplement la masquer.
Méthode Close sur Form1 pour la fermer complètement.

[SergioMaster]

Bonjour,

Je ne suis pas un fan de ce genre de truc. La piste, la propriété visible de la forme (Hide ne faisant que mettre visible:=false)

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
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
with TForm2.Create(Self) do
 begin
  Forme1:=Self;
  Show;
 end;
visible:=false; // ou Hide
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
type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    Forme1 : TForm;
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
begin
Close;
end;
 
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
Forme1.Visible:=true;
end;

[dibak]

Merci pour vos réponses,
je m'excuse d'avoir mal posé le problème.
En fait je suis dans un environnement asynchone,
l'xecution du programme n'est pas rigoureusement séquentielle.
je suis dans Delphi/TMS WEB core.

Toutes mes excuses. mais la question demeure valable.

Cordialement,
Dibak

[popo]

La propriété Visible existe en TMS WEB Core, tout comme la méthode Close.

Sur le forum de TMS quelqu'un a posé une question similaire à la tienne.
Regardes, ça pourrait t'inspirer.
https://support.tmssoftware.com/t/ho...rm-again/13436