多屏卡编程实例

多屏卡编程实例 对多屏卡进行编程与在一个单屏上编程没有大的区别，只是可访问的地址更大一些，另一点就是一定要按地址准确地访问，避免一幅图片被两个屏幕分割开来。下面是一个利用多屏卡进行编程的小例子，用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值为100）。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: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

Close;

end;

例子中还有两点需要说明的问题：1、为简便起见，例子中打开文件时使用的是系统提供的控件，因此首次打开文件时，对话框会自动居中（即位于两个屏幕的中间，一半在第一屏上，一半在第二屏上），这时只要将其拖回至第一屏，以后打开文件将不再会有影响。当然在实用的程序中还是应自己写一段打开文件的对话框。2、在用百页窗方式时，欲切换的图像的大小必与显示器的分辩率相一致，如当显示器分辩率为1024×768时，图像大小也必须为1024×768。

上述代码在Windows98/Windows2000、delphi5.0下编译通过。