У TForm'ы ставлю AutoScroll = true, на форме есть компоненты, которые можно перемещать по форме, когда они заходят за края формы появляются scroll'ы. SсrollInView позволяет отобразить компонент в нужном месте. При зашкаливании компонента за форму Scroll'ы очень быстро растут как их притармозить. И как сделать так, чтобы при клике на стрелке Scroll'а мышкой когда он находитяс на конце, чтобы Scroll продолжал двигаться дальше.

Не очень понятна фраза:

Цитата

При зашкаливании компонента за форму Scroll'ы очень быстро растут как их притармозить

Цитата(alexeis1 @ 2.11.2005, 10:29)

Не очень понятна фраза: Цитата При зашкаливании компонента за форму Scroll'ы очень быстро растут как их притармозить

Объясняю. Есть у нас форма на форме компоненты, которые мы можем двигать мышкой. Когда компонент заходит за правый и нижний край формы у нее появляются Scroll'ы. После этого при вызове ScrollInView перемещаемый компонент постоянно отображается, и при этом очень большая скорость роста Position у scroll'a. Поэтому появляется неприятный эффект: слегка двинули компонент за край формы и растояние от первоначально положения компонента резко возрастает, поэтому как сделать, чтобы прирост Position был поплавней. Ещё один момент как сделать так, чтобы при нажатии мышкой на scroll, когда scroll находится внизу объект двигался вниз(см рисунок).

Присоединённый файл ( Кол-во скачиваний: 10 )
 obj.JPG 10,82 Kb

Цитата(Delphist @ 2.11.2005, 14:13)

После этого при вызове ScrollInView перемещаемый компонент постоянно отображается

Наверное стоит ScrollInView вызывать только один раз - при окончании перетаскивания визуального объекта.

Цитата

Цитата(Delphist @ 2.11.2005, 14:13) После этого при вызове ScrollInView перемещаемый компонент постоянно отображается Наверное стоит ScrollInView вызывать только один раз - при окончании перетаскивания визуального объекта.

Примером бы не мог отобразить.

Цитата(Delphist @ 2.11.2005, 18:59)

Примером бы не мог отобразить.

Так для этого еще надо Drag&Drop реализовать сначала.

Для простоты я реализовал вручную перетаскивание рисунка и на событие OnMouseUp выполняю:

Код

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin   isDrag := False;   Form1.ScrollInView(Image1); end;

Цитата

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin   isDrag := False;   Form1.ScrollInView(Image1); end; [/code]

Зачем сюда нужен isDrag := False;

Цитата

Поэтому появляется неприятный эффект: слегка двинули компонент за край формы и растояние от первоначально положения компонента резко возрастает, поэтому как сделать, чтобы прирост Position был поплавней

Придется отлавливать WM_HSCROLL и WM_VSCROLL формы
и производить некоторые действия вручную

редактировано

возможно устроит вариант с таймером
таймер на 200мс изначально enabled = false

Код

var   x1, y1 : Integer;   b      : boolean = false; procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin   x1 := x;   y1 := y;   b  := true; end; procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer); begin   if b   then     Begin       button1.Left := button1.Left  + x - x1;       button1.top  := button1.top   + y - y1;       Timer1.Enabled := true;     end; end; procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin   b := false;   Timer1.Enabled := false;   form1.ScrollInView(button1); end; procedure TForm1.Timer1Timer(Sender: TObject); begin   form1.ScrollInView(button1); end;

Это сообщение отредактировал(а) alexeis1 - 3.11.2005, 13:45

Помнится Я когда-то тоже искал ответ на этот вопрос, ну и вот что нашёл:

Код

function ClientWindowProc( wnd: HWND; msg: Cardinal; wparam, lparam: Integer ): Integer; stdcall; var f: Pointer; begin f := Pointer( GetWindowLong( wnd, GWL_USERDATA )); case msg of WM_NCCALCSIZE:  if ( GetWindowLong( wnd, GWL_STYLE ) and           (WS_HSCROLL or WS_VSCROLL)) <> 0 then   SetWindowLong( wnd, GWL_STYLE, GetWindowLong( wnd, GWL_STYLE )                 and not (WS_HSCROLL or WS_VSCROLL)); end; Result := CallWindowProc( f, wnd, msg, wparam, lparam ); end; procedure TForm1.FormCreate(Sender: TObject); begin if ClientHandle <> 0 then   begin     if GetWindowLong( ClientHandle, GWL_USERDATA ) <> 0 then          Exit;  {cannot subclass client window, userdata already in use}     SetWindowLong(ClientHandle, GWL_USERDATA, SetWindowLong( ClientHandle,                GWL_WNDPROC, integer( @ClientWindowProc)));   end; end;

------------------------
Упс ... извиняюсь, тут оказывается надо чтоб "прирост Position был поплавней. ", а Я чёт подумал что Scroll'ы надо совсем убрать ...

Это сообщение отредактировал(а) RaIDeR - 4.11.2005, 01:25

Цитата

Придется отлавливать WM_HSCROLL и WM_VSCROLL формы и производить некоторые действия вручную

А где бы пример кода посмотреть?

Это сообщение отредактировал(а) Delphist - 7.11.2005, 17:19

Имелось в виду пример кода отлова сообщений

если да то можно посмотреть в
Delphi Russian Knowlage Base

Это сообщение отредактировал(а) alexeis1 - 8.11.2005, 13:59

Цитата(alexeis1 @ 8.11.2005, 13:55)

Имелось в виду пример кода отлова сообщений если да то можно посмотреть в Delphi Russian Knowlage Base

Прямую ссылку дать не мог бы.

Delphi Russian Knowlage Base
раздел
-Системные функции и WinApi
подраздел
-Windows
подраздел
-Сообщения Windows

Как обрабатывать сообщения
Системные сообщения (сокращения)
Что такое сообщения Windows?

Это сообщение отредактировал(а) alexeis1 - 10.11.2005, 12:38