AnaForm: TclForm;

  KaydirmaAlani: TCLVertScrollBox;

  BosKutu: TclProEdit;

  i: Integer;

// 1. Kullanıcı bilerek kutuya TIKLADIĞINDA çalışacak bölüm

void KutuyaTiklandi;

var

  TiklananKutu: TclProEdit;

{

  TiklananKutu = TclProEdit(AnaForm.Clsender);

  TiklananKutu.ReadOnly = False; // Kutuyu yazmaya açıyoruz

  TiklananKutu.SetFocus;         // Odağı verip klavyeyi ekrana çağırıyoruz

}

// 2. Kullanıcı yazmayı bitirip başka yere DOKUNDUĞUNDA (Çıkış yaptığında) çalışacak bölüm

void KutudanCikildi;

var

  CikanKutu: TclProEdit;

{

  CikanKutu = TclProEdit(AnaForm.Clsender);

  CikanKutu.ReadOnly = True; // Kutuyu tekrar korumaya alıyoruz ki kaydırma bozulmasın

}

// Ana Program Bloğu

{

  AnaForm = TclForm.Create(Self);

  AnaForm.clSetCaption('İçi Boş Kutulu Liste');

  

  // Kaydırma (Scroll) alanını oluşturuyoruz

  KaydirmaAlani = AnaForm.AddNewVertScrollBox(AnaForm, 'KaydirmaAlani');

  KaydirmaAlani.Align = alClient;

  

  // Döngü ile alt alta içi BOŞ TclProEdit (Metin Kutusu) oluşturuyoruz

  for (i = 1 to 15)

  {

    // DİKKAT: En sondaki parametre '' (Boş string). Yani kutunun içi tamamen BOŞ.

    BosKutu = AnaForm.AddNewProEdit(KaydirmaAlani, 'Kutu' + IntToStr(i), '');

    BosKutu.Align = alTop;

    BosKutu.Height = 50;

    BosKutu.Margins.Top = 10;

    BosKutu.Margins.Left = 15;

    BosKutu.Margins.Right = 15;

    

    // Başlangıçta kutuları sadece okunabilir yapıyoruz ki ekranı kaydırırken klavye fırlamasın.

    BosKutu.ReadOnly = True; 

    

    // Tıklama ve Çıkış olaylarını (Event) kutularımıza bağlıyoruz

    AnaForm.AddNewEvent(BosKutu, tbeOnClick, 'KutuyaTiklandi');

    AnaForm.AddNewEvent(BosKutu, tbeOnExit, 'KutudanCikildi');

  }

  

  AnaForm.Run;

}