[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    {
      Pop this procedure into your main form's unit and call it from your
      FormCreate procedure.  Under Win95 or WinNT w/Win95 shell, your main form
      will fit perfectly in the client area of the screen in a wsNormal state.
      The only parm for the proc is the name of your main form.  If Win95 or
      WinNT/wWin95 shell is NOT running, your form will open in a wsMaximized
      state.

      This may or may not be the only way to accomplish this task, but it works.

      Freeware. No guarantees, promises or responsibility. Use to your heart's
      content.  Just give me credit: Peter M. Jagielski
                                     73737,1761@compuserve.com
    }

    procedure SizeForTaskBar(MyForm: TForm);
    var
      TaskBarHandle: HWnd;    { Handle to the Win95 Taskbar }
      TaskBarCoord:  TRect;   { Coordinates of the Win95 Taskbar }
      CxScreen,               { Width of screen in pixels }
      CyScreen,               { Height of screen in pixels }
      CxFullScreen,           { Width of client area in pixels }
      CyFullScreen,           { Heigth of client area in pixels }
      CyCaption:     Integer; { Height of a window's title bar in pixels }
    begin
      TaskBarHandle := FindWindow('Shell_TrayWnd',Nil); { Get Win95 Taskbar handle }
      if TaskBarHandle = 0 then { We're running Win 3.x or WinNT w/o Win95 shell, so just maximize }
        MyForm.WindowState := wsMaximized
      else { We're running Win95 or WinNT w/Win95 shell }
        begin
          MyForm.WindowState := wsNormal;
          GetWindowRect(TaskBarHandle,TaskBarCoord);      { Get coordinates of Win95 Taskbar }
          CxScreen      := GetSystemMetrics(SM_CXSCREEN); { Get various screen dimensions and set form's width/height }
          CyScreen      := GetSystemMetrics(SM_CYSCREEN);
          CxFullScreen  := GetSystemMetrics(SM_CXFULLSCREEN);
          CyFullScreen  := GetSystemMetrics(SM_CYFULLSCREEN);
          CyCaption     := GetSystemMetrics(SM_CYCAPTION);
          MyForm.Width  := CxScreen - (CxScreen - CxFullScreen) + 1;
          MyForm.Height := CyScreen - (CyScreen - CyFullScreen) + CyCaption + 1;
          MyForm.Top    := 0;
          MyForm.Left   := 0;
          if (TaskBarCoord.Top = -2) and (TaskBarCoord.Left = -2) then { Taskbar on either top or left }
            if TaskBarCoord.Right > TaskBarCoord.Bottom then { Taskbar on top }
              MyForm.Top  := TaskBarCoord.Bottom
            else { Taskbar on left }
              MyForm.Left := TaskBarCoord.Right;
        end;
    end;

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]