Array
(
)

poScreenCenter-dá pra fazer novamente dps do form já abert

Janete
   - 31 ago 2004

tenho um form q diminuo o tamanho dele na primeira abertura, mas dentro dele tem um botão para habilitar outras funções que, aumenta o tamanho do form, e logo na primeira abertura ele estava com a posição de poScreenCenter, e qdo clico no botão q aumenta o tamanho dele, ele fica fora da tela, não fica no centro. Será q tem como centralizar novamente qdo ele fica maior?


Janete
   - 31 ago 2004


Citação:
tenho um form q diminuo o tamanho dele na primeira abertura, mas dentro dele tem um botão para habilitar outras funções que, aumenta o tamanho do form, e logo na primeira abertura ele estava com a posição de poScreenCenter, e qdo clico no botão q aumenta o tamanho dele, ele fica fora da tela, não fica no centro. Será q tem como centralizar novamente qdo ele fica maior?


tentei repedir o comando Form1.Position := poScreenCenter; quando clico no botão, mais dá um erro access violation


Sandra
   - 31 ago 2004

Janete,

Qual o seu código? Em qual evento está utilizando?


Janete
   - 01 set 2004


Citação:
Janete,

Qual o seu código? Em qual evento está utilizando?


é em um botão:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Form1.Height:=536;
Form1.Position := poScreenCenter;
end;


Sandra
   - 01 set 2004

Janete,

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.


Nildo
   - 01 set 2004

Se continuar não funcionando, tente assim:

Form1.left := ( Screen.Width div 2 ) - ( Form1.Width div 2 );
Form1.Top := ( Screen.Height div 2 ) - ( Form1.height div 2 );


Janete
   - 01 set 2004


Citação:
Janete,

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.


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;


Sandra
   - 01 set 2004

:? Que estranho!!

Janete, não sei se tem algo a ver, mas procure pela propriedade DefaultMonitor está setada para dmActiveForm.

Para maiores informações, veja no help on-line do Delphi. Boa sorte!!