( Event not(MouseMove

[yashar666]

با سلام به همه

کسی می دونه چطوری میشه بر عکس روخداد MouseMove کاری رو انجام داد
یعنی اگه موس بر فرض تکان نخورد یه عملی انجام بشه . معمولا برای برنامه های
screen saver یه تایمر میزارند تا زمانی که موس تکان می خوره تایمر فعالیتی نداره ولی از
موقعی که موس ثابت هست تا یه مقدار زمانی خاص یه عملی انجام بشه ممنونم

[a_b_toops]

Program Files\Borland\Delphi7\Demos\AppEvents

[mzjahromi]

همچین چیزی نداریم باید خودت پیاده سازیش کنی
یه راه ساده اش هم اینه که یه تایمر بذاری و زمان کاکش و بذاری رو مدتی که میخوای و با تکون خوردن ماوس اون تایمر رو ریست کنی

[a_b_toops]

یه تایمر بزار
x1,y1 دو متغییر عمومی تعریف کن

var
T : Tpoint;
begin
x1:=T.X;
y1:=T.Y;
getcursorpos(T);
if (x1<>t.x)or(y1<>t.y) then
Label1.Caption:='1';

[vcldeveloper]

معمولا برای برنامه های
screen saver یه تایمر میزارند تا زمانی که موس تکان می خوره تایمر فعالیتی نداره
http://delphi.about.com/od/adptips2004/a/bltip1104_4.htm