Discussion :

[tarmo57]

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 :

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

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

[ShaiLeTroll]

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 :

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

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 :

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

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

Code c++ :

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

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

[tarmo57]

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

[tarmo57]

fin de compte le code ne fonctionne pas effectivement avec

Code :

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

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

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

merci d'avance