Obtenir la zone de travail sans la barre des tâches



Quand on veut mettre une fiche qui occupe le maximum d'espace possible sans la maximiser, il y a toujours un problème: comment ne pas positionner sa fiche au dessus de la barre des tâches, sachant qu'elle peut être aussi bien à droite, à gauche en haut ou en bas, et peut avoir différentes largeurs ou hauteurs. Heureusement, il existe une solution: la fonction API SystemParametersInfo, avec SPI_GETWORKAREA en paramètre :


Obtenir la zone de travail sans la barre des tâches

procedure TForm1.FormCreate(Sender: TObject);
var
  ScreenRect: TRect;
begin
  SystemParametersInfo(SPI_GETWORKAREA, 0, @ScreenRect, 0) ;
  with ScreenRect do SetBounds(Left, Top, Right, Bottom);
end;





3 requête(s) SQL executée(s) en 0.001 Secs - Temps total de génération de la page : 0.008 Secs