Class TSystemInfo (unit SysInfo)

Inherits from

TCustomLabel

Constructors


constructor Create( Owner: TComponent );

Public declarations


Functions

procedure Refresh;


function FormatBytes(b: LongInt): string;


function ReadText: string;


procedure SetAttribute(at: TAttribute);

disallow all but drive letters} { ignore that the specified disk may not exist on this machine

procedure SetCaption;


procedure SetDisk(d: char);


Properties

property Align :

Published declarations

property Alignment :


property Attribute : TAttribute


property AutoSize :


property Color :


property Disk : char


property DragCursor :


property DragMode :


property Enabled :


property FocusControl :


property Font :


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowAccelChar :


property ShowHint :


property Transparent :


property Visible :


property WordWrap :


property Text : string


Events

event OnChange : TChangeProcedure


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FAttribute : TAttribute;

Private declarations

FDisk : char;


FOnChange : TChangeProcedure;



Constructors


constructor Create( Owner: TComponent );

Public declarations


Functions


procedure Refresh;


function FormatBytes(b: LongInt): string;


function ReadText: string;


procedure SetAttribute(at: TAttribute);

disallow all but drive letters} { ignore that the specified disk may not exist on this machine


procedure SetCaption;


procedure SetDisk(d: char);


Properties


property Align :

Published declarations


property Alignment :


property Attribute : TAttribute


property AutoSize :


property Color :


property Disk : char


property DragCursor :


property DragMode :


property Enabled :


property FocusControl :


property Font :


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowAccelChar :


property ShowHint :


property Transparent :


property Visible :


property WordWrap :


property Text : string


Events


event OnChange : TChangeProcedure


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FAttribute : TAttribute;

Private declarations


FDisk : char;


FOnChange : TChangeProcedure;