Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

28th
Окт

Как создать в listbox события OnChange и OnChanging?

Posted by Chas under Пост-обзор

Вот, например:

UNIT Lbox;
INTERFACE
USES
  SysUtils, WinTypes, Messages, Classes, Controls, Graphics, Forms,
  Menus, StdCtrls;
type
  TMyListBox = Class(TListBox)
    private
      FOnChange : TNotifyEvent;
      FLastSel : integer;
      procedure Click; override;
    protected
      procedure Change; Virtual;
    published
      property pan> OnChange : TNotifyEvent read FOnChange write FOnChange;
    public
      constructor create(AOwner : TComponent); override;
  end;
procedure Register;
IMPLEMENTATION
procedure TMyListBox.Change;
begin
  FLastSel := ItemIndex;
  if assigned(FOnChange) then FOnChange(self);
end;
procedure TMyListBox.Click;
begin
  inherited Click;
  if FLastSel <> ItemIndex then
     Change;
end;
constructor TMyListBox.Create;
begin
  Inherited Create(AOwner);
  FLastSel := -1;
end;
procedure Register;
begin
  RegisterComponents(‘MyComponents’,[TMyListBox]);
end;
end.Syhi-подсветка кода