Окно на полный экран

[apromix]

Делаю так:

unit ScreenMode;

interface

uses Windows;

function SetFullscreenMode: Boolean;

implementation

function SetFullscreenMode: Boolean;
var
  DeviceMode : TDevMode;
begin
  with DeviceMode do
  begin
    dmSize:=SizeOf(DeviceMode);
    dmBitsPerPel:=32;
    dmPelsWidth:=1024;
    dmPelsHeight:=768;
    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;

end.

Окно, как и положено, становится в полный экран, но частота монитора меняется и все начинает дрожать, работать невозможно. Как задать оптимальную частоту?

[Lime]

А стоит ли ширину и высоту константами определять? Мб лучше

Screen.Width
Screen.Height

?

[apromix]

Сообщение от Lime

А стоит ли ширину и высоту константами определять? Мб лучше

Screen.Width
Screen.Height

?

Насчет "Мб лучше" не понял?

Мне нужно, чтобы частота задавалась и оставалась приемлемой.

[mihali4]

http://pblog.ru/faq/delphi-questions...uestions59.php

[Marsel737]

apromix, а почему просто не написать:

windowstate:=wsmaximized;

???