Drag&Drop

← →
Михайлов Антон © (2003-06-11 01:40) [0]

Когда я начинаю перетаскивать панельку, у меня появляется какбы отдельное окошко (со строкой заголовка, с кэпшеном и т.п.). Но его размеры можно менять :(
Как сделать чтобы нельзя было изменить размер???

← →
Proton © (2003-06-11 01:55) [1]

В указанных версиях есть пример...

← →
Михайлов Антон © (2003-06-11 02:00) [2]

чё-то не нашёл...
А мож примерчик напишите?

← →
Babay © (2003-06-11 04:47) [3]

Лювой наследник от TControl можно перетаскивать например так
Для панели:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
panel1.perform(WM_SysCommand, SC_DragMove, 0);
end;

нашел это по моему в советах от Озерова.

Неетт... дело в том, что мне нужно это окошко...
Мне не нужно, чтобы оно могло менять размер. Ну тоесть отключить Sizeble у этого окна

property FloatingDockSiteClass

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