각각의 폼을 모니터 별로 서로 다른 정보를 보여주기 위해서 작성해 보았는데
맞게 한것인지 아시는 분은 함 봐주세요.....
unit uMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TfrmMonitorMain = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmMonitorMain: TfrmMonitorMain;
implementation
uses uOneMonitor1,uTwoMonitor2,uThreeMonitor3;
{$R *.dfm}
procedure TfrmMonitorMain.Button1Click(Sender: TObject);
var
a : integer;
begin
frmOneMonitor.Show;
frmTwoMonitor.Show;
frmThreeMonitor.Show;
a := Screen.MonitorCount;
frmOneMonitor.Left := Screen.Monitors[0].Left; <<=== 이렇게 하니까 폼의 위치만 변하더라구요
frmOneMonitor.Top := Screen.Monitors[0].Top; 제 생각으로는 폼을 모니터로 보내주는 부분의
코딩을 어떻게 해야 하는지??????
frmTwoMonitor.Left := Screen.Monitors[1].Left;
frmTwoMonitor.Top := Screen.Monitors[1].Top;
frmThreeMonitor.Left := Screen.Monitors[2].Left;
frmThreeMonitor.Top := Screen.Monitors[2].Top;
end;
end.
|