| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сохранять данные о позициях курсора в файл

Страницы:   < 1 2 3 >

Big Daddy ©   (2002-06-07 10:09:00) 

Как сохранить данные о всех движениях курсора в file.txt
Т.е. все координаты при передвижении курсора типа так:

130,480
131,480
и т.д.

---

Игорь Шевченко   (2002-06-07 11:09:00) [41]

Используйте двойную буферизацию - быстрее будет. Никакого асма не надо :-)
WM_MOUSEMOVE посылается на каждое перемещение мыши над окном

---

Miwa   (2002-06-07 11:06:00) [42]

Неа, слишком медленно все это, поверьте. На асме, наверное, писать надо.
Во всяком случае, вот что я написал:

var
Form1: TForm1;
f:TextFile;
implementation
{$R *.dfm}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
writeln(f,inttostr(x),", ",inttostr(y));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
assignfile(f,"c:\test.txt");
rewrite(f);
end;

И вот что вышло в результ-файле:

3, 40
19, 44
21, 45
22, 47
32, 51
46, 61
58, 65
72, 69
88, 72
102, 74
...

Вот так вот....

---

Kaban   (2002-06-07 10:21:00) [43]

Попробуйте обработать OnMouseMove формы
пишите в файл координаты x и y, может вас это устроит

---

Big Daddy   (2002-06-07 10:19:00) [44]

Надо, при передвижении курсора по форме, сохранять его координаты в файл. Каждую пройденную точку. Я то знаю, что надо использовать функцию типа GetCursorPos, но надо каждую точку. т.е. постоянно.

---

Kaban   (2002-06-07 10:17:00) [45]

если упор сделан на слове "все" то сделать это IMHO не получится
обрабатывайте сообщение WM_MOUSEMOVE и пишите в файл. более подробно не получиться.

---

Kaban   (2002-06-07 10:12:00) [46]

а в чем проблема?

---

Страницы:   < 1 2 3 >

Наверх