DELPHI/Часто задаваемые вопросы и ответы на них/Компоненты



На главную

Подписка

Новости

Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Компоненты / Включение табуляторов в Listbox

Включение табуляторов в Listbox

unit TabsLBox;
{включение табуляторов в listbox}
interface

uses WinTypes, Classes, Controls, StdCtrls;

type
  TMyListBox = class(TListBox)

  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

procedure register;

implementation

procedure register;
begin
  RegisterComponents('Samples', [TMyListBox]);
end;

procedure TMyListBox.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style or LBS_USETABSTOPS;
end;

end.

Источник получения информации: http://www.delphiworld.narod.ru