Sayfayı Yazdır | Pencereyi Kapat

TclMemo dan veri alma

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Form Oluşturma
Forum Adı: TclForm Oluşturma
Forum Tanımlaması: Standart bir form oluşturma
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=951
Tarih: 04 Ocak 2025 Saat 10:51
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: TclMemo dan veri alma
Mesajı Yazan: GMS16
Konu: TclMemo dan veri alma
Mesaj Tarihi: 01 Kasım 2024 Saat 16:41
TclMemodan  toplu olarak nasil veri çekebiliriz mesela birden fazla edite.



Cevaplar:
Mesajı Yazan: Yusuf Eren
Mesaj Tarihi: 04 Kasım 2024 Saat 09:27
Merhaba GSM16 .TclMemo nesnesinden toplu veri çekimi gerçekleştirmek için Memo1.Text şeklinde kullanım sağlayabilirsiniz. Aşağıda, TclMemo'dan TclEdit'e veri aktarımı yapan örnek kod yer almaktadır. Daha fazla bilgi için  https://www.docs.clomosy.com/index.php/TclMemo" rel="nofollow - https://www.docs.clomosy.com/index.php/TclMemo sayfasını ziyaret edebilirsiniz.

 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;
}




Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net