当前位置:首页 » 软件开发
开发技术指南» 文章正文
    引言: unit jisuanqiU; interface uses
 

 

    摘要:我这有一个对当前页面的设置代码var mmm,nnn,aaa:olevariant;begin mmm:=wdline; nnn:=1; aaa:=wdfieldpage; wordapp.activewindow.activepane.view.seekview :=wdseekcurrentpageheader ; wordapp.selection.move(mmm,nnn); wordap......
    摘要:文/jorge如上述,本程序分为了接口层和算法层。上述全局变量和常量,基本都属于接口层的内容。下面,来看接口层的具体实现。其工作的第一步,是要捕获扫雷窗口并取得其信息。这由函数getminewindow来完成:=================================================================//试图取得可用的扫雷窗口,返回值表示是否成功。若成功,则全......


计算器(加了个小数点)。。。

unit jisuanqiu;

uses 【程序编程相关:MSN / QQ 中的动画表情 在Del

interface 【推荐阅读:一个很实用的Ehlib排序函数,适合AD

  windows, messages, sysutils, variants, classes, graphics, controls, forms, 【扩展信息:Authorware UCD 开发大揭秘

  dialogs, stdctrls, extctrls;

type

  tform1 = class(tform)

    button1: tbutton;

    button2: tbutton;

    button3: tbutton;

    button4: tbutton;

    button5: tbutton;

    button6: tbutton;

    button7: tbutton;

    button8: tbutton;

    button9: tbutton;

    button10: tbutton;

    button11: tbutton;

    button12: tbutton;

    button13: tbutton;

    button14: tbutton;

    button15: tbutton;

    panel1: tpanel;

    edit1: tedit;

    button17: tbutton;

    button16: tbutton;

    button18: tbutton;

    procedure button1click(sender: tobject);

    procedure button2click(sender: tobject);

    procedure button3click(sender: tobject);

    procedure button4click(sender: tobject);

    procedure button5click(sender: tobject);

    procedure button6click(sender: tobject);

    procedure button7click(sender: tobject);

    procedure button8click(sender: tobject);

    procedure button9click(sender: tobject);

    procedure button10click(sender: tobject);

    procedure button12click(sender: tobject);

    procedure button13click(sender: tobject);

    procedure button14click(sender: tobject);

    procedure button15click(sender: tobject);

    procedure button17click(sender: tobject);

    procedure button16click(sender: tobject);

    procedure button11click(sender: tobject);

    procedure formshow(sender: tobject);

    procedure button18click(sender: tobject);

  private

    { private declarations }

  public

    { public declarations }

  end;

var

  form1: tform1;

 // num,num1,num2:integer;

  s,j,i,s_number,s_type,s_characterlast:string;

implementation

{$r *.dfm}


...   下一页
    摘要:文/jorge有了前述的数据,编写接口层似乎已经不成问题了。现在来构思一下程序运行的过程。说句实话,那种对于某种变化实时作出响应的程序,一般都用什么方法编成,本人并不很了解,推测无非是两种思想,一种是用一个线程不断地对这个变化进行检查,发现改变则动作;另一种是注册一个类似于钩子的东西,用回调函数来处理。无疑第二种方式要更节省系统资源,只是难在本人对windows的钩子掌握的还一塌糊涂。若换了个高手......
» 本期热门文章:

©2000-2007 All Rights Reserved. 最佳浏览:1024X768 MSIE