Splitter BarDelphi , Компоненты и Классы , TSplitterSplitter Bar...я использую TOutline, выровненный с помощью alLeft, и desktop, выровненной по его правой части. Панель расположена после TOutline, и также выровнена с помощью alLeft. Все это дело прилипает к TOutline. Я назвал новую панель 'splitter'. "Отрегулируйте" splitter под себя, сделайте его поУже, создайте красивый контур и нарисуйте двунаправленный курсор. В приведенном ниже примере вы можете заменить TOutLine на нужный вам компонент. Создайте обработчик события мыши и напишите следующий код:
Here's the translation of the content into Russian: Splitter Bar! Ваш код - это хороший старт, но я предложу некоторые улучшения и рекомендации для его более robustness. Правка расположения
До создания splitter bar, убедитесь, что TOutline и компоненты рабочего стола правильно выровнены. Вы можете использовать свойство
Создание splitter bar
Создайте новый TPanel и установите свойство
Кастомизация внешнего вида
Чтобы создать красивый бордер и курсор, установите свойство
Обработка событий В вашем процедуре обработки события adjust width TOutline (или другого компонента, который вы хотите изменить) в зависимости от движения мыши. Вы можете также добавить некоторые проверки границ для предотвращения изменения ширины outline до слишком большого или отрицательного значения.
Вот полный код:
Это должно дать вам основу для создания splitter bar, который изменяет ширины underlying компонентов. Вы можете дальнейшим образом кастомизировать его внешний вид и поведение по мере необходимости. В статье описывается создание панели "Splitter Bar" в Delphi, которая позволяет изменять размер компонента TOutline при движении мыши. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
|||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |