Correct façon de maximiser la forme en delphi (sans légende)

J'ai un formulaire sans légende, à l'aide de la double cliquez pour maximiser : Code ressemble à ceci:

procedure xxxxxx; 
begin
    if Form1.WindowState=wsNormal then
       begin
        Form1.WindowState:=wsMaximized;
        Form1.SetBounds(0,0,screen.Width,screen.Height-getHeightOfTaskBar);
       end
       else
       begin
         Form1.WindowState:=wsNormal;
       end;

       ShowTrayWindow;
end;
function getHeightOfTaskBar : integer;
var hTaskBar:HWND;
    rect : TRect;
begin
     hTaskbar := FindWindow('Shell_TrayWnd', Nil );
     if hTaskBar<>0 then
        GetWindowRect(hTaskBar, rect);

     Result:=rect.bottom - rect.top;
end;

Cela fonctionne bien, sauf que j'ai eu à comprendre où est la barre des tâches pour réinitialiser SetBounds ...

Quelle est la bonne façon de le faire?

Grâce.

OriginalL'auteur Irfan Mulic | 2008-12-19

  1. 10

    Sonne bien, mais comme Drejc souligné, la barre des tâches peuvent apparaître n'importe où, supplémentaires à quai encadrés comme Google Desktop, Winamp, etc.

    Au lieu peut-être d'utiliser quelque chose comme de l'Écran.WorkAreaRect pour obtenir la zone client de l'écran. E. g.

    with Screen.WorkAreaRect do
  Form1.SetBounds(Left, Top, Right - Left, Bottom - Top);
    Bon, mais cela ne fonctionne que pour le moniteur principal. Afin de Maximiser sur le moniteur de courant vous aurez besoin de faire le suivant: à l'Écran.MonitorFromWindow(Form1.La poignée).WorkAreaRect ne Form1.SetBounds(Gauche, Haut, Droite - Gauche, Bas - Haut);

    OriginalL'auteur CodeAndCats

  2. 0

    Un indice supplémentaire. La barre des tâches peut également être situé sur la droite ou la gauche de l'écran (pas seulement en haut et en bas). Donc, vous devez en outre savoir où se trouve la barre des tâches est.

    Je vous suggère de regarder dans le Delphi mise en œuvre de SetWidnowState. Dans Delphi7 c'est cette partie du code:

    procedure TCustomForm.SetWindowState(Value: TWindowState);
const
  ShowCommands: array[TWindowState] of Integer =
    (SW_SHOWNORMAL, SW_MINIMIZE, SW_SHOWMAXIMIZED);
begin
  if FWindowState <> Value then
  begin
    FWindowState := Value;
    if not (csDesigning in ComponentState) and Showing then
      ShowWindow(Handle, ShowCommands[Value]);
  end;
end;

    ShowWindow est un Win32 appel de la bibliothèque:

    function ShowWindow; external user32 name 'ShowWindow';

    où user32 = 'user32.dll'; si je ne suis pas croyant.
    Donc creuser dans cette bibliothèque, peut-être qu'il est un peu d'info de la barre des tâches de quelque part.

    OriginalL'auteur Drejc