Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

перетаскується компонент Знайти схожі гілки


avr555   (2001-12-17 19:54) [0]

У мене таке питання:
Я хочу зробити компонент, який можна було б "тягати" по формі.
В якості такого компонента вирішив використовувати VirtualTreeView
Для перетягування використовую три події: OnMouseDown, OnMouseMove, OnMouseUp.

Коли я в якості перетягуваного компонента використовував CheckListBox, то для того, щоб компонент не зривати, викликав функцію SetCapture (self.Handle) і все працювало.
А при переході на VirtualTreeView після виклику SetCapture (self.Handle) компонент перестає пересуватися. Якщо не викликати SetCapture (self.Handle), то все працює, тільки компонент при перетягуванні "зривається" з покажчика.

Що робити?



DK   (2001-12-19 02:16) [1]

Спробуй в обробник OnMouseDown вставити:
var Control: TControl; begin try Control: = Sender as TControl; ReleaseCapture; Control.Perform (WM_SYSCOMMAND, $ F012, 0); finally end;
end;



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.55 MB
Час: 0.022 c
1-22140
Serg5
2001-12-20 10:17
2002.01.08
Питання, чи є можливість зменшити шрифт до 4 пікселів, змінюватись він змінюється (програма не лається), а на екран (Canvas.Font) він все одно виводиться 8 (мінімальними)


3-21916
SVS
2001-12-03 12:08
2002.01.08
InterBase


4-22464
Dimich
2001-11-01 14:50
2002.01.08
Книги по API російською


7-22441
ульісс
2001-09-19 20:31
2002.01.08
Delphi 5 Ent не ставиться нормально під Win2k Pro


3-21980
Aleksandr
2001-12-05 13:26
2002.01.08
Як в програмі сформувати connection string TADOConnection?





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська