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

Вниз

Ребят, подскажите, как можно "таскать" TGroupBox по форме   Найти похожие ветки 

 
mmms   (2005-02-22 14:16) [0]

мышкой? DragDrop+F1 смотрел, dragmode - dmAutomatic, а вот как обработать события?


 
Cosinus ©   (2005-02-22 14:23) [1]


> а вот как обработать события?
В смысле?


 
Skier ©   (2005-02-22 14:28) [2]

>mmms   (22.02.05 14:16)  
Найди в Инете компонент TStretchHandle и таскай на здоровье...


 
mmms   (2005-02-22 14:30) [3]

Ну что там делать по отпусканию, что при нажатию, какой смысл то ещё?
Что нашел, то вот это:
procedure TForm1.GroupBox1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
const
 SC_DragMove = $F012;
begin
 ReleaseCapture;
 GroupBox1.Perform(WM_SysCommand, SC_DragMove, 0);
end;

Что то не пашет она у меня.


 
mmms   (2005-02-22 14:31) [4]

[2] Skier ©   (22.02.05 14:28)
Посмотрю, спасибо.


 
Skier ©   (2005-02-22 14:34) [5]

http://z-ol.chat.ru/cmplib/handles.zip


 
mmms   (2005-02-22 14:38) [6]

Да, я его нашел уже, в яндексе 3м вышел. Как раз то что надо!
Благодарю.



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

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

Наверх





Память: 0.45 MB
Время: 0.037 c
3-1107871348
andrey__
2005-02-08 17:02
2005.03.06
Locate по полю Lookup


4-1106135217
tradakad
2005-01-19 14:46
2005.03.06
WM_KEYDOWN = Shift + Tab?


1-1108625387
JohnS
2005-02-17 10:29
2005.03.06
TWebBrowser


6-1103893289
mega
2004-12-24 16:01
2005.03.06
Отаправка файла в LAN


1-1108722319
Zhekson
2005-02-18 13:25
2005.03.06
IniFile и UpDown





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский