DrawFocusRect

var tab=20;

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод компонента TCanvas DrawFocusRect";
frm.Width =525;
frm.Height=375;
frm.OnPaint=frm_Paint;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=' Нажмите кнопку "Стереть"';

// Кнопка
btn=new TButton(frm);
btn.Caption="Стереть";
btn.Width=btn.TextWidth(btn.Caption)+25;
btn.Left=frm.ClientWidth-btn.Width-tab;
btn.Top =stb.Top-btn.Height-tab;
btn.OnClick=btn_Click;

frm.ShowModal();

// Обработчик события OnPaint
function frm_Paint(frm)
{
  var x1=tab,y1=tab,x2=frm.ClientWidth-x1,y2=btn.Top-y1;
  var cnv=frm.Canvas;

  cnv.Pen.Color=clHighlight;
  cnv.DrawFocusRect(Rect(x1,y1,x2,y2));
}

// Обработчик события OnClick
function btn_Click(btn)
{
  frm_Paint(frm);

  switch (btn.numTag=1-btn.numTag) {
    case 0: btn.Caption="Стереть"; break;
    case 1: btn.Caption="Показать";
  }

  stb.SimpleText=' Нажмите кнопку "'+btn.Caption+'"';
}