百分求救
请高手指教：用delphi播放flash做成触摸屏，怎么控制鼠标在一个页面停留超过一段时间（比如1分钟）自动返回主页？请高手给出具体例子！——万分感谢！ 问题点数：100、回复次数：8Top
1 楼godear（）回复于 2005-05-09 09:04:49 得分 0
使用timer处理不行吗?, flash.onenter timer.enable:=true; timer.ontimer goto ???? timer.enable:=false; timer的时长设为1分钟Top
2 楼fengqing7（风清）回复于 2005-05-09 09:07:21 得分 0
水啊Top
3 楼shiyh1128（）回复于 2005-05-09 14:24:22 得分 0
godear and 高手
unit SDFrm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, ShockwaveFlashObjects_TLB, ExtCtrls,inifiles;
type
TSDForm = class(TForm)
ShockwaveFlash1: TShockwaveFlash;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure PicClose(var Msg: TMsg; var Handled: boolean);
end;
var
SDForm: TSDForm;
s_path:string;
MousePos:Tpoint;
ini_fl:Tinifile;
implementation
{$R *.dfm}
procedure TSDForm.FormCreate(Sender: TObject);
begin
GetDir(0,s_path);
ini_fl:=Tinifile.Create(s_path+'\source.ini');
Timer1.Enabled:=false;
Timer1.Interval:=strtoint(ini_fl.ReadString('Time','TM','600000'));
Timer1.Enabled:=true;
ShockwaveFlash1.Movie:=s_path+'\sd_movie.swf';
GetCursorPos(mousepos);
end;
procedure TSDForm.PicClose(var Msg: TMsg; var Handled: boolean);
var
x:integer;
begin
case msg.message of
WM_MOUSEMOVE:
begin
x:=Abs(loWord(Msg.lParam)-MousePos.x+self.Left);
if (x>0) then
begin
Timer1.Enabled:=false;
Timer1.Enabled:=true;
end;
End;
WM_LBUTTONDOWN: begin //按下鼠标左键
Timer1.Enabled:=false;
Timer1.Enabled:=true;
end;
WM_MBUTTONDOWN: //按下鼠标中键
begin
Timer1.Enabled:=false;
Timer1.Enabled:=true;
end;
WM_RBUTTONDOWN: //按下右键
begin
Timer1.Enabled:=false;
Timer1.Enabled:=true;
end;
WM_KEYDOWN:
begin
Timer1.Enabled:=false;
Timer1.Enabled:=true;
end;
WM_KEYUP:
begin
Timer1.Enabled:=false;
Timer1.Enabled:=true;
end;
WM_SYSKEYDOWN:
begin
Timer1.Enabled:=false;
Timer1.Enabled:=true;
end;
WM_SYSKEYUP:
begin
Timer1.Enabled:=false;
Timer1.Enabled:=true;
end;
end;
end;
procedure TSDForm.Timer1Timer(Sender: TObject);
begin
ShockwaveFlash1.Stop;
ShockwaveFlash1.Movie:='C:\sd_movie.swf';
ShockwaveFlash1.Movie:=s_path+'\sd_movie.swf';
ShockwaveFlash1.stop;
end;
end.
这样不能实现鼠标、键盘不动一段时间之后返回首页，怎么改呀？Top
4 楼hellolongbin（一个人(自从扩充话题改版，再也不去灌水乐园了)）回复于 2005-05-09 17:05:13 得分 0
从打开一个页面开始计时（用timeer控件），超过1分钟退出Top
5 楼hellolongbin（一个人(自从扩充话题改版，再也不去灌水乐园了)）回复于 2005-05-09 17:05:41 得分 0
从打开一个页面开始计时（用timeer控件），超过1分钟退出Top
6 楼shiyh1128（）回复于 2005-05-11 12:58:03 得分 0
我要实现的是鼠标、键盘都不动一分钟后，自动返回主页Top
7 楼shiyh1128（）回复于 2005-05-13 16:41:38 得分 0
问题自己解决Top
8 楼dreampp（梦想）回复于 2005-06-28 12:52:54 得分 100
虽然不会，帮你顶一下，别沉了Top
