1 respuesta en este tema

[enecumene]

Este truco sirve para sacar los valores de la resolución actual de tu pantalla (Ancho y Alto), es bastante sencillo:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Ancho = ' + inttostr(Screen.Width) + #13#10 + 'Alto = ' + inttostr(Screen.Height));
end;

Cualquier pregunta sobre este truco, puedes abrir un hilo en el foro adecuado.

Saludos.

[elrodrix]

Este truco sirve para sacar los valores de la resolución actual de tu pantalla (Ancho y Alto), es bastante sencillo:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Ancho = ' + inttostr(Screen.Width) + #13#10 + 'Alto = ' + inttostr(Screen.Height));
end;

Cualquier pregunta sobre este truco, puedes abrir un hilo en el foro adecuado.

Saludos.

Muy bueno, me sirvio mucho, muchas gracias !