Delphi 1
Расширение компонента 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]