Расширение компонента ListBox
Вот простое расширение TListBox. Двойное нажатие на элементе списка компонента не приводит пользователя к так ожидаемому выбору пункта, для этого приходится вначале выбрать элемент, а затем нажать на кнопку выбора; столь элементарная ожидаемая функциональность каждый раз должна обеспечиваться программистом; нижеприведенный код поможет избавиться от этой ненужной рутины.
Нижеприведенный компонент имеет дополнительное свойство DoubleClickBtn, отображающий список имеющихся на форме кнопок. Выберите одну из кнопок, и при двойном щелчке на одном из элементов списка компонента кнопка будет активизирована и вызван ее метод Click.
Вот код.
unit Unit1; interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Forms, Dialogs, StdCtrls; type TTraQsListBox = class(TListBox)privateFDoubleClickBtn : TButton;protectedprocedure DblClick; override;publicpublishedproperty DoubleClickBtn : TButton read FDoubleClickBtn write FDoubleClickBtn;end; procedure Register; implementation {TTraQsListBox} procedure TTraQsListBox.DblClick; begin if Assigned(FDoubleClickBtn) thenFDoubleClickBtn.Clickelseinherited DblClick;end; procedure Register; begin RegisterComponents('My Components', [TTraQsListBox]);end; end. |
[000541]