Скачать: CL | DM;

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

← →
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;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c