Delphi. Делаем “растягивающий уголок” для панели

Среди готовых компонент я не увидел компонента, который бы позволял растягивать визуальный компонент за нижний правый угол. Поэтому пришлось искать и делать многое своими руками. А также с помощью форумчан. Данная тема очень хорошо описана здесь. Я повторил данный код и внес свои минимальные изменения под свою задачу. Огромное спасибо участнику volvo, который выложил основную часть кода.

2

3

Во время растягивания панель немного подергивается, но мне этот эффект понравился. Думаю, если нужно будет убрать этот эффект, можно поиграться с WMPaint.

Идея кода с форума в чем, при наведении на правый нижний угол и нажатии на левую кнопку мыши – запускается наш механизм. При отпускании – кнопки – действие нашего кода заканчивается. Но я немного доработал, положил на панель StatusBar, потому что там этот уголок уже нарисован (появляется при запуске программы) и в результате меньше работы.  Итак, вот что у меня получилось.

4

 

Думаю, на основе этого кода, можно создать свой компонент TMediaPanel.

Добавить комментарий