盒子论坛 v2.1

抄的，自己研究。
----------------------------------------------------------------------
屏幕保护程序无非是扩展名换成了.SCR的可执行程序，它接受两种命令行参：
        -s      运行命令参数
        -c      配置命令参数
Windows通过向程序发-s命令行参数来启动程序。
要注意的是：程序的窗口是无边框和标题；窗口大小应与屏幕大小一样；还要注意窗口的事件的处理。
　

用Delphi 开发windows95 屏幕保护预览程序
北京上地信息中路3# 包伟
---- 大家都知道windows 屏幕保护程序的作用, 而且新的屏幕保护程序越来越漂
亮. 如果在win95 的桌面右键菜单选属性, 就弹出显示器设置界面, 有一个标签是
设置屏幕保护程序的.

---- 在该页的画面上, 有一个显示器图案, 如果你选择win95 所带的屏幕保护程序,
这个屏幕保护程序就会在这个小' 显示器' 上自动运行, 你可以直接看到运行
效果. 这功能大大方便了屏幕保护程序的选择, 这就是win95 对屏幕保护程序的
新增接口: 预览功能.

---- 目前大多数新推出的屏幕保护程序都支持这个接口.

---- 屏幕保护程序从它的诞生那时起, 在同一时刻只能运行一个, 不能多个同
时运行, 然而预览接口的推出, 使同时预览多个屏幕保护程序成为可能, 本文
将向读者介绍如何用Delphi 开发这样一个程序.

---- 1. 屏幕保护预览接口

---- 屏幕保护预览接口的使用很简单, 这是通过传给屏幕保护程序的命令行
参数来实现的, 该命令行参数格式为:

---- screensaver.exe /p #####

---- 其中##### 为一个有效的窗口句柄的10 进制表示.

---- 这个窗口我们可以称之为预览窗口.

---- 实际上, 支持预览接口的屏幕保护程序将自己的窗口创建为预览窗口的
子窗口来实现预览功能的.

---- 2. 画面布局

---- 我们这个程序的窗口分为 3 部分, 为倒' 品' 字形, 上左部分列出所有可用的屏
幕保护程序, 上右部分列出所有预览的屏幕保护程序, 下面当然是预览窗口
了.

---- 用Delphi 实现时, 首先在Form 里放2 个TPanel 组件, Panel1 对齐方式为顶部对齐,Panel2 为
撑满用户区, 再在Panel1 中放1 个TFileListBox 组件和一个TListBox 组件,FileListBox1 左对齐,
ListBox1 撑满用户区.

---- 这样, FileListBox1 为屏幕保护列表, ListBox1 为预览列表, Panel2 为预览窗口.

---- 3. 列出屏幕保护程序.

---- 将FileListBox1 的Mask 属性设为'*.scr', 这是屏幕保护程序的扩展名.

---- 在FormCreate 方法中将FileListBox1.directory 设为windows 系统目录GetSystemDirectory;

---- 4. 预览屏幕保护程序.

---- 在FileListBox1DblClick 方法中运行该屏幕保护程序, 并将Panel2 的窗口句柄传给它.

---- WinExec(pchar(FileListBox1.FileName + ' /p ' + inttostr(Panel2.handle)), SW_Show);

---- 运行程序, 怎么样? COOL!

---- 5. 增加一些新特性: 隐藏/ 显示/ 关闭.

---- 增加2 个函数: 用于更新ListBox1.

function EnumProc(
    h : HWND  ;// handle of child window
    l : integer// application-defined value
   ): boolean;stdcall;
var buf : array[0..255] of char;
begin
  GetWindowText(h, buf, sizeof(buf)- 1);
  if iswindowvisible(h) then
  Form1.ListBox1.items.add
(' ' +strpas(buf) + ' : ' + inttostr(h))
  else
  Form1.ListBox1.items.add
('-' +strpas(buf) + ' : ' + inttostr(h));
  Result := true;
end;

procedure TForm1.Fresh1;
begin
  ListBox1.clear;
  enumChildwindows(Panel2.handle,
TFNWndEnumProc(@enumproc), 0);
end;
---- 增加一个弹出菜单Popupmenu1, 3 个菜单项, 'Show, Hide, Close', 将ListBox1.popupmemu 指向
Popupmenu1.

---- Hide 的处理函数是:

procedure TForm1.Hide1Click(Sender: TObject);
var h : integer;
  s : string;
begin
  if ListBox1.itemindex = -1 then exit;
  s := Listbox1.items[ListBox1.itemindex];
  h := strtoint(copy(s, pos(':', s) + 1, length(s)));
  ShowWindow(h, SW_HIDE);
  Fresh1;
end;
Show 的处理函数是:
procedure TForm1.Show1Click(Sender: TObject);
var h : integer;
  s : string;
begin
  if ListBox1.itemindex = -1 then exit;
  s := Listbox1.items[ListBox1.itemindex];
  h := strtoint(copy(s, pos(':', s) + 1, length(s)));
  ShowWindow(h, SW_SHOW);
  Fresh1;
end;
Close 的处理函数是:
procedure TForm1.Close1Click(Sender: TObject);
var h : integer;
  s : string;
begin
  if ListBox1.itemindex = -1 then exit;
  s := Listbox1.items[ListBox1.itemindex];
  h := strtoint(copy(s, pos(':', s) + 1, length(s)));
  PostMessage(h, WM_QUIT, 0, 0);
  Fresh1;
end;
---- 本程序在Delphi 3.0 下调试通过, 应该能用Delphi 1.0 / 2.0 编译.

---- 完整程序如下:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl, ExtCtrls, Menus;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    FileListBox1: TFileListBox;
    ListBox1: TListBox;
    PopupMenu1: TPopupMenu;
    Hide1: TMenuItem;
    Show1: TMenuItem;
    Close1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FileListBox1DblClick(Sender: TObject);
    procedure Hide1Click(Sender: TObject);
    procedure Show1Click(Sender: TObject);
    procedure Close1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Fresh1;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
function EnumProc(
    h : HWND  ;// handle of child window
    l : integer// application-defined value
   ): boolean;stdcall;
var buf : array[0..255] of char;
begin
  GetWindowText(h, buf, sizeof(buf)- 1);
  if iswindowvisible(h) then
  Form1.ListBox1.items.add
(' ' +strpas(buf) + ' : ' + inttostr(h))
  else
  Form1.ListBox1.items.add
('-' +strpas(buf) + ' : ' + inttostr(h));
  Result := true;
end;

procedure TForm1.Fresh1;
begin
  ListBox1.clear;
  enumChildwindows(Panel2.handle,
TFNWndEnumProc(@enumproc), 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
var buf : array[0..256] of char;
begin
  GetSystemDirectory(buf, sizeof(buf) - 1);
  FileListBox1.directory := strpas(buf);
  ListBox1.popupmenu := Popupmenu1;
end;

procedure TForm1.FileList
Box1DblClick(Sender: TObject);
begin
  WinExec(pchar(FileListBox1.FileName
+ ' /p ' + inttostr(Panel2.handle)),
    SW_Show);
  Fresh1;
end;

procedure TForm1.Hide1Click(Sender: TObject);
var h : integer;
  s : string;
begin
  if ListBox1.itemindex = -1 then exit;
  s := Listbox1.items[ListBox1.itemindex];
  h := strtoint(copy(s, pos(':', s) + 1, length(s)));
  ShowWindow(h, SW_HIDE);
  Fresh1;
end;

procedure TForm1.Show1Click(Sender: TObject);
var h : integer;
  s : string;
begin
  if ListBox1.itemindex = -1 then exit;
  s := Listbox1.items[ListBox1.itemindex];
  h := strtoint(copy(s, pos(':', s) + 1, length(s)));
  ShowWindow(h, SW_SHOW);
  Fresh1;
end;

procedure TForm1.Close1Click(Sender: TObject);
var h : integer;
  s : string;
begin
  if ListBox1.itemindex = -1 then exit;
  s := Listbox1.items[ListBox1.itemindex];
  h := strtoint(copy(s, pos(':', s) + 1, length(s)));
  PostMessage(h, WM_QUIT, 0, 0);
  Fresh1;
end;

end.
//////////////////////////////////////////////////
    实际上Windows的屏幕保护程序也是一个可执行文件，只不过扩展名是 .SCR而不是.EXE。但是它也应满足一定的要求，以便提供给控制面板合适的接口。使得用户可以在显示器的“属性”中选择和配置它。通常它应满足以下要求：
    1、包含有关于自己的设置；
    2、提供关于自己的描述；
    3、能够区分是激活状态还是配置状态；
    4、不允许自己的拷贝同时运行；
    5、当键盘或鼠标有动作时退出程序。
    其中，“设置”与普通程序一样，只是要注意，只有在控制面板中配置它时“设置”窗口才会被激活。下面我们主要讨论剩下的四个问题。
一、首先，建立屏幕保护的主窗口。
    在Delphi的菜单上或工具条上选择"New Form"建立一个"Blank Form"在Object Inspector中将它的属性配置为：
BorderIcon []
biSystemMenu False
biMinimize False
biMaximize False
BorderStyle bsNone
Color clBlack
FormStyle fsStayOnTop
name Sav_Form
Visible False
从System控件板中选择一个"Timer"控件，设置它的属性为：
Enabled Ture
Interval 2000
Name Timer1
Tag 0
    在本例中保护屏幕上显示照片，所以要在窗口上再加一个Image将它的AuotoSize设为Ture,Visible设为False，双击装入你想显示的图片，本例采用《计算机世界》1998年49期中介绍的方法，使BMP图片以垂直交错的方法显示，代码如下：（详情见《计算机世界》1998年49期“Delphi中的图形显示技巧”）
private
{ Private declarations }
procedure ShowPic();
.....
procedure TSav_Form.ShowPic(Sender: TObject);
var
newbmp:TBitmap;
i,j,bmpheight,bmpwidth:integer;
begin
newbmp:= TBitmap.Create;
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
i:=0;
while i< =bmpheight do
begin
j:=i;
while(j >0)do
begin
newbmp.Canvas.CopyRect(Rect(0,j-1,bmpwidth,j),image1.
Canvas,Rect(0,bmpheight-i+j-1,bmpwidth,bmpheight-i+j));
newbmp.Canvas.CopyRect(Rect(0,bmpheight-j,bmpwidth,
bmpheight-j+1),image1.Canvas,Rect(0,i-j,bmpwidth,i-j+1));
j:=j-2;
end;
Sav_Form.Canvas.Draw(20,10,newbmp);
i:=i+2;
end;
newbmp.free;
end;
    当然，你也可以采用别的方法显示，或者将屏幕设计成做你想做的任何模样，只要在定时器的响应时间中调用你的函数就行了。本例，在定时器的OnTimer消息处理程序中调用ShowPic();
type
......
procedure Timer1Timer(Sender: TObject);

procedure TSav_Form.Timer1Timer(Sender: TObject);
begin
ShowPic;
end;
    剩下的工做就是让设计好的Sav_Form能覆盖整个屏幕，并隐藏鼠标。点击Sav_Form在Object Inspector中选择Events标签，双击OnActive消息为它加上消息处理函数FormActivate(Sender: TObject);添加代码如下：
trype
procedure FormActivate(Sender: TObject);
procedure TSav_Form.FormActivate(Sender: TObject);
begin
WindowsState:=wsMaximized; //覆盖屏幕；
ShowCursor(false); //隐藏光标；
end;
二、监测键盘和鼠标
    保护屏幕作好后，就要监测键盘和鼠标。方法是为Application.OnMessage事件建立一个句柄，检测中断屏幕保护的条件是否满足。在Sav_Form的Private中加入以下代码：
procedure Detect(var Msg:TMsg;var Handled:boolean);
在implementation中加入以下代码：
procedure TSav_Form.Detect(var Msg:TMsg;
var Handled:boolean);
Var
Done:boolean;
begin
Done:=false;
if （Msg.message=WM_KEYDOWN or
Msg.message=WM_MOUSEMOVE) then
done:=true;
if done then
begin
close;
end;
end;
---- 在为窗口的OnShow事件加上处理函数。在函数中加上以下代码：
procedure TSav_Form.FormShow(Sender: TObject);
begin
Application.OnMessage:=Detect;
// ShowCursor(false);
end;
三、提供关于自己的描述
    你可以用Delphi中的{$D text} 定义出现在“显示”“属性”中显示的你的屏幕保护程序的名称，$D参数直接将text插入可执行文件入口的描述模块(Description Module) 为了让控制面板认识你的描述，必须加入"SCRNSAVE"。选择项目文件在{$R *.RES}后加入以下代码：
{$D SCRNSAVE My Screen Saver}"My Screen Saver"将显示在控制面板中的“显示”“属性”中。
四、激活状态和设置状态，以及屏蔽多拷贝的运行
    Windows在两种条件下运行屏幕保护程序，1、当屏幕保护的时间设置到时则激活；2、当屏幕保护被设置时激活。为了区分这两种状态Windows在命令后加了参数， "/s"表示是激活状态，"/c"表示是设置状态。因此，我们的屏幕保护程序也必须区分参数以便做不同的处理。
    屏幕保护程序和其他程序不同的是，它不允许自己的拷贝同时运行。hPrevInst是一个Delphi定义的全局变量，它指向当前程序前一个拷贝，如果该变量为0，则表示当前程序是唯一的实例。我们可以利用这个变量屏蔽多拷贝的运行。
    以下的代码实现了区分激活状态和设置状态，以及屏蔽多拷贝的运行的功能。（该代码在项目文件中）
begin
if hPrevInst = 0 then
begin //如果当前实例是唯一实例
if (ParamCount > 0) and
(UpperCase(ParamStr(1)) = '/S') then
begin
//如果是激活状态
Application.Initialize;
Application.CreateForm(TScrnFrm, ScrnFrm);
end else
begin
//可以在这里加入你的配置代码
end;
Application.Run;
end;
end.
五、安装
---- 最后，将程序编译、链接后拷贝到Windows目录下，将程序的扩展名改为.SCR即可在控制面板中选择"My Screen Saver"了。以上代码均在Delphi4.0中编译通过
///////////////////////////////////////////////////
　

一个实用的Delphi 屏幕拷贝程序的设计
宁波市游河巷贾学杰
---- Borland 公司（现改名为INPRISE 公司）的DELPHI 是当前最为方便的Windows 程序设
计工具之一。许多人以为DELPHI 是作为数据库开发工具出现的，其实用DELPHI
可以以极快的速度开发出高效的Windows 程序。

---- 现在我们就用DELPHI 来编写一个实用的屏幕拷贝程序。瞧瞧，下面的画面
就是所编程序运行后进行区域屏幕拷贝的例子，还不错吧！

---- Borland 公司的天才设计师们用画布（Tcanvas）对象封装了Windows 的大部分图形
输出功能，这使得我们可以通过他以更直观的方式和Windows 的屏幕打交道，
而不必关心令人头疼的Windows API 函数。下面的一小段程序就可以实现整个
屏幕的图象拷贝了。

  var     //变量声明
  Fullscreen:Tbitmap;
  FullscreenCanvas:TCanvas;
  dc:HDC;
  //------------------------------------------------------------
  DC := GetDC (0);      //取得屏幕的 DC，参数0指的是屏幕
  FullscreenCanvas := TCanvas.Create;    //创建一个CANVAS对象
  FullscreenCanvas.Handle := DC;        //将屏幕的DC赋给HANDLE
  Fullscreen.Canvas.CopyRect
  (Rect (0, 0, screen.Width,screen.Height),
  fullscreenCanvas,
  Rect (0, 0, Screen.Width, Screen.Height));
                            //把整个屏幕复制到BITMAP中
  FullscreenCanvas.Free;          //释放CANVAS对象
  ReleaseDC (0, DC);              //释放DC
  //SCREEN对象是DELPHI预先定义的屏幕对象，直接使用就行了。

---- 看了以上代码，你就会发现用DELPHI 写屏幕拷贝程序的确很简单。

---- 当然要写一个实用的屏幕拷贝程序，光靠上述代码是不够的，下面讲一
下主要的编程思路：

---- 1. 全屏幕拷贝的实现

---- 首先隐藏拷屏程序，延长一定时间后，利用上述的程序即可实现屏幕的
拷贝。

---- 2. 区域拷贝的实现

---- 要实现区域拷贝要用个小技巧，首先调用全屏幕拷贝程序把整个屏幕拷
贝下来，然后把拷贝下来的图象显示在屏幕上，之后就可以让用户在上面
选择需要的区域，最后才将用户选定的区域复制下来。

---- 编程实现：

---- 1. 首先用DELPHI3 开一个工程。

---- 2. 在FORM 上放置一个TPANEL 元件，设置ALIGN=ALTOP，再选部件条ADDITIONAL 上
的TSCROLLBOX，放到FORM 上，设置ALIGN=ALCLIENT，然后在SCROLLBOX 上放置一个
TIMAGE 对象。

---- 3. 在PANEL 上放置4 个按钮，分别为FULL SCREEN，REGIN，SAVE，EXIT。

---- 4. 容易干的先干，在EXIT 按钮的CLICK 事件里写下代码

procedure TForm1.ExitClick(Sender: TObject);
begin
    close;
end;
---- 5. 接着是实现全屏幕拷贝了，在FROM 上放置一个记时器TTIMER，ENABLED 设为
FALSE，INTERVAL 设为500，也就是半秒钟激活一次。双击TIMER 部件，写上如下的
代码。

procedure TForm1.Timer1Timer(Sender: TObject);
var
Fullscreen:Tbitmap;
FullscreenCanvas:TCanvas;
dc:HDC;
begin
    timer1.Enabled:=false;   //取消时钟
    Fullscreen := TBitmap.Create;      //创建一个BITMAP来存放图象
    Fullscreen.Width := screen.width;
    Fullscreen.Height := screen.Height;
    DC := GetDC (0);   //取得屏幕的 DC，参数0指的是屏幕
    FullscreenCanvas := TCanvas.Create; //创建一个CANVAS对象
    FullscreenCanvas.Handle := DC;

Fullscreen.Canvas.CopyRect
(Rect (0, 0, screen.Width, screen.Height), fullscreenCanvas,
Rect (0, 0, Screen.Width, Screen.Height));
            //把整个屏幕复制到BITMAP中
    FullscreenCanvas.Free;          //释放CANVAS对象
    ReleaseDC (0, DC);              //释放DC
    //*******************************
    image1.picture.Bitmap:=fullscreen;//拷贝下的图象赋给IMAGE对象
    image1.Width:=fullscreen.Width;
    image1.Height:=fullscreen.Height;
    fullscreen.free;                //释放bitmap
    form1.WindowState:=wsNormal;    //复原窗口状态
    form1.show;                     //显示窗口
    messagebeep(1);  //BEEP叫一声，报告图象已经截取好了。
end;
---- 6. 接下去FULLSCREEN 按钮上的代码就很简单了。

procedure TForm1.FullscreenClick(Sender: TObject);
begin
    form1.WindowState:=wsMinimized; //最小化程序窗口
    form1.hide;                     //把程序藏起来
    timer1.enabled:=true;           //打开记时器
end;
---- 7. 拷贝到了图象当然要存起来了，SAVE 按钮就有了用武之地，我们写下如
下代码。

procedure TForm1.Save1Click(Sender: TObject);
begin
  if savedialog1.Execute then
    begin
     form1.Image1.Picture.SaveToFile(savedialog1.filename)
    end;
end;
---- 8. 下面是区域拷贝的实现。再New 一个FORM,BorderStype 设为 bsNone, 这样能够显示
为全屏幕，上面放置一个TIMAGE 部件，ALIGN 设为ALCLIENT，另外放置一个TTIMER
部件，TIMER 部件的程序跟上面的很象，因为它首先要实现的是全屏幕的拷
贝。

procedure TForm2.Timer1Timer(Sender: TObject);
var
Fullscreen:Tbitmap;
FullscreenCanvas:TCanvas;
dc:HDC;
begin
    timer1.Enabled:=false;
    Fullscreen := TBitmap.Create;
    Fullscreen.Width := screen.width;
    Fullscreen.Height := screen.Height;
    DC := GetDC (0);
    FullscreenCanvas := TCanvas.Create;
    FullscreenCanvas.Handle := DC;
Fullscreen.Canvas.CopyRect (Rect
(0, 0, screen.Width, screen.Height), fullscreenCanvas,
     Rect (0, 0, Screen.Width, Screen.Height));
    FullscreenCanvas.Free;
    ReleaseDC (0, DC);
    image1.picture.Bitmap:=fullscreen;
    image1.Width:=fullscreen.Width;
    image1.Height:=fullscreen.Height;
    fullscreen.free;
    form2.WindowState:=wsMaximized;
    form2.show;

    messagebeep(1);
    foldx:=-1;
    foldy:=-1;
    image1.Canvas.Pen.mode:=pmnot; //笔的模式为取反
    image1.canvas.pen.color:=clblack; //笔为黑色
    image1.canvas.brush.Style:=bsclear; //空白刷子
    flag:=true;
end;
---- 9.TIMAGE 部件上有两个事件的程序需要编写，一个是ONMOUSEDOWN，另一个
是ONMOUSEMOVE。

---- 10. 可以回头看看区域拷贝的思路，此时需要作区域拷贝的屏幕我们已经
得到，也显示在屏幕上了，按下鼠标左键是区域的原点，此后移动鼠标，将
有一个矩形在原点和鼠标之间，它会随着鼠标的移动而变化，再次按下鼠
标的左键，此时矩形所包含的区域就是我们要得到的图象了。

---- 11. 所以MOUSEDOWN 有两次响应的处理，见以下程序。

procedure TForm2.Image1MouseDown
(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
width,height:integer;
newbitmap:Tbitmap;
begin
  if (trace=false) then  // TRACE表示是否在追踪鼠标
   begin      //首次点击鼠标左键，开始追踪鼠标。
      flag:=false;
   with image1.canvas do
      begin
        moveTo(foldx,0);
        LineTo(foldx,screen.height);
        moveto(0,foldy);
        lineto(screen.width,foldy);
      end;
   x1:=x;
   y1:=y;
   oldx:=x;
   oldy:=y;
   trace:=true;
   image1.Canvas.Pen.mode:=pmnot;     //笔的模式为取反
        //这样再在原处画一遍矩形，相当于擦除矩形。
   image1.canvas.pen.color:=clblack;  //笔为黑色
   image1.canvas.brush.Style:=bsclear;//空白刷子
   end
  else
   begin       //第二次点击，表示已经得到矩形了，
               //把它拷贝到FORM1中的IMAGE部件上。
    x2:=x;
    y2:=y;
    trace:=false;
    image1.canvas.rectangle(x1,y1,oldx,oldy);
    width:=abs(x2-x1);
    height:=abs(y2-y1);
    form1.image1.Width:=Width;
    form1.image1.Height:=Height;

    newbitmap:=Tbitmap.create;
    newbitmap.width:=width;
    newbitmap.height:=height;
newbitmap.Canvas.CopyRect
(Rect (0, 0, width, Height),form2.image1.canvas,
     Rect (x1, y1,x2,y2)); //拷贝
    form1.image1.picture.bitmap:=newbitmap; //放到FORM的IMAGE上
    newbitmap.free;
    form2.hide;
    form1.show;
  end;
end;

---- 12.MOUSEMOVE 的处理就是在原点和鼠标当前位置之间不断地画矩形和擦
除矩形。

procedure TForm2.Image1MouseMove
(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if trace=true then   //是否在追踪鼠标？
    begin             //是，擦除旧的矩形并画上新的矩形
     with image1.canvas do
      begin
       rectangle(x1,y1,oldx,oldy);
       Rectangle(x1,y1,x,y);
       oldx:=x;
       oldy:=y;
      end;
    end
  else if flag=true then  //在鼠标所在的位置上画十字
      begin
       with image1.canvas do
        begin
        moveTo(foldx,0);          //擦除旧的十字
        LineTo(foldx,screen.height);
        moveto(0,foldy);
        lineto(screen.width,foldy);
        moveTo(x,0);              //画上新的十字
        LineTo(x,screen.height);
        moveto(0,y);
        lineto(screen.width,y);
        foldx:=x;
        foldy:=y;
        end;
      end;
end;

---- 13. 好了，让我们回过头来编写REGION 按钮的代码。

procedure TForm1.RegionClick(Sender: TObject);
begin
form1.Hide;
form2.hide;
form2.Timer1.Enabled:=true;
end;
---- 好了，我们终于胜利完工了，赶快运行一遍，把漂亮的屏幕拷下来！瞧
DELPHI 不仅是一个优秀的数据库开发工具，而且是一个优秀的编写WINDOWS
程序的好帮手。让我们不禁赞叹：伟大的DELPHI ！
----------------------------------------------
-

作者：

qiling023 (qiling)	★☆☆☆☆	-
	普通会员

2003/5/5 21:51:44

2楼：

123朋友很谢谢你
----------------------------------------------
-

作者：

327821 (dove)	★☆☆☆☆	-
	盒子活跃会员

2006/8/29 13:34:24

3楼：

不错
----------------------------------------------
-Show me the way!!

作者：

shuaigeyitiao (帅哥一条虫)	★☆☆☆☆	-
	普通会员

2006/10/27 13:08:45

4楼：

高
----------------------------------------------
delphi爱好者

作者：

blade9 (feifa)	★☆☆☆☆	-
	普通会员

2006/10/30 23:12:33

5楼：

好多 ~-~||||下回来慢慢看呵呵~~
----------------------------------------------
-

信息

登陆以后才能回复