Discussion :

[Droïde Système7]

Bonjour

Je me trouve devant un comportement absolument illogique, avec pourtant du code à raz des pacquerettes

Plantage du décor :

A l'occasion de ce test, cette maquette est composée simplement de :

• 1 PageControl comportant 2 pages
• dans la première page existe deux entrées de données (dans les Edits)
• dans le seconde page existe 2 Edits de contrôle et 2 Buttons de tests

Tout ça pour illustrer et surtout reproduire un comportement illogique

Voici la manip en deux clics à effectuer :

• Nous arrivons sur le second onglet (point très important ! )
• clic sur le bouton "Injection" (Simple affectation de données dans les 2 Edits du premier onglet)
• clic sur le premier onglet et ! ! ! perte de la valeur des deux Edits !

(Par contre si l'appli arrive sur le premier onglet = RAS)

Oui je pourrais ruser pour arriver à mes fins, mais je préfère en connaitre la cause et assouvirait ma frustration.

Une variante de la manip :

• si l'on réinjecte après le RAZ dito = tout redevient logique et la mémoire est OK.

Sur mon projet, cette "injection" s'effectue via un INI et dans un premier temps je le soupçonnais très fort.

Merci de vos idées, car j'en suis déjà à trois mulots dévorés

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
 
procedure TForm1.btnInjectClick(Sender: TObject);
begin
  edtNumDevis.Text   := '450';
  edtNumFacture.Text := '16';
 
  ShowMessage('Affectation n° Devis : '   +edtNumDevis.Text+  sLineBreak+
              'Affectation n° Facture : ' +edtNumFacture.Text);
end;
 
 
procedure TForm1.btnVerifClick(Sender: TObject);
begin
  UN.Text   := 'N° Devis : '  + edtNumDevis.Text;
  DEUX.Text := 'N° Facture : '+ edtNumFacture.Text;
end;

Ci-joint le code de la démo en question (sans exe).

ProjetDemo.zip

DS7

[ShaiLeTroll]

Je mémoriserais les données de l'onglet Source dans des variables lors d'un OnChanging avant que l'onglet Source soit masquer au profit de l'onglet Destination

Je me demande l'impact sur les handles des contrôles qui n'ont jamais été visible.
Essaye de capturer les CM_RECREATEWND et le ControlState csCreating et csRecreating qui soit bien créé avant d'assigner
Je pense par exemple au TWebBrowser, tant que tu le l'affiche pas un première fois, le navigate ne crée pas le DOM contenu les objets HTML
Certes c'est un composant assez lourd mais les controles TEdit clea reste des composants Windows, c'est juste une enveloppe Delphi, le text n'est pas stocké par Delphi mais par Windows et récupérer par GetTextBuf


Je crois que spontanément, je n'utilise jamais les contrôles d'un onglet masqué lorsque j'ai un autre onglet visible, j'ai toujours tendance à préférer des objets business qui fait le lien, gros avantage leur jour où la fenêtre devient trop lourde et que l'on se dit que déplacer le contenu dans des TForm ancrées, l'objet business simplifie le découplage ... à terme cela permet de passer à un TTabControl qui ne contient que l'onglet actif donc plus léger et la transition des données entre les onglets est assuré par l'objet business.

[Paul TOTH]

alors, ce comportement étrange n'est pas lié aux TEdit, mais aux TUpDown; dans TCustomUpDown.CreateWnd (qui se déclenche uniquement quand on clique sur l'Onglet 1) on a un SendMessage(Handle, UDM_SETPOS32, 0, FPosition); qui va remplacer les valeurs des TEdit par 1

donc tu peux faire ceci

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.btnInjectClick(Sender: TObject);
begin
//  edtNumDevis.Text   := '450';
//  edtNumFacture.Text := '16';
  UpDownDevis.Position := 450;
  UpDownFacture.Position := 16;

mais le ShowMessage donnera toujours les anciennes valeurs, car les Positions ne seront injectées que lorsque l'onglet 1 sera activé et ses enfants rendus visibles créeront leur Handle...donc si tu veux une cohérence entre les deux

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.btnInjectClick(Sender: TObject);
begin
  edtNumDevis.Text   := '450';
  edtNumFacture.Text := '16';
  UpDownDevis.Position := 450;
  UpDownFacture.Position := 16;

[Droïde Système7]

Ouffffffffffff

Merci les copains, vous avez épargné le dernier mulot qui en tremblait de peur

ShaiLeTroll, tu sais je suis loin de ton niveau en ce langage et n'oublie pas qu'il faut savoir s'adapter au niveau du demandeur.

Autant expliquer à un débutant pilote de Cessna 152, en plafond, comment se débrouiller face à la panne de son unique moteur

Paul, oui je pense souvent à toi via ton gros bouquin culte avec Oliver.

Hé oui j'avais fini de constater que les TUpDown en étaient la cause, lorsqu'en maquette de démo j'avais oublié l'associate !

Bref, un simple échange d'affectation (non String) via ces TupDown et l'affaire est enfin résolue

Merci à vous