вывести разрещение монитора. delphi

rHyme · 26.11.2010

вывести разрещение монитора. delphi

как узнать текущее разрешение монитора и вывести его например на Label, знаю что вопрос дурацкий, гуглил, говорят Screen.Width и Screen.Hight а куда это писать и как заставить вывести, я не знаю)
Заранее спасибо.

ps Сори за ламерский вопрос.

niello · 26.11.2010

Код:

Label1.Caption := 'Ширина - ' + IntToStr(Screen.Width) + '; Высота - ' + InToStr(Screen.Height)+'.';

AS0kol · 26.11.2010

niello сказав(ла):
Код:

Label1.Caption := 'Ширина - ' + IntToStr(Screen.Width) + '; Высота - ' + InToStr(Screen.Height)+'.';

Этот код выведет размеры десктопа, а не монитора. Если у меня два монитора по 1280х1024, то код выкатит 2560х1024. У TScreen есть свойство Monitors, лучше его дергать.

Код:

var
  lMonitorIndex: Integer;
begin
  lMonitorIndex := 0;
  with Screen.Monitors[lMonitorIndex] do begin
    labelResolutin.Caption := Format('Monitor%d resolution is %dx%d', [lMonitorIndex,  Width,  Height]);
  end;
end;

rHyme · 26.11.2010

Спасибо большое, все отлично работает!

вывести разрещение монитора. delphi

rHyme

niello

AS0kol

rHyme