Recherche:

Pour calculer la hauteur d'une fenêtre classique, il faut ajouter à la hauteur de la zone client désirée :
GetSystemMetrics(sm_CYCaption) = la hauteur de la barre de titre ; ...

Bravo, bel exemple de programme Windows sans surcouche ! :bravo:

Bonjour Roland,

En effet ! :king:

Avec les flocons en Lazarus et la musique en Delphi, c'est Noël en Pascal ! :bravo:

Bonjour,

Le type TSystemTime est défini ainsi dans la RTL de Virtual Pascal :

PSystemTime = ^TSystemTime;
TSystemTime = record
wYear: SmallWord;
wMonth: SmallWord;...