Текущий архив: 2002.11.28;
Скачать: CL | DM;

Вниз

Работа с мышкой   Найти похожие ветки 

← →
alf_ ©   (2002-09-28 04:19) [0]

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

---

← →
Blacker77 ©   (2002-09-28 06:18) [1]

Можно так:


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 - значение на котором нужно держать курсор.

---

← →
Guerrillero ©   (2002-09-28 09:51) [2]

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

---

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

Текущий архив: 2002.11.28;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.03 c