ВОПРОС · Q&A

Форма Под Разрешение Экрана

6 ответов 4,7 тыс.
Автор вопроса
Здравствуйте!Помогите,пожалуйста!
Мне нужно создать форму которая раскрывалась бы во весь экран,и перекрывала панель"Пуск". После этого на неё поместить несколько компонентов так,чтоб при запуске моего проекта на другом мониторе,с другим разрешением,всё выглядело так как и на моём.
 
Здравствуйте!Помогите,пожалуйста!
Мне нужно создать форму которая раскрывалась бы во весь экран,и перекрывала панель"Пуск". После этого на неё поместить несколько компонентов так,чтоб при запуске моего проекта на другом мониторе,с другим разрешением,всё выглядело так как и на моём.

Гуглите fullscreen в делфи
 
На весь экран я разварачиваю так :
Код:
BorderStyle:=bsNone;
WindowState:=wsMaximized;
,
добовляю,к примеру,три memo на форму...
А как добиться того,чтоб при изменении разрешения в windows,моя форма с её содержимым подстроилась под экран монитора ?
 
используйте Anchors, Align и т.п.
 
нашол такой пример
Код:
const
ScreenWidth: Integer = 826;
ScreenHeight: Integer = 476;
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
x, y: LongInt;
begin
form1.Align:=alclient;
scaled := true;
x := getSystemMetrics(SM_CXSCREEN);
y := getSystemMetrics(SM_CYSCREEN);
if (x <> ScreenHeight) or (y <> ScreenWidth) then
begin
form1.height := form1.height * x div ScreenWidth;
form1.width := form1.width * y div ScreenHeight;
end;
if x <> ScreenWidth then
scaleBy(x, ScreenWidth);
end;end
по ширене всё как надо вписываеться а по высоте низ уезжает за приделы экрана почему не пойму
 
В отладчике смотрите как инициализируются свойства и проверяйте с реальными параметрами.