Скачать: CL | DM;

Ожидание   Найти похожие ветки 

← →
Ag2002   (2002-12-10 14:48) [0]

Подскажите пожалуйста как узнать о том что моя в моей программе в течениии какого либо времени ни кто ничего не делатет...

---

← →
Sha ©   (2002-12-10 14:56) [1]

TTimer

---

← →
Mike_Goblin ©   (2002-12-10 15:24) [2]

TApplication.OnIdle

---

← →
uu ©   (2002-12-10 18:04) [3]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

const
Delay = 3; // "Продолжительная задержка" в секундах

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
public
Past: LongInt;
procedure DoWork; // То, что будет делаться по истечении "продолжительной задержки"
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
Current: LongInt;
begin
Current := GetTickCount;
if Current-Past > Delay*1000 then begin
Past := Current;
DoWork;
end;
end;

procedure TForm1.DoWork;
begin
ShowMessage("Что-то вы долго ничего не делали");
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Past := GetTickCount;
KeyPreView := True;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Past := GetTickCount;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Past := GetTickCount;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Past := GetTickCount;
end;

end.

---

← →
Юрий Зотов ©   (2002-12-10 18:33) [4]

> uu © (10.12.02 18:04)

1. В программе может быть и несколько форм.
2. KeyPreview на мышь не распространяется.

Вывод - мышь/клавиатуру надо перехватывать глобально. Например, в обработчике Application.OnMessage. См. также WM_KEYFIRST, WM_KEYLAST, WM_MOUSEFIRST, WM_MOUSELAST в Windows.pas.


3. Зачем какие-то дополнительные поля и переменные?

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowMessage("Что-то вы долго ничего не делали")
end;

procedure TForm1.АppMessage(...); // Application.OnMessage.
begin
if <это сообщение клавиатуры/мыши> then // Сброс таймера
begin
Timer1.Enabled := False;
Timer1.Enabled := True
end
end;

Это все, больше ничего не нужно.

---

← →
Sha ©   (2002-12-10 18:44) [5]

Разделяю мнение предыдущего оратора :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c