разрешение екрана

← →
i-am-vladko © (2006-11-24 15:45) [0]

как узнать, когда юзер меняет разрешение екрана?

← →
RASkov (2006-11-24 15:57) [1]

var OldWidth, OldHeight: Integer; ...... procedure FormCreate(); begin OldWidth:=Screen.Width; OldHeight:=Screen.Height; end; procedure TimerTimer(); begin if (Screen.Width<>OdlWidth)and(Screen.Height<>OldHeight) then ShowMessage("Поменяли"); OldWidth:=Screen.Width; OldHeight:=Screen.Height; end;

Но есть и сообщение виндовое и функция при смене, можно поймать.

← →
i-am-vladko © (2006-11-24 16:01) [2]

а что за сообщение и ф-ция?

← →
click (2006-11-24 16:01) [3]

Как узнать разрешение экрана?
GetSystemMetrics
Автор AntonSaburov
Взято с Vingrad.ru http://forum.vingrad.ru

TScreen.WIdth/Height
Автор Song
Взято с Vingrad.ru http://forum.vingrad.ru

Как установить разрешение экрана?
ChangeDisplaySettings

Автор cpu
Взято с Vingrad.ru http://forum.vingrad.ru

Как отследить изменения дисплея?

Для этого необходимо создать обработчик для перехвата сообщения WM_DISPLAYCHANGE. Применяется это в тех случаях, если Ваше приложение зависит от разрешения экрана (например, приложение работает с графикой).

Дале следует пример обработчика сообщения:

type TForm1 = class(TForm)
Button1: TButton;
private
procedure WMDisplayChange(var Message: TMessage); message WM_DISPLAYCHANGE;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMDisplayChange(var Message: TMessage);
begin
{Do Something here}
inherited;
end;

Взято с Исходников.ru http://www.sources.ru

спасибо!! разобрался )

← →
click (2006-11-24 16:02) [5]

гугль рулит по прежнему однако...

разрешение екрана Найти похожие ветки