App stare dietro barra delle applicazioni quando si inizia a schermo intero

Question

Questo è il codice che sto utilizzando:

BorderStyle := bsNone; 
WindowState := wsMaximized; 

Il mio problema è che l'applicazione non coprirà la barra delle applicazioni, ma andare dietro di esso.

Funziona correttamente quando si passa a schermo intero in fase di esecuzione, ma non funziona quando si avvia l'applicazione all'avvio del sistema.

UPDATE

Risulta che queste due linee funzionano molto bene. Sono nel gestore di eventi FormShow. Se punto di interruzione fino alla fine di FormShow, l'applicazione sembra essere a schermo intero; Posso vedere l'applicazione attraverso la barra delle applicazioni. Ma dopo FormShow la proprietà Top dell'applicazione viene modificata in qualche modo. Non lo cambio in codice - il valore è -20, quindi l'applicazione non è più ingrandita.

C'è un modo per tenere traccia di dove o quando è cambiato?

Grazie in anticipo!

UPDATE

Questo post è in posizione. Si prega di non pubblicare alcuna risposta! Grazie.

Answer 1

prova:

Form.Left := 0; // set the x 
Form.Top := 0; // set the y 
Form.Width := Screen.Width; // width of the form 
Form.Height := Screen.Height; // height of the form 
// and 
Form.FormStyle := fsStayOnTop; // taskbar is always on top as well, setting the Style property to always on top will allow the form to cover the taskbar 

se si desidera nascondere la didascalia quindi impostare il BorderStyle bsnone

Answer 2

cambiare lo stile param, secondo questo blog MSDN: http://blogs.msdn.com/b/oldnewthing/archive/2005/05/05/414910.aspx

procedure TForm1.CreateParams(var Params: TCreateParams); 
begin 
    inherited; 
    Params.Style := WS_POPUP or WS_VISIBLE; //will overlay taskbar 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    Self.WindowState := wsMaximized; //fullscreen 
end; 

====================================

codice completo per passare dalla modalità a schermo intero con finestra per e ritorno (testato su Win7 64 bit, Aero)
(Edit: funziona in Windows XP (vmware) troppo)

var 
    _OrgWindowedStyle: DWORD; 

procedure TForm6.btnWindowedClick(Sender: TObject); 
begin 
    Self.WindowState := wsNormal; 
    //set original style 
    SetWindowLong(Application.Handle, GWL_STYLE, 
       _OrgWindowedStyle); 
    //re-create window, to use changed style 
    RecreateWnd; 
end; 

procedure TForm6.btnFullScreenClick(Sender: TObject); 
begin 
    _OrgWindowedStyle := 0; //clear: re-applies fullscreen mode in CreateParams 
    Self.WindowState := wsMaximized; 
    //re-create window, to use changed style 
    RecreateWnd; 
end; 

procedure TForm6.CreateParams(var Params: TCreateParams); 
begin 
    inherited; 

    //first time? default fullscreen 
    if _OrgWindowedStyle = 0 then 
    begin 
    _OrgWindowedStyle := Params.Style; 
    Params.Style := //WS_POPUP or    //not needed? 
        WS_VISIBLE 
        or WS_BORDER or WS_CAPTION //comment this line to remove border + titlebar 
    end; 
end; 

procedure TForm6.FormCreate(Sender: TObject); 
begin 
    Self.WindowState := wsMaximized;  //default fullscreen 
end;