Перемещение компонента по форме

← →
BFG9k © (2005-08-01 17:49) [0]

Небходимо перетаскивать компонент (в моем случае это тоже форма)с помощью мыши по форме.

Сделал так, чтобы компонент перетаскивался мышью за всю клиентскую часть.

Но при этом мне нужно, чтобы содержимое компонента отображалось при его перетаскивании (а не только рамка). А также сделать ограничения при перетаскивании (например чтобы левый край компонента не заходил за левый край формы и т.д.).

Как бы мне этого добиться, желательно без мерцания ?

Спасибо.

← →
Mx © (2005-08-01 18:12) [1]

Я рисовал на экране, то бишь через API с GetDC(0)

← →
Mx © (2005-08-01 18:16) [2]

Да, забыл, чтобы ограничить диапазон движения курсора используй ClipCursor, а чтобы компонент не рисовался за краями, то для DC, полученного через GetDC(0), надо использовать IntersectClipRect.

← →
BFG9k © (2005-08-03 14:09) [3]

> Я рисовал на экране, то бишь через API с GetDC(0)

Сложновато. На самом деле должен быть способ намного проще (в виндовсе можно настроить, чтобы содержимое всех окон отображалось при перетаскивании).
Например что-то в этом роде:
B:=True; SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, 0, @B, SPIF_SENDCHANGE)
Только у меня не работает почему-то :(

Вот так надо.

SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, 1, nil, SPIF_SENDCHANGE)

Только происходят изменения во всей системе. Как бы применить это только для конкретного окна ?

Перемещение компонента по форме Найти похожие ветки