| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

i-am-vladko ©   (2006-11-24 15:45:00) 

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

---

click   (2006-11-24 16:02:00) [1]

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

---

i-am-vladko   (2006-11-24 16:01:00) [2]

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

---

click   (2006-11-24 16:01:00) [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

---

i-am-vladko   (2006-11-24 16:01:00) [4]

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

---

RASkov   (2006-11-24 15:57:00) [5]

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;

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

---

Наверх