莫雷利亚:delphi while做出的程序步进控制
来源:百度文库 编辑:九乡新闻网 时间:2024/04/30 11:27:09
delphi while做出的程序步进控制webbrowser (2010-04-11 09:31) [编辑] [删除] 标签: delphi while 网页游戏 webbrowser 分类: 网络控件
如果有 "代码文件" 和 "窗体文件", 四步走:
1、新建工程(一般是 VCL Forms Application);
2、进入代码页(一般是 Unit1), 全选, 把 "代码文件" 贴入;
3、在窗体设计状态下(Design), 通过右键菜单或 Alt+F12 进入 "窗体代码" 页, 全选, 把 "窗体文件" 贴入;
4、运行!
如果只有 "代码文件", 五步走:
1、新建工程(一般是 VCL Forms Application);
2、从源码中看看用到了哪些控件, 要添加(一般都使用了默认名称);
3、看看用到了哪些事件, 从 Object Inspector 窗口的 Events 页逐个添加;
4、进入代码页(一般是 Unit1), 全选, 把 "代码文件" 贴入;
5、运行!
如果 "代码文件" 开始是 "program ..." 而不是 "unit ...", 要建立 "Console Application" 测试.
近日想做一个打开网页游戏的程序,要对webbrowser打开的网页进行精细化控制,主要是循环打开指定的网页,然后做出相应的操作,完成后再打开下一个网页,所以有了这个步进方式控制的想法,做了一个小例子,记录一下。 这个小程序实现的是: 点击开始后,逐步显示1~100的数字,但只有在点击步进按钮后,才会一步一步向下走,如图所示。
- unit Unit1;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls;
- type
- TForm1 = class(TForm)
- edt1: TEdit;
- btn1: TButton;
- btn2: TButton;
- btn3: TButton;
- procedure FormCreate(Sender: TObject);
- procedure btn1Click(Sender: TObject);
- procedure btn2Click(Sender: TObject);
- procedure btn3Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- bujin:boolean; //步进控制
- tingzhi:boolean; //停止,没有它,程序关闭时会没有响应
- implementation
- {$R *.dfm}
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- tingzhi:=False;//初始化为不停止
- end;
- procedure TForm1.btn1Click(Sender: TObject);
- var
- i : Integer;
- begin
- i:=0;
- while (i <= 100) and not (tingzhi) do //循环显示一个1~100的数字
- begin
- Application.ProcessMessages;
- Sleep(100); //动画效果
- i:=i + 1;
- edt1.Text :=IntToStr(i);
- bujin:=True;
- while ((bujin) and not (tingzhi)) do Application.ProcessMessages; //步进响应
- end;
- end;
- procedure TForm1.btn2Click(Sender: TObject);
- begin
- bujin:=False;
- end;
- procedure TForm1.btn3Click(Sender: TObject);
- begin
- tingzhi:=True;
- end;
- end.
- object Form1: TForm1
- Left = 562
- Top = 319
- Width = 176
- Height = 120
- Caption = 'Form1'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object edt1: TEdit
- Left = 56
- Top = 8
- Width = 49
- Height = 21
- TabOrder = 0
- Text = '0'
- end
- object btn1: TButton
- Left = 8
- Top = 43
- Width = 41
- Height = 23
- Caption = #24320#22987
- TabOrder = 1
- OnClick = btn1Click
- end
- object btn2: TButton
- Left = 64
- Top = 43
- Width = 41
- Height = 23
- Caption = #27493#36827
- TabOrder = 2
- OnClick = btn2Click
- end
- object btn3: TButton
- Left = 120
- Top = 43
- Width = 41
- Height = 23
- Caption = #20572#27490
- TabOrder = 3
- OnClick = btn3Click
- end
- end
如果有 "代码文件" 和 "窗体文件", 四步走:
1、新建工程(一般是 VCL Forms Application);
2、进入代码页(一般是 Unit1), 全选, 把 "代码文件" 贴入;
3、在窗体设计状态下(Design), 通过右键菜单或 Alt+F12 进入 "窗体代码" 页, 全选, 把 "窗体文件" 贴入;
4、运行!
如果只有 "代码文件", 五步走:
1、新建工程(一般是 VCL Forms Application);
2、从源码中看看用到了哪些控件, 要添加(一般都使用了默认名称);
3、看看用到了哪些事件, 从 Object Inspector 窗口的 Events 页逐个添加;
4、进入代码页(一般是 Unit1), 全选, 把 "代码文件" 贴入;
5、运行!
如果 "代码文件" 开始是 "program ..." 而不是 "unit ...", 要建立 "Console Application" 测试.
delphi while做出的程序步进控制
成本控制的程序
控制Delphi的窗口显示位置的方法1
3轴步进电机控制芯片-TMC428的原理以应用
步进电机的基本原理
while的用法
转帖:DELPHI编写服务程序总结二
Delphi控制Excel自动生成报表
delphi
详细解读Windows 7下的"程序运行控制"
步进电机的选用计算方
伺服电机和步进电机的区别
delphi 2010 fastMM 内存泄露使用方法 - SUNSTONE的Delphi...
Delphi中PING的实现
20110508内部控制审计程序
内部控制审计程序52
内部控制审计程序1
自制小型木工车床--步进电机的应用,小型木工车床,步进电机,有机玻璃,模型部件-中电网
收录最全的WM系统程序与控制面板的各项命令参数(附中...
Delphi2010中DataSnap高级技术(6)—加强服务程序对访问者的控制能力 - ...
学习MISRAC之五:准确的程序流控制——(转)
while(1)
while与do while循环
DELPHI中操作ACCESS的技巧1