Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - kapatmak yerine üstüne yazıyor
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

kapatmak yerine üstüne yazıyor
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
ErenTotan Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 20 Saat 12 Dakika Önce
Konum: Konya
Durum: Aktif Değil
Puanlar: 4 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı ErenTotan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: kapatmak yerine üstüne yazıyor
    Gönderim Zamanı: 2 Saat 34 Dakika Önce Saat 09:47
< defer="" ="https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"_timing":"name":"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true,"location_startswith":null" crossorigin="anonymous">





go back to main fonksiyonu schedule üzerinde çalışsa da student ta bu şekilde saçmalıyor 

student parçası:
var
  StudentForm: TclForm;
  lblStudentTitle: TclLabel;
  // Bütün giriş kutularımız
  edtStudentName, edtStudentClass, edtStudentDept, edtStudentPhone: TclEdit;
  // Butonlarımız
  btnAddStudent, btnClearAll, btnBackToMain: TclProButton;
  myStudentListView: TclListView;
  StudentJSONContent: String; 

void GoBackToMain;
{
 StudentForm.Close;
}

void ClearAllStudents;
{
  
  StudentJSONContent = '';
  myStudentListView.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[]'));
  ShowMessage('Liste tamamen temizlendi!');
}

void AddNewStudent;
var
  subTextData: String;
{
  
  if (edtStudentName.Text == '')
  {
    ShowMessage('Lütfen en azından öğrenci adını yazın!');
  }
  else
  {
    
    subTextData = edtStudentClass.Text + ' Sınıfı | ' + edtStudentDept.Text + ' | Tel: ' + edtStudentPhone.Text;
    
    
    if (StudentJSONContent <> '')
    {
      StudentJSONContent = StudentJSONContent + ', ';
    }

    
    StudentJSONContent = StudentJSONContent + '{"MAIN_TEXT":"' + edtStudentName.Text + '", "SUB_TEXT":"' + subTextData + '"}';
    
    
    myStudentListView.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[' + StudentJSONContent + ']'));
    
    
    edtStudentName.Text = '';
    edtStudentClass.Text = '';
    edtStudentDept.Text = '';
    edtStudentPhone.Text = '';
  }
}

{
  StudentForm = TclForm.Create(Self);
  

  lblStudentTitle = StudentForm.AddNewLabel(StudentForm, 'lblStudentTitle', '👥 Öğrenci Portföyü');
  lblStudentTitle.Align = alTop;
  lblStudentTitle.Margins.Top = 20;
  lblStudentTitle.Height = 40;
  lblStudentTitle.TextSettings.Font.Size = 24;
  lblStudentTitle.TextSettings.Font.Style = [fsBold];
  
 
  edtStudentName = StudentForm.AddNewEdit(StudentForm, 'edtStudentName', 'Öğrenci Adı ve Soyadı...');
  edtStudentName.Align = alTop;
  edtStudentName.Margins.Top = 10;
  edtStudentName.Margins.Left = 20;
  edtStudentName.Margins.Right = 20;
  edtStudentName.Height = 40;

  edtStudentClass = StudentForm.AddNewEdit(StudentForm, 'edtStudentClass', 'Sınıfı (Örn: 12-A)...');
  edtStudentClass.Align = alTop;
  edtStudentClass.Margins.Top = 5;
  edtStudentClass.Margins.Left = 20;
  edtStudentClass.Margins.Right = 20;
  edtStudentClass.Height = 40;

  edtStudentDept = StudentForm.AddNewEdit(StudentForm, 'edtStudentDept', 'Bölümü (Örn: Sayısal)...');
  edtStudentDept.Align = alTop;
  edtStudentDept.Margins.Top = 5;
  edtStudentDept.Margins.Left = 20;
  edtStudentDept.Margins.Right = 20;
  edtStudentDept.Height = 40;

  edtStudentPhone = StudentForm.AddNewEdit(StudentForm, 'edtStudentPhone', 'İletişim Numarası...');
  edtStudentPhone.Align = alTop;
  edtStudentPhone.Margins.Top = 5;
  edtStudentPhone.Margins.Left = 20;
  edtStudentPhone.Margins.Right = 20;
  edtStudentPhone.Height = 40;

  
  btnAddStudent = StudentForm.AddNewProButton(StudentForm, 'btnAddStudent', '➕ Listeye Ekle');
  btnAddStudent.Align = alTop;
  btnAddStudent.Margins.Top = 10;
  btnAddStudent.Margins.Left = 20;
  btnAddStudent.Margins.Right = 20;
  btnAddStudent.Height = 45;
  btnAddStudent.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#10B981'); // Yeşil
  btnAddStudent.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  btnAddStudent.clProSettings.RoundHeight = 10;
  btnAddStudent.clProSettings.RoundWidth = 10;
  btnAddStudent.SetclProSettings(btnAddStudent.clProSettings);
  StudentForm.AddNewEvent(btnAddStudent, tbeOnClick, 'AddNewStudent');

  btnClearAll = StudentForm.AddNewProButton(StudentForm, 'btnClearAll', '🗑️ Listeyi Sıfırla');
  btnClearAll.Align = alTop;
  btnClearAll.Margins.Top = 5;
  btnClearAll.Margins.Left = 20;
  btnClearAll.Margins.Right = 20;
  btnClearAll.Height = 40;
  btnClearAll.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F59E0B'); // Turuncu
  btnClearAll.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  btnClearAll.clProSettings.RoundHeight = 10;
  btnClearAll.clProSettings.RoundWidth = 10;
  btnClearAll.SetclProSettings(btnClearAll.clProSettings);
  StudentForm.AddNewEvent(btnClearAll, tbeOnClick, 'ClearAllStudents');

  
  StudentJSONContent = '{"MAIN_TEXT":"Örnek Öğrenci", "SUB_TEXT":"12-A Sınıfı | Sayısal | Tel: 0555..."}';

  myStudentListView = StudentForm.AddNewListView(StudentForm, 'myStudentListView');
  myStudentListView.Align = alClient; 
  myStudentListView.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[' + StudentJSONContent + ']'));

  
  btnBackToMain = StudentForm.AddNewProButton(StudentForm, 'btnBackToMain', '⬅ Ana Menüye Dön');
  btnBackToMain.Align = alBottom;
  btnBackToMain.Height = 60;
  btnBackToMain.Margins.Bottom = 30;
  btnBackToMain.Margins.Left = 30;
  btnBackToMain.Margins.Right = 30;
  btnBackToMain.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#EF4444');
  btnBackToMain.clProSettings.RoundHeight = 15;
  btnBackToMain.clProSettings.RoundWidth = 15;
  btnBackToMain.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  btnBackToMain.clProSettings.FontSize = 16;
  btnBackToMain.SetclProSettings(btnBackToMain.clProSettings);
  StudentForm.AddNewEvent(btnBackToMain, tbeOnClick, 'GoBackToMain');

  StudentForm.Run;
}


schedule kısmı:
var
ScheduleForm : TclForm;
lblScheduleTitle:TCLLabel;
btnBackToMain:TClProButton;

void GoBackToMain;
{
ScheduleForm.Close;
}

{

lblScheduleTitle=ScheduleForm.AddNewLabel(ScheduleForm,'lblScheduleTitle','📅 Etüt Programı');
lblScheduleTitle.Align=alTop;
lblScheduleTitle.Margins.Top=40;
lblScheduleTitle.Height=40;
lblScheduleTitle.TextSettings.Font.Size = 24;
lblScheduleTitle.TextSettings.Font.Style=[fsBold];

//////////////////
//Tasarım kısmı//
////////////////




btnBackToMain=ScheduleForm.AddNewProButton(ScheduleForm, 'btnBackToMain', '⬅ Ana Menüye Dön');
btnBackToMain.Align=alBottom;
btnBackToMain.Height=60;
btnBackToMain.Margins.Bottom=30;
btnBackToMain.Margins.Left=30;
btnBackToMain.Margins.Right=30;
btnBackToMain.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#EF4444');
btnBackToMain.clProSettings.RoundHeight = 15;
btnBackToMain.clProSettings.RoundWidth = 15;
btnBackToMain.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
btnBackToMain.clProSettings.FontSize = 16;
btnBackToMain.SetclProSettings(btnBackToMain.clProSettings);
ScheduleForm.AddNewEvent(btnBackToMain,tbeOnClick,'GoBackToMain');

ScheduleForm.Run;
}
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 936 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 1 saat 55 Dakika Önce Saat 10:26
Merhaba 
Formlar arası geçişte https://www.docs.clomosy.com/index.php?title=TclUnit kullanır mısın https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,031 Saniyede Yüklendi.