|
Да освятится имя твое и расширение твое, Господи...
Да поможет нам , и да сохранит нас .
|
Вот простое расширение 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.
|
|
Расширение компонента ListBox