| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Drag&drop
sergeyst © (2007-02-01 13:46:00)Всем привет!
Есть 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'а. Как это сделать?
sergeyst (2007-02-01 14:52:00) [1]
> Сергей М. © (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;
Это по одной оси, в одном направлении. Но где это написать? И, как мне кажется, по-другому.
Сергей М. (2007-02-01 14:02:00) [2]
> Надо, чтобы при перемещении TImage
Не понятно, причем здесь драгндроп ?
| |
