多屏卡编程实例.docx

多屏卡编程实例
多屏卡编程实例
多屏卡编程实例
对多屏卡进行编程与在一个单屏上编程没有大的区分，只是可访问的地址更大一些，另一点就是肯定要按地址精确地访问，避开一幅图片被两个屏幕分割

多屏卡编程实例
多屏卡编程实例
多屏卡编程实例
对多屏卡进行编程与在一个单屏上编程没有大的区分，只是可访问的地址更大一些，另一点就是肯定要按地址精确地访问，避开一幅图片被两个屏幕分割开来。下面是一个利用多屏卡进行编程的小例子，用delphi实现。在这个例子中，用到两个显示屏，以2×1排列，这样第一屏幕的地址为（0，0，768，1024），而其次个屏的地址为（0，1024，768，2048）。在这个例子中，第一个屏幕为限制界面，其次个屏幕为显示界面。在第一个屏幕可以打开一个图片，然后在其次个屏幕显示这个图片，也可以采纳百叶窗的方式将其次个屏幕上原有的图片切换为第一屏中的`图片。
首先创建一个工程，在Form1上添加一个TPanel控件（Panel1）,Panel1上再加一个TImage控件（Image1）,另外Form1上再添加四个TBitBtn控件（BitBtn1、BitBtn2、BitBtn3、BitBtn4,Caption值分别为"打开文件"、"干脆写屏"、"百叶窗"、"退出"，其中BitBtn3的Enabled的值为False）、一个TLabel控件（Label1,Caption为"窗格数量"）、一个TEdit控件（Edit1,Text为"30"）、一个图形文件打开对话框（OpenPictureDialog1）和一个TTimer控件（Timer1,Interval值为101）。Form1的最终界面见图1。


Form1是第一个屏幕上的限制界面，对于其次个屏幕上的显示界面应再创建一个新的窗体Form2,上面添加一个TImage控件（Image1，Height值为768，Width值为1024），Form2的AutoSize属性设为True, BorderStyle属性设为bsNone。

Unit1的说明部分如下：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, ExtDlgs;
type
TForm1 = class(TForm)
Panel1: TPan