Tenta isso aqui que eu achei no Dicas e Truques de Delphi v2.8:
896 - Como Posicionar o Form Em Relação Ao Desktop
--------------------------------------------------------------------------------
Quando utilizamos a propridade Position do Form para centralizá-lo estamos
sujeitos a um inconveniente. Dependendo da posição/tamanho da barra de tarefas
do Windows, o nosso Form poderá ficar parcialmente coberto por ela. Uma maneira
para se resolver este problema é posicionar o form considerando apenas a área
livre do Desktop.
Veja abaixo o exemplo:
1 - Crie um novo projeto.
2 - Na seção implementation digite a procedure abaixo:
// Horz: 1=esquerda, 2=centro, 3=direita
// Vert: 1=topo, 2=centro, 3=rodapé
procedure FormPos(Form: TForm; const Horz, Vert: byte);
var
R: TRect;
begin
if not SystemParametersInfo(SPI_GETWORKAREA, 0, @R, 0) then
R := Rect(0, 0, Screen.Width, Screen.Height);
with Form do
case Horz of
1: Form.Left := 0;
2: Form.Left := (R.Right - R.Left - Width) div 2;
3: Form.Left := R.Right - Width;
end;
with Form do
case Vert of
1: Form.Top := 0;
2: Form.Top := (R.Bottom - R.Top - Height) div 2;
3: Form.Top := R.Bottom - Height;
end;
end;
Coloque dois componentes Edit e um componente Button e informe o código abaixo
no evento OnClick.
procedure TForm1.Button1Click(Sender: TObject);
begin
FormPos(Form1, StrToInt(Edit1.Text), StrToInt(Edit2.Text));
end;
Para testar este o exemplo acima, execute o programa e digite os números de 1 a
3 em ambos os Edit's e clique no botão para ver o resultado.
O componente Edit1 indica a posição horizontal e o componente Edit2 indica a
posição vertical.
Sds,
Ricardo.
Yahoo <[EMAIL PROTECTED]> escreveu: Pessoal,
Tem como verificar a largura da tela descontando a largura da barra de
tarefas? Tenho que levar em consideração que se a barra de tarefas estiver
oculta a sua largura será zero.
[As partes desta mensagem que não continham texto foram removidas]
---------------------------------
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
