poScreenCenter-dá pra fazer novamente dps do form já abert
31/08/2004
0
Janete
Posts
31/08/2004
Janete
tentei repedir o comando Form1.Position := poScreenCenter; quando clico no botão, mais dá um erro access violation
01/09/2004
Janete
é em um botão:
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Form1.Height:=536;
Form1.Position := poScreenCenter;
end;
01/09/2004
Sandra
Tentei aqui com esse código e o poScreenCenter funcionou normalmente, ou seja, após redimensionar o form, ele é novamente centralizado. Tem mais algum código diferente no evento deste SpeedButton?
Você diz, no primeiro post, que diminui o tamanho na primeira abertura. Como assim? É em tempo de execução? Em qual evento? Coloque também o código para analisarmos.
01/09/2004
Nildo
Form1.left := ( Screen.Width div 2 ) - ( Form1.Width div 2 );
Form1.Top := ( Screen.Height div 2 ) - ( Form1.height div 2 );
01/09/2004
Janete
Simplesmente eu já deixo o form menor qdo é aberto pela primeira vez, depois lá dentro tem um botão q se a pessoa clicar nele, irá abrir outras opções (campos) dentro do form, e é nessa hora q peço para centralizar novamente. A única coisa q tem no botão é:
Form1.Height:=536;
Form1.Position := poScreenCenter;
Edit2.Setfocus;
01/09/2004
Sandra
Janete, não sei se tem algo a ver, mas procure pela propriedade DefaultMonitor está setada para [b:fe0d1f9849]dmActiveForm[/b:fe0d1f9849].
Para maiores informações, veja no help on-line do Delphi. Boa sorte!!
Clique aqui para fazer login e interagir na Comunidade :)