Перетащить черную линию на форме?
JIurasdfsdf © (2006-02-04 00:07:00)
Есть у меня обьект Image в виде черной линии. Как
сделать так чтобы его можно было перетаскивать только в
горизонтальном направлении? И как отслеживать текущее положение
этой линии во время перетаскивания?
ss2 (2006-02-04 15:17:00) [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;
Наверх 
ЧАТ |
Орешник |
|
