Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Вниз

Маус (только не обижайтесь) 


LazorenkoX   (2002-03-29 22:55) [0]

Подскажите плиз. Этот вопрос покажется для Вас немного странным, но мне очень нужно это сделать. Если нет в ВинАпи, подскажите плиз как это сделать в ТрупоПаскакале или на Ассемблере. Короче, мне нужно, чтобы мышка (которая находится на столе юзера) начала прыгать и кричать: "Не трожь меня своими грязными лапами, юзер!!!".



SPeter   (2002-03-29 23:02) [1]

with мышка do
begin
Прыг(random(Screen.Width),random(Screen.Heigth));
Сказать("Не трожь меня своими грязными лапами, юзер!!!");
end;



SDS   (2002-03-29 23:05) [2]

Как вариант пишешь на любом языке программу типа "Hello, word!" во всем учебниках по всем языкам прораммирования есть, компиллируешь, запускаешь на выполнение, берешь мышку в правую руку, трясешь ее и громко кричишь "Не трожь меня своими грязными лапами, юзер!!!". Да и самое главное ты как юзер должен вымыть руки, т.к. трогать мышку грязными руками нельзя!



SDS   (2002-03-29 23:09) [3]

to SPeter
По моему у тебя в коде ошибка в вопросе скзано, чтоб мышка скакала по столу юзера, а не по экрану, так будет точнее

with мышка do
begin
Прыг(random(User_Table.Width),random(User_Table.Heigth));
Сказать("Не трожь меня своими грязными лапами, юзер!!!");
end;



LazorenkoX   (2002-03-29 23:24) [4]

Спасибо!!! Я вам очень благодарен, но этот код съедает много ресурсов, есть что-то попроще?



SDS   (2002-03-29 23:37) [5]

Тогда все это забудь пиши на ассемблере, на руки вымыть не забудь!



copyr25   (2002-03-30 04:38) [6]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs,
ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormActivate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
P,Q:TPoint;
implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
begin
GetCursorPos(P);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
GetCursorPos(Q);
if (Q.x<>P.x) or (Q.y<>P.y) then
begin
Timer1.Enabled:=False;
MessageDlg("Hey, stupid user! Do not touch me by your dirty hands!"
,mtError,[mbCancel, mbAbort, mbRetry],0);

end;
end;

end.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.019 c
14-32949          IronHawk              2002-02-22 16:23  2002.04.11  
Мастера Delphi ! ПРО САЙТ И ЕГО ОБИТАТЕЛЕЙ !


3-32622           Moscower              2002-03-22 13:02  2002.04.11  
ПРОБЛЕМА С RESTORE на удаленный сервер


3-32695           Марина                2002-03-21 15:12  2002.04.11  
Изменяемый Query


3-32704           visa                  2002-03-21 19:40  2002.04.11  
проект без BDE


3-32675           grabovsky             2002-03-20 16:31  2002.04.11  
событие двойного щелчка