Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[10510] 박지훈.임프님께서 함 봐주세요.....
모야 [shinsj21] 895 읽음    2006-02-18 09:25
각각의 폼을 모니터 별로 서로 다른 정보를 보여주기 위해서 작성해 보았는데
맞게 한것인지 아시는 분은 함 봐주세요.....

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.

+ -

관련 글 리스트
10510 박지훈.임프님께서 함 봐주세요..... 모야 895 2006/02/18
10511     Re:박지훈.임프님께서 함 봐주세요..... 박지훈.임프 988 2006/02/18
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.