Discussion :

[LaQude]

Bonjour, je cherche à grisée des checkbox des l'ouverture d'une fenêtre. Pour le moment elles se grises dès qu'une autre checkbox est sélectionnée. (voir code ci-dessous)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.CbDownloadClick(Sender: TObject);
begin
 
    CbStopScript.Enabled := CbDownload.Checked;
    CbUseProxy.Enabled := CbDownload.Checked;
 
 if not CbDownload.Checked then begin
     CbStopScript.Checked := False;
     CbUseProxy.Checked := False;
     GbProxy.Enabled :=False;
 
 end;
end;

Je ne vois pas trop comment faire malgré quelques recherches.

Merci d'avance et bonne journée

[exoseven]

regarde du coté de Screen.OnActiveFormChange

[LaQude]

Je viens de tombé sur un sujet qui traite de la même chose mais pas dans le même cadre. Du coup j'ai une seule et unique question : Où activer l'instruction screen?

[cantador]

Bonjour,

Si ta forme est créée automatiquement, il faut placer ce code sur
le OnCreate de la forme :

Code :

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

1
2
3
4
5
6
 
procedure TForm1.FormCreate(Sender: TObject);
begin
CbStopScript.Checked := true;
CbUseProxy.Checked := true;
end;

Si ta forme est créée lors de son activation alors, tu peux placer le même code
sur l'évènement OnShow par exemple.

[LaQude]

Comme sur l'exemple que exoseven à donner sur un autre sujet?
Voici l'exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
   procedure TForm1.FormCreate(Sender: TObject);
begin
........
Screen.OnActiveFormChange := OnChangeForm;
 
end;
 
procedure TForm1.OnChangeForm(Sender: TObject);
begin
 // Screen.ActiveForm = Forme Active
end;

(Tform1 correspond à ma fenêtre Form1)
Par contre je n'ai pas le OnChangeForm dans mon ObjectInspector. Dois-je le remplacé par OnActivate?


EDIT: Autant pour moi j'ai mal lus. Donc si je comprend bien je fait juste une affectation de mes checkbox lors de la création de ma fenêtre. Par contre cela n'affecteras pas des procédures visant à rendre, elles aussi, grise d'autre checkbox? (Comme l'exemple mis en haut?)

[ShaiLeTroll]

Oubli OnActiveFormChange, utilise uniquement FormCreate !
Ce dernier est suffisant et évitera des effets de bord !

Utilise à la proposition de cantador !

EDIT: Autant pour moi j'ai mal lus. Donc si je comprend bien je fait juste une affectation de mes checkbox lors de la création de ma fenêtre. Par contre cela n'affecteras pas des procédures visant à rendre, elles aussi, grise d'autre checkbox? (Comme l'exemple mis en haut?)

C'est ce qu'il faut faire !

Le OnClick d'un TCheckBox se produit sur l'action utilisateur mais aussi à la modification de propriété Checked ( a vérifier tout de même ) c'est différent pour TComboBox qui sépare OnClick et OnChange







J'avais proposé de le faire dans le constructeur, tu n'as pas du faire attention à cela dans une autre de tes questions "Interaction de deux éléments." :

... changer la valeur en Design Time et\ou durant le constructeur, je conseille ce dernier car si tu mémorises la valeur, lors d'un ré-affichage, c'est durant le constructeur qui te pourra mettre en forme ton écran en fonction des données

[LaQude]

Ok ShaiLeTroll j'était en train d'éditer ma réponse justement car j'ai mal lus .

Je vais suivre son exemple qui a l'air plutôt simple.

Désoler de t'avoir fait "répéter" je serais maintenant plus attentif

[exoseven]

oui j'avais mal compris ta question, je pensais que tu voulais changer tes cases lors de l'ouverture d'autres fenêtres

[LaQude]

J'en suis désoler exoseven, et pourtant on m'as toujours dit de bien détailler au maximum l'action que l'on veut effectuer. Au final j'ai appelé mes checkboxs par mes procédure tout simplement, car tout était déjà fait ^^.

Je vous remercie, encore une fois !