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
[10505] 박지훈.임프님께서 알려주신 내용으로 함해봤는데..맞는지 꼭 확인해주세요..
모야 [shinsj21] 854 읽음    2006-02-17 12:00
제가 메인 폼에서 버튼을 클릭하면 폼을 show 하고 각각 모니터로 보내도록 했는데 맞는지 봐주세요..
제가 실행시켜보니까..에러가 나더라구요....

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.

+ -

관련 글 리스트
10505 박지훈.임프님께서 알려주신 내용으로 함해봤는데..맞는지 꼭 확인해주세요.. 모야 854 2006/02/17
10506     Re:박지훈.임프님께서 알려주신 내용으로 함해봤는데..맞는지 꼭 확인해주세요.. 최도선 1053 2006/02/17
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.