[Resolvido] Redimensionar formulários

[Marcos Barbosa 1]

Pessoal, no pc que uso as propriedades do windows estão 1280x720, quando instalo o sistema em outros PC´S, os formulários ficam fora de posição, pesquisei na net e achei algo informando que é aconselhavel eu trabalhar com formato 800x600, onde tenho q seguinte rotina para isso:

Implementation
const
ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
ScreenHeight: LongInt = 600;
{$R *.DFM}
procedure TForm1.FormCreate (Sender: Tobject);
begin
scaled := true;
if (screen.width <> ScreenWidth) then
begin
height := longint(height) * longint(screen.height) DIV ScreenHeight;
width := longint(width) * longint(screen.width) DIV ScreenWidth;
scaleBy(screen.width, ScreenWidth);
end;
end;

 

Fiz isso no form principal e no meu PC as fontes e os bitbtns ficam grandes.

Outra dúvida, eu preciso redimentcionar todos os outros forms ?

[bdexterholland 0]

Ao invés de usar escalas, você pode usar âncoras para que os campos se ajustem de acordo com o tamanho da janela, procure a propriedade Anchor em seus componentes visuais. A propriedade Anchor aceita os valores akTop, akLeft, akBottom, akRight. Crie um novo projeto, insira alguns componentes visuais e modifique suas propriedades Anchor e redimensione o formulário, você entenderá como esta propriedade funciona....

[Marcos Barbosa 1]

Vou fazer uns testes aqui e posto o resultado.

[Marcos Barbosa 1]

Vlw, muito obrigado, funcionou.