|
|
 |
TabStop в 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. |
|
|
|
|
|
