Главная страница
    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.039 c
2-1163881777
Ingwar
2006-11-18 23:29
2006.12.10
Автоскролинг в ListBox e


15-1163765456
Elen
2006-11-17 15:10
2006.12.10
Нужна библиотека материалов


1-1162197747
Andrewk88
2006-10-30 11:42
2006.12.10
Подключение dll созданной в VS2k3


6-1153662868
prim_v
2006-07-23 17:54
2006.12.10
изменить IP


15-1163861579
vasIzmax
2006-11-18 17:52
2006.12.10
Алгоритм, Футбол, Тотализатор





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский