百分求救

Question

请高手指教：用delphi播放flash做成触摸屏，怎么控制鼠标在一个页面停留超过一段时间（比如1分钟）自动返回主页？请高手给出具体例子！——万分感谢！

Answer 1

使用timer处理不行吗?, flash.onenter timer.enable:=true; timer.ontimer goto ???? timer.enable:=false; timer的时长设为1分钟

Answer 2

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.
这样不能实现鼠标、键盘不动一段时间之后返回首页，怎么改呀？

Answer 3

从打开一个页面开始计时（用timeer控件），超过1分钟退出

Answer 4

从打开一个页面开始计时（用timeer控件），超过1分钟退出