Простой вопрос про Drag

← →
Begin (2002-09-01 03:46) [0]

Можно ли сделать, чтоб, к примеру, панельку таскать по форме, не отделяя саму панель от нее ? У меня она либо отрывается, либо вообще не двигается .... :(

← →
Song (2002-09-01 08:06) [1]

Т.е. это как? Чего-то ничего не понятно...

← →
McSimm (2002-09-01 11:29) [2]

В статье
http://delphi.mastak.ru/articles/dragndrop/index.html
есть пример (draggable panel)

← →
Begin (2002-09-01 18:20) [3]

Наверное, я не совсем точно выразился. Мне нужен не столько drag&drop, сколько возможность просто перемещать панель по форме, как при работе в редакторе... Есть такая заложенная возможность ?

← →
TTCustomDelphiMaster (2002-09-01 19:37) [4]

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;

← →
Begin (2002-09-01 20:08) [5]

Супер ! Все так просто .... :) Огромнейший спасиб !!!!

← →
Nikolab (2002-09-01 21:08) [6]

Mne toje ochen ponrawilos!
Otkuda TTCustomDelphiMaster znaet eto?

← →
Song (2002-09-01 21:14) [7]

Это все знают.

← →
Begin (2002-09-01 21:36) [8]

Да !!! :))) Теперь и я тоже это знаю.... :))) Но ведь когда то, если вы помните, все не знали вообще ничего .... :)

← →
Yaro (2002-09-01 22:51) [9]

← →
Begin (2002-09-01 23:32) [10]

Возник вопрос к TTCustomDelphiMaster .... Для панелей некоторых прочих компонентов твоя процедурка работает идеально ( сеньк еще раз :) а вот для TImage не хочет. Можно ли ее как то заставить ????

← →
Валерыч (2002-09-02 02:39) [11]

TImage не имеет идентификатора окна, поэтому такой способ неприменим

← →
Begin (2002-09-02 03:16) [12]

Мастера ! Всем спасибо ! Осталься последний вопрос по данной теме ... Где можно почитать про то, что такое есть SC_DragMove, WM_SysCommand, CM_MOUSELEAVE и прочая и как их использовать ? В хелпе к Delphi не нашел....

← →
Юрий Зотов (2002-09-02 07:22) [13]

SC_DragMove ($F012) - недокументировано. Кто, когда и почему обозвал эту константу именно так - тайна, покрытая мраком. Но кочует по Инету уже давно, а корни идут, похоже, с Borland FAQ.

WM_SysCommand (и другие стандартные сообщения Windows) - cм. документацию по API. Хотя бы тот хелп, что идет с Delphi.

CM_MOUSELEAVE - внутреннее сообщение VCL. Недокументировано, но можно подсмотреть в исходниках VCL.

Как их использовать - как и любые другие сообщения. См. в книгах.

← →
Севостьянов Игорь (2002-09-02 22:17) [14]

Ага - читай MSDN - последняя версия в инете
http://www.msdn.microsoft.com/library
Но проще купить компакты (3 шт. почти весь)

Простой вопрос про Drag Найти похожие ветки