probleme avec XPManifes delphi 7 et windows7 64 bits

Salut tous j'ai un petit problème sur une application
j'ai un DateTimePicker avec une case a cocher,avec un edit
quand le DateTimePicker.Checked = true edit.text=1
sinon edit.text=0

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.DateTimePicker1Change(Sender: TObject); begin if DateTimePicker1.Checked = true then begin Edit1.Text:='1'; end else begin Edit1.Text:='0'; end; end;

---

avec XPManifes mon edit change une fois seulement et reste a 1
existe t'il une parade ou un composant style XP gratuit .Merci de votre aide

J'ai testé ton code en XPSP3 et BCBXE2 + theme actif, cela fonctione !

Probablement le message de changement du TDateTimePicker n'est pas envoyé par le thème Seven !
A savoir qu'il y a un patch pour D7 pour gérer les changements de message de windows Vista !

Au pire, ajoute un OnClick ou OnExit si OS = 6.0 (64bits), tu as plein de code pour choper l'info sur le forum

XPManifest n'est pas un composant, c'est juste un petit XML ajouté en ressource à l'EXE qui indique à l'OS qu'il doit utiliser les controls Version 6 (ceux d'XP ou Vista) au lieu des anciens (Win2K)

sinon tu pouvais juste écrire
le booléen est type conçu pour le if, pas besoin de faire = true.

Code:

---

1 2 3 4 5 6 7

procedure TForm1.DateTimePicker1Change(Sender: TObject); begin if DateTimePicker1.Checked then Edit1.Text := '1' else Edit1.Text := '0'; end;

---

ou même

Code:

---

1 2 3 4

procedure TForm1.DateTimePicker1Change(Sender: TObject); begin Edit1.Text := StrUtils.IfThen(DateTimePicker1.Checked, '1', '0'); end;

---

Code:

---

1 2 3 4

void __fastcall TForm1::DateTimePicker1Change(TObject *Sender) { Edit1->Text = DateTimePicker1->Checked ? "1" : "0"; }

---

Merci Troll je prends les patch et ton code .bonne soirée

fin de compte le code ne fonctionne pas effectivement avec

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.DateTimePicker1Change(Sender: TObject); begin if Edit1.Text='0' then begin Edit1.Text:='1'; end else begin if Edit1.Text='1' then Edit1.Text:='0'; end; end;

---

le edit prend bien 1 ou 0 si je coche il prend 1 et chaque fois que je touche la date il chance avec jour il change mois de nouveau et année.
Au prix du patch j'aimerais trouver une solution.je ne comprend pas bien ce code

Citation:

---

Au pire, ajoute un OnClick ou OnExit si OS = 6.0 (64bits)

---

merci d'avance