watrem
Messages postés51Date d'inscriptionsamedi 15 octobre 2005StatutMembreDernière intervention17 août 2008
-
12 juin 2008 à 00:18
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 2022
-
12 juin 2008 à 10:25
Bonjour , je m'excuse d'avoir omis dans ma precedente demande les formules de politesse qu un administrateur ma fait remarque!!
1000 fois pardon et c'est sincere
j'avais deja reussi cette exercice mais la reproduisant la meme chose
j'ai des messages d'erreurs et je ne la trouve pas :
1- dans type j'incorpore
Procedure FormActivate (sender:TObject);
2- dans private declare:
63 procedure AppIdle (sender:TObject;var Done:Boolean);
// horloge
procedure TForm1.AppIdle (sender:TObject;var Done:Boolean);
Begin
Application.Title:= TimeToStr (now); afficher l heure dans le status bar
done := not self.active; uniquement si la fenetre est active
(statusBar1.panels[1].text :=TimeToStr (now) + ' ');
procedure Tform1.Activate (sender:Tobject);
begin
application.OnIdle := AppIdle;
end;
en erreur j'ai : la procedure AppIdle surchargee doit etre declaree par la directive 'overload' a la ligne 63