Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.18;
Скачать: CL | DM;

Вниз

Drag&drop   Найти похожие ветки 

 
sergeyst ©   (2007-02-01 13:46) [0]

Всем привет!
Есть ScrollBox, в нем TImage. Размер TImage может менятся и, естественно, быть больше ScrollBox.Width. TImage "таскается":

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 MouseXY.X := X;
 MouseXY.Y := Y;
 Image1.BeginDrag(True);
end;

procedure TForm1.Image1DragOver(Sender, Source: TObject; X, Y: Integer;
 State: TDragState; var Accept: Boolean);
var
 T: TPoint;
begin
 T:=Mouse.CursorPos;
 T:= ScrollBox1.ScreenToClient(T);
 Image1.Top:=T.Y-MouseXY.Y;
 Image1.Left:=T.X-MouseXY.X;
end;

Надо, чтобы при перемещении TImage, край картинки не выходил за клиентскую область ScrollBox"а. Как это сделать?


 
Сергей М. ©   (2007-02-01 14:02) [1]


> Надо, чтобы при перемещении TImage


Не понятно, причем здесь драгндроп ?


 
sergeyst ©   (2007-02-01 14:52) [2]


> Сергей М. ©   (01.02.07 14:02) [1]


> Не понятно, причем здесь драгндроп ?

Ну, я так его (Image) таскаю в ScrollBar"а. И, так понимаю, что где-то в собsтиях Drag&Drop можно контролировать координаты "таскаемого" объекта. Есть способ как "таскать" без Drag&Drop? Я такого не знаю.
   А... может я не правильно вопрос задал? Как объяснить-то? Ну... А... Ме... Блин!  
Надо:
if Image.Left + Image.Width >= ScrollBox.Width then
 Image.Left := Image.Left - 1;
Это по одной оси, в одном направлении. Но где это написать? И, как мне кажется, по-другому.



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

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

Наверх




Память: 0.47 MB
Время: 0.03 c
2-1170331492
Кевларвестов Семен
2007-02-01 15:04
2007.02.18
Получить эл-т многмоерного массива не зная его размерность


15-1169821933
oldman
2007-01-26 17:32
2007.02.18
Расскажите про подводные камни, плиз...


1-1166871574
kroner
2006-12-23 13:59
2007.02.18
Почему FindFirst возвращает не ноль?


15-1169783659
Slider007
2007-01-26 06:54
2007.02.18
С днем рождения ! 26 января


15-1170106499
vasIzmax
2007-01-30 00:34
2007.02.18
"Достучаться до небес", саунд