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

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

Работа с мышкой

alf_ ©   (2002-09-28 04:19:00) 

Как сделать , что-бы курсор по форме двигался только по одной оси координат?

---

Guerrillero   (2002-09-28 09:51:00) [1]

такой вариант мне больше нравится, только он снимается по C-A-D
var
I : Integer;
R : TRect;
P : TPoint;
begin
I := Height div 2 ;
R := Rect( Left,I,Left + Width,I);
ClipCursor(@R);

---

Blacker77   (2002-09-28 06:18:00) [2]

Можно так:


unit Unit1;

interface

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

type
TForm1 = class(TForm)
private
Procedure MouseMove(Var Message: TMessage); Message WM_MOUSEMOVE;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
pos:integer=200;
implementation

{$R *.DFM}
Procedure TForm1.MouseMove(Var Message: TMessage);
var
pt:Tpoint;
begin
GetCursorPos(pt);
SetCursorPos(pt.x,form1.left+pos);
end;

end.



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

---

Наверх