Советы по Delphi

         

TabStop в Listbox I


    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.

[000152]



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