Auto resoluçao

Delphi

03/04/2015

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

Curtidas 0

Respostas

Narba Silva

Narba Silva

03/04/2015

ninguem???
GOSTEI 0
Thiago Santana

Thiago Santana

03/04/2015

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.
GOSTEI 0
POSTAR