Olá Flávio...
Pelo que pude perceber, setou as propriedades do seu form proncipal como
BorderStyle como bsSizeable e BorderIcons.biMaximize como False.
Vc pode optar por habilitar o botão maximizar do form ou setar no onCreate do
form executar o seguinte:
Height := Screen.Height - fncAlturaBarraTarefas;
Top := 0;
Left := 0;
E a função fncAlturaBarraTarefas:
function fncAlturaBarraTarefas: Integer;
var
rRect: TRect;
rBarraTarefas: HWND;
begin
//Localiza o Handle da barra de tarefas
rBarraTarefas := FindWindow('Shell_TrayWnd', nil);
//Pega o "retângulo" que envolve a barra e sua altura
GetWindowRect(rBarraTarefas, rRect);
//Retorna a altura da barra
Result := rRect.Bottom - rRect.Top;
end;
[]'s
---------------------------------------------------
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
---------------------------------------------------
----- Mensagem original ----
De: Flavio <[EMAIL PROTECTED]>
Para: Grupo_Delphi <delphi-br@yahoogrupos.com.br>
Enviadas: Terça-feira, 5 de Agosto de 2008 11:01:10
Assunto: [delphi-br] Ajustar tam do App de acordo com a barra de tarefas
Olá pessoal, bom dia,
estou querendo fazer uma função que ajusta o tamanho do meu Aplicativo de
acordo com o tamanho da barra de tarefas, pois ele está começando maximizado e
ficando uma parte dele coberto por essa barra.
Existe algum jeito de eu realizar essa tarefa ?? Alguém tem um fósforo para
acender no final do túnel ?
Obrigado pela atenção de todos,
Flávio.
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]
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]
