TCDEdit

type TCDEdit = class(TCDControl)

protected

  FEditState: TCDEditStateEx;

  function GetControlId; override;

  procedure CreateControlStateEx; override;

  procedure RealSetText(); override;

  procedure DoChange; virtual;

  procedure DoEnter; override;

  procedure DoExit; override;

  procedure KeyDown(); override;

  procedure KeyUp(); override;

  procedure UTF8KeyPress(); override;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure MouseEnter; override;

  procedure MouseLeave; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  function GetCurrentLine;

  procedure SetCurrentLine();

  property LeftTextMargin: Integer; [rw]

  property RightTextMargin: Integer; [rw]

  function GetSelStartX;

  function GetSelLength;

  procedure SetSelStartX();

  procedure SetSelLength();

  property CaretPos: TPoint; [rw]

published

  property Align: TAlign;

  property Anchors: TAnchors;

  property AutoSize: Boolean;

  property Color: TColor;

  property DrawStyle: TCDDrawStyle;

  property Enabled: Boolean;

  property Lines: TStrings; [rw]

  property MultiLine: Boolean; [rw]

  property PasswordChar: char; [rw]

  property ReadOnly: Boolean; [rw]

  property TabStop: Boolean;

  property Text: string; [rws]

  property OnChange: TNotifyEvent; [rw]

end;

TCDEdit

TCDControl

TCustomControl

The base class for windowed controls which paint themselves.

TWinControl

Implements a windowed control which can contain other child controls.

TControl

The base class for visible controls.

TLCLComponent

TObject