Форум: "Начинающим";
Текущий архив: 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