Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.12.10;
Скачать: [xml.tar.bz2];

Вниз

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

 
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


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

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


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

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



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.12.10;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.042 c
2-1163948920
windows
2006-11-19 18:08
2006.12.10
timer - handle - winapi


2-1164131457
Фесс
2006-11-21 20:50
2006.12.10
Работа со списком


1-1161944340
312kbps
2006-10-27 14:19
2006.12.10
PopupMenu and Handle


15-1164020434
seul
2006-11-20 14:00
2006.12.10
субд


2-1163846597
nop
2006-11-18 13:43
2006.12.10
Проблема с параметром color в XP





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский