Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Begin © (2002-09-01 03:46:00)
Можно ли сделать, чтоб, к примеру, панельку таскать по форме, не отделяя саму панель от нее ? У меня она либо отрывается, либо вообще не двигается .... :(

Севостьянов Игорь (2002-09-02 22:17:00) [1]
Ага - читай MSDN - последняя версия в инете
http://www.msdn.microsoft.com/library
Но проще купить компакты (3 шт. почти весь)

Юрий Зотов (2002-09-02 07:22:00) [2]
SC_DragMove ($F012) - недокументировано. Кто, когда и почему обозвал эту константу именно так - тайна, покрытая мраком. Но кочует по Инету уже давно, а корни идут, похоже, с Borland FAQ.

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

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

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

Begin (2002-09-02 03:16:00) [3]
Мастера ! Всем спасибо ! Осталься последний вопрос по данной теме ... Где можно почитать про то, что такое есть SC_DragMove, WM_SysCommand, CM_MOUSELEAVE и прочая и как их использовать ? В хелпе к Delphi не нашел....

Валерыч (2002-09-02 02:39:00) [4]
TImage не имеет идентификатора окна, поэтому такой способ неприменим

Begin (2002-09-01 23:32:00) [5]
Возник вопрос к TTCustomDelphiMaster .... Для панелей некоторых прочих компонентов твоя процедурка работает идеально ( сеньк еще раз :) а вот для TImage не хочет. Можно ли ее как то заставить ????

Yaro (2002-09-01 22:51:00) [6]
xe

Begin (2002-09-01 21:36:00) [7]
Да !!! :))) Теперь и я тоже это знаю.... :))) Но ведь когда то, если вы помните, все не знали вообще ничего .... :)

Song (2002-09-01 21:14:00) [8]
Это все знают.

Nikolab (2002-09-01 21:08:00) [9]
Mne toje ochen ponrawilos!
Otkuda TTCustomDelphiMaster znaet eto?

Begin (2002-09-01 20:08:00) [10]
Супер ! Все так просто .... :) Огромнейший спасиб !!!!

TTCustomDelphiMaster (2002-09-01 19:37:00) [11]
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 18:20:00) [12]
Наверное, я не совсем точно выразился. Мне нужен не столько drag&drop, сколько возможность просто перемещать панель по форме, как при работе в редакторе... Есть такая заложенная возможность ?

McSimm (2002-09-01 11:29:00) [13]
В статье
http://delphi.mastak.ru/articles/dragndrop/index.html
есть пример (draggable panel)

Song (2002-09-01 08:06:00) [14]
Т.е. это как? Чего-то ничего не понятно...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »