Clear

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод компонента TEdit Clear";
frm.Width =450;
frm.Height=300;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Введите текст в поле редактирования";

// Edit
edt=new TEdit(frm);
edt.BorderStyle=bsSingle;
edt.Left=10;
edt.Width=frm.ClientWidth-edt.Left*2;
edt.Top=(stb.Top-edt.Height)/2;
edt.OnChange=edt_Change;
edt.OnKeyPress=edt_KeyPress;

// Кнопка
btn=new TButton(frm);
btn.Caption="Очистить";
btn.Width+=20;
btn.Left=edt.Left+edt.Width-btn.Width;
btn.Top =stb.Top-btn.Height-10;
btn.Hint="Очистить поле редактирования";
btn.ShowHint=true;
btn.OnClick=btn_Click;

edt.SetFocus();
frm.ShowModal();

// Обработчик события OnChange
function edt_Change(edt)
{
  stb.SimpleText=" Введен текст: "+edt.Text;
}

// Обработчик события OnKeyPress
function edt_KeyPress(edt,Key)
{
  var edt_Str="Нажата клавиша ";

  switch (Key.Value) {
    case VK_ENTER : edt_Str+="ENTER"; break;
    case VK_ESCAPE: edt_Str+="ESCAPE"; break;
           default: return;
  }

  alert(edt_Str);
}

// Обработчик события OnClick
function btn_Click(btn)
{
  edt.SetFocus();
  edt.Clear();
}