Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.09.12;
Скачать: [xml.tar.bz2];

Вниз

Простой вопрос про 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]

xe


 
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 шт. почти весь)



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.09.12;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.052 c
1-35747
Злой!!!
2002-08-30 12:15
2002.09.12
Запись динамического массива в файл


1-35663
Groove
2002-08-31 12:01
2002.09.12
trackbar1 нужно изменить его!


3-35532
Lerico
2002-08-20 08:27
2002.09.12
В чем проблема?


6-35829
Вячеслав Чернов
2002-07-04 13:48
2002.09.12
ServerSocket проверка на физический разрыв сети


3-35573
ссс
2002-08-22 09:25
2002.09.12
Если какой нить Dblookupcombo где можно показывать 2 поля?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский