Bonjour à tous
J'ai une application avec une TJvDatePickerEdit ( une sorte de TDateTimePicker )
Je souhaites afficher un message d'erreur personnalisé ( par exemple : date incorrect ) si la date saisie n'est pas bonne.

Donc je demande d'afficher ce message lors des événements suivants : OnKillFocus et OnKeyPress

ce qui donne ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TFrmCamp.EPeriode2KeyPress(Sender: TObject; var Key: Char);
var
   EPeriode :  TJvDatePickerEdit;
begin
   if Key = Char(VK_TAB) then
   begin
     EPeriode := Sender as TJvDatePickerEdit;
     if not EPeriode.HasValidDate then
     begin
        ShowMessage('key press : Date incorrect');
     end;
   end;
end;
au final, mon message d'erreur personnel s'affiche mais le message d'erreur du compilateur s'affiche juste après ce que je ne veux justement pas..

je ne sais pas si j'ai été suffisamment précis en ce qui concerne mon problème et quelqu'un aurait il une solution s'il vous plait ? :-)
Merci d'avance.