Советы по Delphi

         

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



Содержание раздела