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

Gudzik11

New member
30.11.2011
1
0
#1
Здравствуйте!Помогите,пожалуйста!
Мне нужно создать форму которая раскрывалась бы во весь экран,и перекрывала панель"Пуск". После этого на неё поместить несколько компонентов так,чтоб при запуске моего проекта на другом мониторе,с другим разрешением,всё выглядело так как и на моём.
 

nayke

Well-known member
04.08.2010
310
0
#2
Здравствуйте!Помогите,пожалуйста!
Мне нужно создать форму которая раскрывалась бы во весь экран,и перекрывала панель"Пуск". После этого на неё поместить несколько компонентов так,чтоб при запуске моего проекта на другом мониторе,с другим разрешением,всё выглядело так как и на моём.
Гуглите fullscreen в делфи
 

Gudzik11

New member
30.11.2011
1
0
#3
На весь экран я разварачиваю так :
Код:
BorderStyle:=bsNone;
WindowState:=wsMaximized;
,
добовляю,к примеру,три memo на форму...
А как добиться того,чтоб при изменении разрешения в windows,моя форма с её содержимым подстроилась под экран монитора ?
 

Gudzik11

New member
30.11.2011
1
0
#5
нашол такой пример
Код:
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
по ширене всё как надо вписываеться а по высоте низ уезжает за приделы экрана почему не пойму
 

-master-

Well-known member
14.01.2012
616
12
#6
В отладчике смотрите как инициализируются свойства и проверяйте с реальными параметрами.