Реализация выдвижной панели слева

namespace Cue_Edit // перед классом формы
{
    class TEdit : public Stdctrls::TEdit
    {
        typedef Stdctrls::TEdit inherited;
 
    private:
        void __fastcall DrawIt()
        {
            if (Text.IsEmpty())
            {
                Font->Color = clLtGray;
                Text = CueBanner;
            }
        }
 
    protected:
        DYNAMIC void __fastcall DoEnter(void)
        {
            inherited::DoEnter();
            if (Font->Color == clLtGray)
            {
                Clear();
                Font->Color = clWindowText;
            }
        }
 
        DYNAMIC void __fastcall DoExit(void)
        {
            inherited::DoExit();
            DrawIt();
        }
 
    public:
        String CueBanner;
 
        virtual void __fastcall Update(void)
        {
            inherited::Update();
            DrawIt();
        }
 
        __fastcall virtual TEdit(Classes::TComponent* AOwner)
            : Stdctrls::TEdit(AOwner)
        {
        }
    };
}
#define TEdit Cue_Edit::TEdit

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Edit1->CueBanner = "hello";
  Edit1->Update(); // Это - чтобы сразу отобразить пустое поле ввода с подсказкой
}