Fórum Auto resoluçao #515669

03/04/2015

0

Fiz meu programa no meu note de resolução 1366x768 e agora quando instalo o programa em outros pc's com resolução menor o programa fica grande e cortado.

Qual a melhor maneira de resolver isso?
Narba Silva

Narba Silva

Responder

Posts

08/04/2015

Narba Silva

ninguem???
Responder

Gostei + 0

08/04/2015

Thiago Santana

Narba, altere a propriedade BorderStyle do form para bsNone ou bsSingle e adicione o seguinte código ao evento OnShow:

procedure TForm1.FormShow(Sender: TObject);
var
   r : TRect;
begin
   SystemParametersInfo(SPI_GETWORKAREA, 0, @r,0) ;
   SetBounds(r.Left, r.Top, r.Right-r.Left, r.Bottom-r.Top) ;
end;


Dessa forma ele ficará Full Screen.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar