[!!!~VivO~!!!]

Народ очень надо сделать чтоб при нажатии кнопки приложение переводилось с формы в полноэкранный режим.Кто знает как подскажите пожалуйста.

[ApplicatiOn]

WindowState:=wsMaximized; // увеличиваем


(мож я чето не догоняю)

[M.A.D.M.A.N.]

Функции для смены разрешения экрана

Код:

function SetScreen:Boolean;
begin
 with DeviceMode do begin
  dmSize:=SizeOf(DeviceMode);
  dmBitsPerPel:=32;
  dmPelsWidth:=640;
  dmPelsHeight:=480;
  dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
  result:=False;
  if ChangeDisplaySettings(DeviceMode,CDS_TEST or CDS_FULLSCREEN) <> DISP_CHANGE_SUCCESSFUL
   then Exit;
  Result:=ChangeDisplaySettings(DeviceMode,CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL;
 end;
end;

function RestoreScreen:Boolean;
begin
 with DeviceMode do begin
  dmSize:=SizeOf(DeviceMode);
  dmBitsPerPel:=pel;
  dmPelsWidth:=widthscr;
  dmPelsHeight:=heightscr;
  dmDisplayFrequency:=frec;
  dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
  result:=False;
  if ChangeDisplaySettings(DeviceMode,CDS_TEST or CDS_FULLSCREEN) <> DISP_CHANGE_SUCCESSFUL
   then Exit;
  Result:=ChangeDisplaySettings(DeviceMode,CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL;
 end;
end;

А про "WindowState:=wsMaximized; // увеличиваем " ты правильно мыслиш, добавь еще к этому BorderStyle:=bsNone;

[!!!~VivO~!!!]

Огромнейшее СПАСИБО!!!

[Seriy]

Есть ещё вариант:
Form1.WindowsState := wsMaximized;
Form1.BorderStyle := baNone;

[Admin]

Сообщение от M.A.D.M.A.N.

Функции для смены разрешения экрана
function SetScreen:Boolean;
begin
with DeviceMode do begin
dmSize:=SizeOf(DeviceMode);
dmBitsPerPel:=32;
dmPelsWidth:=640;
dmPelsHeight:=480;
dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
result:=False;
if ChangeDisplaySettings(DeviceMode,CDS_TEST or CDS_FULLSCREEN) <> DISP_CHANGE_SUCCESSFUL
then Exit;
Result:=ChangeDisplaySettings(DeviceMode,CDS_FULLS CREEN) = DISP_CHANGE_SUCCESSFUL;
end;
end;

function RestoreScreen:Boolean;
begin
with DeviceMode do begin
dmSize:=SizeOf(DeviceMode);
dmBitsPerPel:=pel;
dmPelsWidth:=widthscr;
dmPelsHeight:=heightscr;
dmDisplayFrequency:=frec;
dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
result:=False;
if ChangeDisplaySettings(DeviceMode,CDS_TEST or CDS_FULLSCREEN) <> DISP_CHANGE_SUCCESSFUL
then Exit;
Result:=ChangeDisplaySettings(DeviceMode,CDS_FULLS CREEN) = DISP_CHANGE_SUCCESSFUL;
end;
end;

А про "WindowState:=wsMaximized; // увеличиваем " ты правильно мыслиш, добавь еще к этому BorderStyle:=bsNone;

Admin: Недельный бан за несоблюдение правил форума, пункт 2.8.