一个实用的Delphi屏幕拷贝程序的设计[3]

        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 ！

宁 波 市 游 河 巷 贾 学 杰