StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POtaskbar disappear when set to auto-hide an my window set to maximized
text
Body
copied!<p>I set the Windows taskbar to auto-hide when i set my application to maximized the small 2 pixel lignes of the taskbar at the bottom disappear and i can't acces to the taskbar after if i minimize my application the taskbar reappear.</p> <p>do you know why ?</p> <p>i'm under Windows 7 my application is programmed in Delphi XE</p> <p>it's to make a chrome/firefox like application with tabs at the top. i give you a sample with the problem of the disappear taskbar :</p> <p>the DFM</p> <pre><code>object Form3: TForm3 Left = 0 Top = 0 Caption = 'Form3' ClientHeight = 320 ClientWidth = 635 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] OldCreateOrder = False WindowState = wsMaximized OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 14 object PageControl1: TPageControl AlignWithMargins = True Left = 0 Top = 15 Width = 635 Height = 305 Margins.Left = 0 Margins.Top = 15 Margins.Right = 0 Margins.Bottom = 0 ActivePage = TabSheet3 Align = alClient TabOrder = 0 object TabSheet1: TTabSheet Caption = 'TabSheet1' end object TabSheet2: TTabSheet Caption = 'TabSheet2' end object TabSheet3: TTabSheet Caption = 'TabSheet3' end end end </code></pre> <p>the code</p> <pre><code>unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Dwmapi, ComCtrls, StdCtrls; type TForm3 = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; procedure FormCreate(Sender: TObject); private FWndTopFrameSize : Integer; FWndBorderFrameSize : Integer; procedure WMNCCalcSize(var Message: TWMNCCalcSize); message WM_NCCALCSIZE; end; var Form3: TForm3; implementation {$R *.dfm} procedure TForm3.FormCreate(Sender: TObject); var r : TRect; begin if DwmCompositionEnabled then begin SetRectEmpty(r); AdjustWindowRectEx(r, GetWindowLong(Handle, GWL_STYLE), False, GetWindowLong(Handle, GWL_EXSTYLE)); FWndTopFrameSize:=-r.Top; FWndBorderFrameSize:=r.Right; GlassFrame.Top:=FWndTopFrameSize+PageControl1.Margins.Top; GlassFrame.Enabled:=True; SetWindowPos(Handle, 0, Left, Top, Width, Height, SWP_FRAMECHANGED); end; end; procedure TForm3.WMNCCalcSize(var Message: TWMNCCalcSize); begin inherited; if DwmCompositionEnabled then Inc(Message.CalcSize_Params.rgrc[0].Top, -FWndTopFrameSize); end; end. </code></pre>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload