TabStop в Listbox I

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

uses WinTypes, Classes, Controls, StdCtrls;

type
TMyListBox = class(TListBox)
protectedprocedure 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.

[000152]

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