百分求救 请高手指教:用delphi播放flash做成触摸屏,怎么控制鼠标在一个页面停留超过一段时间(比如1分钟)自动返回主页?请高手给出具体例子!——万分感谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 使用timer处理不行吗?, flash.onenter timer.enable:=true; timer.ontimer goto ???? timer.enable:=false; timer的时长设为1分钟 godear and 高手unit SDFrm;interfaceuses 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.这样不能实现鼠标、键盘不动一段时间之后返回首页,怎么改呀? 从打开一个页面开始计时(用timeer控件),超过1分钟退出 从打开一个页面开始计时(用timeer控件),超过1分钟退出 字符串位置 老群招人.QQ:26929954 非常感谢Corn1(玉米)给我的ACM控件,请玉米来接分 fastreport外部赋值。 怎么给QuickRep1.Page.PaperSize赋值? 快来看看吧DELPHI怎么会有这样的问题?关于QREPORT的 关于xml和interface的高难度问题 本地数据库应用程序用paradox还是access更好 dxprintingsystem的下载地址.(带号的) 大送58分,请教TListView的问题 如何编写可以供VC++使用的DLL函数(函数的参数要求用指针),急等 webbrowser中处理鼠标键盘消息?
unit SDFrm;interfaceuses
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.
这样不能实现鼠标、键盘不动一段时间之后返回首页,怎么改呀?