Программирование Delphi

Вам понадобился специфический компонент в Delphi, типа TButton, но который будет иметь больше свойств или методов, чем стандартная кнопка? Опытные разработчики Delphi, когда им нужен компонент TSuperBtn, применяют два подхода к этой проблеме: ищут готовые сторонние VCL решения или же создают свои собственные компоненты.

Ну а если Вам не нужно, чтобы TSuperBtn находился на Палитре Компонентов и нужен только для этого приложения? Как получить TButton с большим количеством свойств и методов, но не TSuperBtn? И как расширить возможности TButton без необходимости создавать унаследованный класс с другим именем?

Компоненты TMemo и TRichEdit не располагают никаким свойством или методом, которые облегчали бы указание положения курсора в этих компонентах. Это можно сделать посредством функции SendMessage. Для выполнения следующего кода поместите TRichEdit, TButton и три TLabel. При выполнении этого кода и при нажатии кнопки, в TLabel будут отображаться номер строки, длина строки и положение курсора.

Для примера поместить два TLabel на свою форму Delphi (Label1 и Label2). Поместите TPopupMenu (PopupMenu1) на форму и присоедините его к форме, установив свойство формы PopupMenu равным PopupMenu1. Не добавляйте никаких пунктов в меню. Также добавьте два компонента TEdit и TMemo (для примера) и назначьте им свойства Text. Далее поместите этот код в событие OnPopup компонента PopupMenu1.

В этом примере используется TLabel в качестве примера, чтобы создать массив компонентов TLabel и присвоить им свойство Caption, а также установить другие свойства этих компонентов, таких как Top, Left, Width и других. С таким же успехом можно использовать любой компонент Delphi, чтобы создавать массивы компонентов во время выполнения приложения, написанного на Delphi.