Форум: "Система";
Текущий архив: 2002.11.28;
Скачать: [xml.tar.bz2];
ВнизРабота с мышкой Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c