Команда "Определить мониторы"

[DenProx]

Доброго времени суток. Не подскажите, как можно выполнить команду "Определить" когда нужно узнать номер монитора ?

[MyLastHit]

Смысла в этом не вижу никакого... Как сделать это не знаю, но есть идея насчет искусственного воплощения этой задумки.
Прикрепляю.

[DenProx]

Смысла в этом не вижу никакого...

Зато я вижу

За пример Спасибо!! ))

[MyLastHit]

Ну идея такая:
У тебя есть

Screen.Width=screen.monitors[0].width+screen.monitors[1].width+screen.monitors[2].width+...

Т.е. у первого монитора длина в промежутке: 0->screen.monitors[0].width;
у второго screen.monitors[0].width->screen.monitors[1].width;
и так далее

Центры у них я думаю ты сможешь найти сам)

[DenProx]

MyLastHit

Суть понятна) но как я понял Номера, это заранее созданные формы, а если заранее не известно сколько мониторов будет?

[MyLastHit]

Известно!
i:=screen.MonitorCount - поместить в переменную i число мониторов.

Формы создавать динамически, либо можно взять, одну растянуть на все и раскидать на ней цифры. Все просто. Кстати так даже еще лучше

[DenProx]

Формы создавать динамически

Это мне больше нравится) Легче отцентровать будет.

[Человек_Борща]

Первичный монитор опр. вот этим свойством:

Сообщение от Delphi HELP

Indicates whether this is the primary monitor.

Delphi syntax:

property Primary: Boolean;

C++ syntax:

__property bool Primary = {read=GetPrimary, nodefault};

Description

Read Primary to determine whether a monitor is the primary monitor in a multi-monitor application. When Primary is true, the monitor is the primary monitor. The coordinates of other monitors are given in terms of the primary monitor.

var
 i:smallInt;
begin
For i:=0 to Screen.MonitorCount {-1?} do
begin
If Screen.Monitors[i].Primary then
{тралала}
end;
end;

ЗюЫю Суровые Челябинские программисты...... :D //Не воспринимать в серьёз, я просто шучу

[DenProx]

Кстати, вот с определением номера монитора это вы в точку)

я сначала поторопился, написал так:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    FormCount: integer;
    NextMon : Integer;
begin
FormCount := StrToInt(Edit1.Text);
for I := 0 to FormCount - 1 do
begin
Form2:= TForm2.Create(Application);
Form2.Label1.Caption := IntToStr(i+1);
Form2.Show;
if i>0 then
  begin
    Form2.Left:= screen.Monitors[i-1].Width+trunc(screen.Monitors[i].Width/2);
  end;
Form2.Timer1.Enabled := True;
end;

но при этом выявил Два недостатка, 1-й работает почему то только для двух мониторов, 2-й то что выводит просто по порядку на каждый монитор цыфру из цыкла i+1 ... даже если порядок мониторов будет изменен всеравно будет начинать от первого... по этому начал копать в другую сторону...

идея такая, узнать сколько мониторов, и на каждый монитор выводить динамически созданную форму с номером этого монитора, тогда думаю все норм должно быть.
Буду пока что пробывать, если есть предложения, буду рад

[DenProx]

вот по предыдущему примеру, набрасал такое:

procedure TForm1.Button2Click(Sender: TObject);
var
 i:smallInt;
begin
For i:=0 to Screen.MonitorCount -1 do
  begin
  If Screen.Monitors[i].Primary then
    begin
      Form2:= TForm2.Create(Application);
      Form2.Label1.Caption := IntToStr(i+1);
      Form2.Show;
    Form2.Timer1.Enabled := True;
    end;
  end;
end;

выводит на мониторе его реальный номер... не понятно, как на оставшиеся мониторы отослать формы, с нужными номерами...