Перетащить черную линию на форме?

← →
JIurasdfsdf (2006-02-04 00:07) [0]

Есть у меня обьект Image в виде черной линии. Как сделать так чтобы его можно было перетаскивать только в горизонтальном направлении? И как отслеживать текущее положение этой линии во время перетаскивания?

← →
ss2 (2006-02-04 15:17) [1]

var h,s:Integer;
procedure TfMain.Image2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var r:TRect;
begin
s:=x;
h:=1;
r:=Rect(ClientOrigin.x + x, Mouse.CursorPos.Y, ClientOrigin.x + ClientWidth - (Image2.Width - x) + 1, Mouse.CursorPos.Y + 1);
ClipCursor(@r);
end;

procedure TfMain.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if h <> 1 then exit;
Image2.Left:= Image2.Left + x - s;
Caption:= IntToStr(Image2.Left)
end;

procedure TfMain.Image2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ClipCursor(nil);
h:= 0
end;

Перетащить черную линию на форме? Найти похожие ветки