l'heure dans un labelRésolu

Question

slt tlm;
je voulais afficher l'heure dans un TLabel, et j'ai trouvé dans le forum une réponse interessante puisqu'elle ne repose pas sur l'utilisation d'un TTimer, mais elle consistait à faire ceci:
/////////////////////////////////////
On assigne une procédure à l'évènement OnIdel de Application :
Application.OnIdle :=  AppIdle;

On déclare une procédure dans la partie publique de la fiche
 public 
procedure AppIdle(Sender: TObject; var Done : Boolean);

Dans cette procédure, on inscrite le code suivant (par exemple):

procedure AppIdle(Sender: TObject; var Done : Boolean);
begin
//inscrire la date et l'heure sur Button1
Button1.Caption : = DateTimeToStr(Now);
//Recommencer au prochain temps mort
Done := False;
end;
//////////////////////////
le problème c'est que ça me genère une erreur en m'affichant:
[Erreur] Unit1.pas(36): Déclaration forward ou external non satisfaite : 'TForm1.AppIdle'
dans la ligne des déclarations publiques!!
qlq peut m'aider svp??

f0xi · Accepted Answer

procedure Tform1.AppIdle(Sender: TObject; var Done : Boolean);
begin
//inscrire la date et l'heure sur Button1
Button1.Caption := DateTimeToStr(Now);
//Recommencer au prochain temps mort
Done := False;
end;

<hr size="2" width="100%" />Croc (click me)

cs_othland · Answer

ok, ok, c'est ce que j'ai fait: TForm1.....
merci a vous tous!

Guillemouze · Answer

petite astuce : lorsque tu declare des procedures, property, ... dans une classe, tu peux les completer automatiquement en faisant CTRL+SHIFT+C (enfin c'est ce raccourci chez moi, ca doit etre un truc du genre "completer le code sous le curseur), avec le curseur a l'intrieur de ta classe. Petit exemple:

TMaClasse =  class
private
public
    property MaProperty: integer;
   |  constructor create;
    destructor Destroy; override;
    procedure MaProcedure(param: boolean);
end;

te donnera en faisant ctrl+shift+c (| est le curseur, en bleu ce qui est rajouté) :

TMaClasse  = class

private
    FMaProperty: integer;
    procedure SetMaProperty(const Value: integer);

public

    property MaProperty: integer read FMaProperty write SetMaProperty;

    constructor create;

    destructor Destroy; override;

    procedure MaProcedure(param: boolean);

end;

procedure TMaClasse.SetMaProperty(const Value: integer);
begin

end;

constructor TMaClasse.create;
begin

end;

destructor TMaClasse.Destroy; 
begin

    inherited;
end;

procedure TMaClasse.MaProcedure(param: boolean);
begin

end;

Guillemouze · Answer

exact, je me suis trompé, le setter est :

procedure TMaClasse.SetMaProperty(const Value: integer);
begin
    FMaProperty := Value;
end;

cs_othland · Answer

thanks men!

cs_Delphiprog · Answer

Pour info uniquement : "Compléter la classe sous le curseur" est une fonctionnalité bien pratique mais hélas pas disponible dans l'édition personnelle de Delphi.

May Delphi be with you !
<hr color="#008000" />
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

Guillemouze · Answer

ah, c'est bien dommage car c'est terriblement pratique, et je pense que je ne pourrais plus m'en passer aujourd'hui

L'heure dans un label

7 réponses

Votre réponse

Discussions similaires