delphi форма на весь экран

Нормально разворачивается только если BorderStyle установлен в bsSingle, bsSizeable или bsSizeToolWin.
При bsDialog, bsNone или bsToolWindow панель Виндоуса с кнопкой «Пуск» действительно почему-то перекрывается.

Эффект как при нажатии на кнопку «развернуть» в правом верхнем меню окна.

Полное описание функции:
Функция ShowWindow
Declare Function ShowWindow Lib «user32.dll» (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Платформа: Win 95/98, Win NT

SW_HIDE = 0
Скрыть окно и активизировать другое окно.
SW_MAXIMIZE = 3
Развернуть окно.
SW_MINIMIZE = 6
Свернуть окно и активизировать следующее окно в Z-порядке(следующее под свернутым окном).
SW_RESTORE = 9
Активизировать и отобразить окно.Если окно свернуто или развернуто,Windows восстанавливает его исходный размер и положение.
SW_SHOW = 5
Активизировать окно.
SW_SHOWMAXIMIZED = 3
Отобразить окно в развернутом виде.
SW_SHOWMINIMIZED = 2
Отобразить окно в свернутом виде.
SW_SHOWMINNOACTIVE = 7
Отобразить окно в свернутом виде.Активное окно остается активным.
SW_SHOWNA = 8
Отобразить окно в текущем состоянии.Активное окно остается активным.
SW_SHOWNOACTIVATE = 4
Отобразить окно в соответствии с последними значениями позиции и размера.Активное окно остается активным.
SW_SHOWNORMAL = 1
Активизировать и отобразить окно.Если окно свернуто или развернуто,Windows восстанавливает его исходный размер и положение.Приложение должно указывать этот флаг при первом отображении окна.

Источник

Как сделать чтобы изначально форма открывалась на весь экран?

Как сделать чтобы изначально форма открывалась на весь экран?

Добавлено через 10 минут
С первой формой получается, а вот со второй что то никак

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Как бы сделать так, чтоб форма открывалась на весь экран?
Еще раз приветствую. Как бы сделать так, чтоб форма открывалась на весь экран (экраны разные.

Как сделать что бы при нажатии на кнопку форма открывалась на весь экран?
Что как

Как сделать так, чтобы форма отображалась на весь экран как в играх
Как сделать так, чтобы форма отображалась на весь экран как в играх?

Как сделать так, чтобы размер формы был максимальным т.е. форма была на весь экран?
Привет. Помогите, пожалуйста, решить пару проблем. Есть Эксел файл, при открытии которого.

Как сделать чтобы форма открывалась по центру экрана
Здравствуйте. 1.Как сделать так, чтобы при переключении между элементами меню на форме, форма.

Как сделать, чтобы сразу открывалась вторая форма?
Как сделать, чтобы при запуске сразу открывалась вторая форма? С#

Как сделать, чтобы при открытии форма растягивалась во весь экран и расположенные на ней объекты были всегда в зоне видимости?
Такое вообще возможно?

Как правильно сделать чтобы вторая форма открывалась в первой
У меня есть главная форма и мне надо набить код чтобы когда я компилирую мне сперва вибивало форма.

Как сделать чтобы по клику на кнопке открывалась новая форма?
Подскажите пожалуйста.У менять есть две формы (окна): MyForm и MyForm1. Первоначально открывается.

Как сделать чтобы открывалась вторая форма при удачной авторизации
Программа имеет вот такой код: Public Class Form1 Private Sub Button1_Click(sender As.

Источник

Delphi форма на весь экран

Люди подскажите, как сделать так, чтобы форма была на весь экран, т.е. полноэкранный режим?

← →
TUser © ( 2004-03-26 16:48 ) [2]

Для этого нужно использовать следующие свойства класса TForm:
TForm.Width
TForm.Height
TForm.FormStyle
TForm.FAQ

← →
TUser © ( 2004-03-26 16:55 ) [3]

← →
Anatoly Podgoretsky © ( 2004-03-26 19:33 ) [4]

у меня не видно. приведите код.

form1.align:=alclient;
form1.windowstate:=wsMaximized;
Form1.formstyle:=fsStayOnTop;
Свойства формы, которые я поставил, а пуск всё равно видно.

//Убираем панель задач
ShowWindow(FindWindow(«Shell_TrayWnd», nil), SW_HIDE);

Читаем про DirectX и переводим приложение в полноэкранный режим. только так

P.S. Подумал, подумал. надо смайлик поставить

Описание: Поддержка разворота клиентской части окна во весь экран.
Источник: статья Пола Дилация в MSDN Magazine № 6(12) 2002 г.

Особенности использования: Окно, клиентская часть которого должна быть
развернута во весь экран, должно обрабатывать
сообщение WM_GETMINMAXINFO и устанавливать
свой максимальный размер больше, чем размер
экрана.

Авторы: Пол Дилация (С++, MFC), Игорь Шевченко (Delphi)

Дата создания: 09.01.2003

История изменений:
>
unit FullScreenUnit;

interface
uses
Windows, Controls;

type
TFullScreenHandler = class
private
FRestoreRect : TRect;
function GetInFullScreenMode : Boolean;
function GetMaxSize : SIZE;
public
< Развернуть клиентскую область окна во весь экран >
procedure Maximize (AWinControl : TWinControl);
< Восстановить клиентскую область окна >
procedure Restore (AWinControl : TWinControl);
< Развернута ли клиентская область окна во весь экран >
property InFullScreenMode : Boolean read GetInFullScreenMode;
< Максимально возможный размер окна, такой, чтобы клиентская область
уместилась во весь экран. >
property MaxSize : SIZE read GetMaxSize;
end;

var
FullScreenHandler : TFullScreenHandler;

function TFullScreenHandler.GetInFullScreenMode : Boolean;
begin
Result := not IsRectEmpty(FRestoreRect);
end;

initialization
FullScreenHandler := TFullScreenHandler.Create();
finalization
FullScreenHandler.Free();
end.

unit main;

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ExtCtrls;

type
TfMain = class(TForm)
MainMenu: TMainMenu;
View1: TMenuItem;
miFullScreen: TMenuItem;
Image: TImage;
miHelp: TMenuItem;
About: TMenuItem;
procedure miFullScreenClick(Sender: TObject);
procedure ImageDblClick(Sender: TObject);
procedure AboutClick(Sender: TObject);
private
procedure WMGetMinMaxInfo(var Message : TWMGetMinMaxInfo);
message WM_GETMINMAXINFO;
end;

implementation
uses
FullScreenUnit, About;

Источник

Растягивание формы на весь экран. Программирование Delphi.

Сегодня я расскажу как растягивал форму в Delphi во весь экран без искажения из-за разных соотношений высоты и ширины экрана. И изменение масштаба компонент установленных на форме.

Самой форме необходимо поменять свойства BorderStyle = bsNone и WindowState = wsMaximized

Создаем процедуру procedure FullScreen(oForm: TForm; oPanel: TPanel);

Со следующим кодом:

Я выносил эту процедуру в отдельный файл (unit), поэтому сделал передачу формы в процедуру.

procedure TForm1.FormCreate(Sender: TObject); begin FullScreen(Form1,Panel1); end;

Для проверки работоспособности кода поместим на форму две кнопки, в разные углы формы.

В результате работы данного приложения, мы получим следующую картину при запуске:

Ссылки по теме