Luciano...

Hum... Estranho. Não consegui reproduzir esta situação aqui usando as versões 
3, 7 e BDS 2006. Alias, qual versão do Delphi vc usa?

Existe uma maneira bem POG de conseguir resolver isso, mas tamanha a gambiarra, 
nem vale a pena. Enfim, se vc quiser...

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Form1 do
  begin
    MaxWidth := Screen.Width;
    MaxHeight := Screen.Height - 24; //Valor em pixels da altura da barra
    Left := 0;
    Top := 0;
    WindowState := wsMaximized;
  end;
end;

 ---------------------------------------------------
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---------------------------------------------------
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---------------------------------------------------
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---------------------------------------------------   


      Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Responder a