zglTEdit

type zglTEdit = class(zglTGUIObject)

published

  procedure HandleDraw(); override;

  function HandleUpdate(); override;

  procedure HandleLeave(); override;

  procedure Draw(); override;

  procedure Update(); override;

  property MaxLength: Integer; [rw]

  property PasswordChar: char; [rw]

  property Align: Integer; [rw]

  property OnChange: zglTEvent; [rw]

  property OnEnterKey: zglTEvent; [rw]

  property OnKeyDown: zglTKeyEvent; [rw]

public

  property Selection: Boolean; [rw]

  property SelectionStart: Word; [rw]

  property SelectionEnd: Word; [rw]

  constructor CreateDefaults();

  constructor Create();

  procedure Focus;

end;

zglTEdit

zglTGUIObject

zglTBaseGUIObject

zglTNamedObject

zglTEditableClass

TObject