이 예제는 Delphi7.0에서 디버깅되었습니다
//////////////////////////////////////////////////////////////////////////////////4 ////////////////////////////////4
(i) 프로젝트를 수립하십시오
새 항목-> 프로젝트-> MDI 응용 프로그램
(2) Childwin에 표시되는 캡처 된 이미지를 깨닫기 위해 MDI 서브 형태 - Childwin을 재 설계합니다.
Childwin Child Form에서 원래 Memo1 컨트롤을 제거하고 이미지 컨트롤 인 Image1.align = alclient를 추가하십시오.
image1.autosize = ture는 원래 크기가 표시되었음을 의미하고 Strech = false는 객체 상자에 따라 표시되지 않음을 의미합니다.
(iii) 주요 인터페이스 수정
1) 페이스트 및 새로운 메뉴, 도구 모음, ActionList와 관련된 항목 제거
2) Printersetupdialog1 및 Savedialog Control을 MainForm에 추가하십시오.
메뉴 항목 파일/인쇄 추가, 속성 이름은 FilePrinteM입니다.
메뉴 항목 파일/인쇄 설정, 속성 활성화 = false, 이름은 filePrintSet입니다.
메뉴 항목 편집/드로우 추가, 속성 활성화 = false;
메뉴 항목 편집/환경 설정을 추가하고 하위 메뉴를 생성하도록 설정하십시오.
메뉴 항목 편집/환경 설정/구성 추가;
메뉴 항목 편집/환경 설정/도구 모음 추가, 확인 = true, name = toolbaritem;
메뉴 이미지 추가;
메뉴 항목 이미지/캡처 데스크탑 추가;
메뉴 항목 이미지/캡처 영역을 추가합니다.
메뉴 항목 이미지/캡처 창 또는 컨트롤을 추가합니다.
메뉴 항목 이미지/캡처 아이콘을 추가하십시오
이미지 메뉴의 4 개의 메뉴 항목에 해당하는 도구 모음에 4 개의 도구 모음 버튼을 추가하십시오.
CPTDESTOP, CPTAREA, CPTWINDOWS, CPTICON;
이미지 메뉴 하의 네 가지 메뉴 항목의 동작 속성은 각각 위의 4 가지 동작에 해당합니다.
새로 추가 된 4 개의 도구 모음 버튼의 동작 속성은 각각 위의 4 가지 동작에 해당합니다.
3) 이동 구현은 Childwin을 주 단위의 인터페이스 사용으로 사용합니다.
인터페이스의 용도에 scrncpt를 추가하십시오.
tmainform의 공개에 정의 추가 :
아동 : tmdichild;
Capturenum : 정수;
파일 이름 : 문자열;
DefaultDirectory : 문자열;
4) tmainform에서 개인 기능 추가 : 절차 지연 (MSECS : 정수)
절차 tmainform.delay (MSECS : Integer);
var firstTickCount : longint;
시작하다
FirstTickCount : = GetTickCount;
반복하다
시작하다
Application.ProcessMessages; // Windows가 발생하는 이벤트에 응답 할 수 있도록 프로그램을 중단합니다.
끝;
(getTickCount-firstTickCount)> = longint (msecs));
끝;
5) [tmainform.createmdichild] 프로세스 수정 :
가변 var child를 제거하십시오 : tmdichild, 매개 변수를 추가하십시오
절차 tmainform.createmDichild (const 이름 : String; NewFile : Boolean);
시작하다
child : = tmdichild.create (응용 프로그램) {새 MDI 어린이 창 만들기}
child.caption : = 이름;
(NewFile이 아님) 및 (Name <> '') If를 시작하십시오
child.image1.picture.bitmap.loadfromfile (이름);
child.horzscrollbar.range : = child.image1.picture.width;
child.vertscrollbar.range : = child.image1.picture.height;
끝;
끝;