var
MyForm:TclForm;
noteMemo : TclMemo;
testButton : TclButton;
testEdit : TclEdit;
testEdit2 : TclEdit;
testEdit3 : TclEdit;
testEdit4 : TclEdit;
while_dongu_tut : Integer;
str_tut : String;
satir_sayisi : Integer;
void Click;
{
while_dongu_tut = 1;
str_tut = noteMemo.Text;
satir_sayisi = noteMemo.Lines.Count;
while (while_dongu_tut <= satir_sayisi)
{
if (while_dongu_tut == 1)
{
testEdit.Text = noteMemo.Lines.Text;
noteMemo.Lines.Delete(0);
}
else if (while_dongu_tut == 2)
{
testEdit2.Text = noteMemo.Lines.Text;
noteMemo.Lines.Delete(0);
}
else if(while_dongu_tut == 3)
{
testEdit3.Text = noteMemo.Lines.Text;
noteMemo.Lines.Delete(0);
}
else if(while_dongu_tut == 4)
{
testEdit4.Text = noteMemo.Lines.Text;
noteMemo.Lines.Delete(0);
}
while_dongu_tut = while_dongu_tut + 1;
}
noteMemo.Text = str_tut;
}
{
MyForm = TclForm.Create(Self);
noteMemo = MyForm.AddNewMemo(MyForm,'noteMemo','');
noteMemo.StyledSettings = ssFamily;
noteMemo.align = alTop;
noteMemo.Lines.Add('testButton1 içine yazılacaklar');
noteMemo.Lines.Add('testButton2 içine yazılacaklar');
noteMemo.Lines.Add('testButton3 içine yazılacaklar');
noteMemo.Lines.Add('testButton4 içine yazılacaklar');
noteMemo.Height = 200;
noteMemo.Width = 150;
testButton = MyForm.AddNewButton(MyForm,'testButton','Click');
testButton.StyledSettings = ssFamily;
testButton.TextSettings.Font.Size = 20;
testButton.TextSettings.FontColor = clAlphaColor.clHexToColor('#8a067c');
testButton.align = alTop;
MyForm.AddNewEvent(testButton,tbeOnClick,'Click');
testEdit = MyForm.AddNewEdit(MyForm,'testEdit','testEdit');
testEdit.StyledSettings = ssFamily;
testEdit.TextSettings.Font.Size = 20;
testEdit.clTypeOfField = taString;
testEdit.align = alBottom;
testEdit.ReadOnly = False;
testEdit2 = MyForm.AddNewEdit(MyForm,'testEdit2','testEdit2');
testEdit2.StyledSettings = ssFamily;
testEdit2.TextSettings.Font.Size = 20;
testEdit2.clTypeOfField = taString;
testEdit2.align = alBottom;
testEdit2.ReadOnly = False;
testEdit3 = MyForm.AddNewEdit(MyForm,'testEdit3','testEdit3');
testEdit3.StyledSettings = ssFamily;
testEdit3.TextSettings.Font.Size = 20;
testEdit3.clTypeOfField = taString;
testEdit3.align = alBottom;
testEdit3.ReadOnly = False;
testEdit4 = MyForm.AddNewEdit(MyForm,'testEdit4','testEdit4');
testEdit4.StyledSettings = ssFamily;
testEdit4.TextSettings.Font.Size = 20;
testEdit4.clTypeOfField = taString;
testEdit4.align = alBottom;
testEdit4.ReadOnly = False;
MyForm.Run;
}