Советы по Delphi

         

ListBox - OnChange


Это было два месяца тому назад. Я нашел это на одном из Delphi-сайтов. Не очень сложно и понятно.

    UNIT Lbox;

INTERFACE

USES

SysUtils, WinTypes, Messages, Classes, Controls, Graphics, Forms, Menus, StdCtrls;
Type
TCngListBox = Class(TListBox)

private FOnChange : TNotifyEvent; FLastSel : integer; procedure Click; override; protected procedure Change; Virtual; published property OnChange : TNotifyEvent read FOnChange write FOnChange; public constructor create(AOwner : TComponent); override; End;
Procedure Register;

IMPLEMENTATION

procedure
TCngListBox.Change;
begin
FLastSel := ItemIndex; if assigned(FOnChange) then FOnChange(self); end;

procedure TCngListBox.Click;
begin
inherited
Click; if FLastSel <> ItemIndex then Change; end;

constructor TCngListBox.Create;
begin
Inherited
Create(AOwner); FLastSel := -1; end;

procedure Register;
begin
RegisterComponents('FreeWare',[TCngListBox]); end;

END.

[001547]



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