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