Fermer une form depuis une autre form

Bonjour, je sais que ce sujet existe déjà mais ça n’empêche que je n'y arrive pas. Je découvre Delphi mais je n'ai pas le choix je dois l'utiliser pour un projet :(

J'ouvre une fenêtre lorsque une case est coché et je voudrait quelle se ferme quand je décoche. Voila mon code actuel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.checkClavierClick(Sender: TObject); begin   keyWindow := TkeyWindow.Create(Self);   if(checkClavier.Checked) then begin keyWindow.Show; end else begin keyWindow.Hide; end;   end;

---

J'ai essayé avec Close et onClose mais ça ne fonctionne pas. Je m'y prend surement mal donc avez vous une solution ?

J'ai créé une variable "keyWindow: TkeyWindow;" et j'ai mis "Unit2" dans les "uses".

Merci pour votre aide.

Tu mets ce code dans l'événement OnChange de la checkbox?

Non. Ce code est exécuter quand je clique sur la checkbox. J'arrive a afficher ma fenêtre mais pas a la fermer.

C'est tout à fait logique !

Relis bien ton code et réfléchis bien a la logique d'exécution et tu verras ton erreur.

Tu devrais suivre le conseil et utiliser plutôt le OnChange...

Je veux bien la solution der§en, il y a peut etre une logique que je n'ai pas sur delphi et son langage...

J'ai déja essayé OnChange mais apparemment je ne sais pas COMMENT l'utiliser.

La procédure va s'exécuter à chaque clique sur la checkbox, que se soit pour la cocher ou la décocher.
La première ligne de code de ta procédure crée une instance de ta fenêtre TKeyWindow et place son pointeur dans la variable keyWindow.
Si tu viens de cocher la checkbox ( checkClavier.Checked = True ) tu fais bien un Show sur ton instance crée.

Quand tu cliques à nouveau sur la checkbox et que tu passes de nouveau dans la procédure ( checkClavier.Checked = False ), tu crées une autre instance de ta keyWindow, autrement dit une autre fenêtre, et tu écrases le pointeur de l'ancienne instance par la nouvelle.
Lors de ton Hide, tu caches en réalité la deuxième instance au lieu de la première.

Essaie plutôt ceci:

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.checkClavierClick(Sender: TObject); begin if not Assigned(KeyWindow) then KeyWindow := TKeyWindow.Create(self);   KeyWindow.Visible := checkClavier.Checked; end;

---

En supposant que ta variable keyWindow soit déclarée dans la section private de ta fenêtre principale, elle est initialisée à nil.
Au premier passage, étant donné que l'instance n'est pas crée, on l'a crée et on l'affiche.
Au deuxième passage, étant déjà créée, on passe à la suite ( on n'écrase pas l'instance ) et on agit bien sur la fenêtre crée au premier passage.

Tu peux garder ta structure if..then..else à la place de ma dernière ligne si tu veux, ça marche aussi. Je trouve juste que c'est plus court.

Merci Rashal !

En effet cette ligne me gênait mais je ne m'en suis pas plus inquiété que ça...

C'était tout bête. Merci encore ! ;)