Clomosy | Forum : Fonksiyon kullanırken çalışma zamanı hatası https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 15 Apr 2026 04:34:36 +0000 Tue, 16 Sep 2025 18:25:57 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1192 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Fonksiyon kullanırken çalışma zamanı hatası : Evet Güney, OnChange olayı her...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1192&PID=2539#2539 Yazar: Emr.Erkmn
Konu: 1192
Gönderim Zamanı: 16 Eylül 2025 Saat 18:25

Evet Güney,

OnChange olayı her veri girişinde tetiklendiği için yoğun kullanımda sunucuya gereksiz yük bindirebilir ve performans sorunları yaratabilir.

OnExit veya Buton ile tetikleme kullanmak daha kontrollü ve performanslı bir çözümdür; işlem yalnızca kullanıcı bilinçli olarak başlattığında çalışır.

]]> Tue, 16 Sep 2025 18:25:57 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1192&PID=2539#2539 <![CDATA[Fonksiyon kullanırken çalışma zamanı hatası : mainForm.AddNewEvent(editInput,...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1192&PID=2538#2538 Yazar: M-Guney
Konu: 1192
Gönderim Zamanı: 16 Eylül 2025 Saat 17:47

mainForm.AddNewEvent(editInput, tbeOnChange, 'EditOnChange');
void EditOnChange {
  ChangeImg;
}

OnChange durumda olması fazla kullanıcının bulunduğu bir seneryoda sisteme yük bindirir mi ? 

Editin nasıl kullanılması gerektiğini daha iyi anladım teşşekür ederim.


]]> Tue, 16 Sep 2025 17:47:29 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1192&PID=2538#2538 <![CDATA[Fonksiyon kullanırken çalışma zamanı hatası : Merhaba Güney,Aşağıda yer alan...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1192&PID=2537#2537 Yazar: Emr.Erkmn
Konu: 1192
Gönderim Zamanı: 16 Eylül 2025 Saat 15:41

Merhaba Güney, 
Aşağıda yer alan kodu inceler misin?
  mainForm: TclForm;
  testImage: TClProImage;
  editInput: TClProEdit;
  userinput: String;

function GetUserInput: String {
  userinput = editInput.Text;
  userinput = AnsiLowerCase(Trim(userinput));
  Result = userinput;
}

function GetImageUrl(animal: String): String {
  if (animal == 'tilki') {
    Result = 'https://resmim.net/cdn/2025/09/16/jEiO8W.png';
  } else if (animal == 'kedi') {
    Result = 'https://resmim.net/cdn/2025/09/16/jEi7hL.png';
  } else {
    Result = '';
  }
}

void ChangeImg 
  var imageUrl: String;
{
  userinput = GetUserInput;
  imageUrl = GetImageUrl(userinput);
  
  if (imageUrl <> '') {
    mainForm.SetImage(testImage, imageUrl);
  } else {
    ShowMessage('Elimizde yok Malesef...');
  }
}

void EditOnChange {
  ChangeImg;
}

void CreateEdit {
  editInput = mainForm.AddNewProEdit(mainForm, 'editInput', 'Hayvan yazın (kedi/tilki)');
  editInput.Align = alTop;
  editInput.Height = 50;
  editInput.Margins.Top = 20;
  editInput.Margins.Left = 20;
  editInput.Margins.Right = 20;
  editInput.clProSettings.FontSize = 16;
  editInput.clProSettings.FontColor = clAlphaColor.clHexToColor('#2C3E50');
  editInput.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ECF0F1');
  editInput.clProSettings.RoundHeight = 10;
  editInput.clProSettings.RoundWidth = 10;
  editInput.SetclProSettings(editInput.clProSettings);
  mainForm.AddNewEvent(editInput, tbeOnChange, 'EditOnChange');
}

void CreateImage {
  testImage = mainForm.AddNewProImage(mainForm, 'testImg');
  testImage.Align = alClient;
  testImage.Margins.Top = 20;
  testImage.Margins.Bottom = 20;
  testImage.Margins.Left = 20;
  testImage.Margins.Right = 20;
}

void SetupForm {
  mainForm = TclForm.Create(self);
  mainForm.clSetWindowState(fwsMaximized);
}

{
  SetupForm;
  CreateEdit;
  CreateImage;
  mainForm.Run;
}
Bu şekil de bir düzeltme yaptım.

]]> Tue, 16 Sep 2025 15:41:22 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1192&PID=2537#2537 <![CDATA[Fonksiyon kullanırken çalışma zamanı hatası : Fonksiyon ve prosedür kullanarak...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1192&PID=2536#2536 Yazar: M-Guney
Konu: 1192
Gönderim Zamanı: 16 Eylül 2025 Saat 15:01

Fonksiyon ve prosedür kullanarak kullanıcıdan inputandcall ile alınmış olan input ile resmin değişeceği bir kodu işlevsel bir şekilde yazmayı denedim fakat çalışırken aynı anda hepsi çalışıtığı için istediğim resim gözükmüyor.






var
mainForm: TClForm;
testImage: TCLImage;
userinput : String;
function TakeUserInput:String;
{
if(VarIsNull(userinput))
InputAndCall('Hayvan Seçiniz Kedi ya da Tilki','--- ','TakeUserInput','Exit');
else 
  {
  userinput = Clomosy.GlobalResult;
  userinput = AnsiLowerCase(userinput);
  Result= userinput;}
  //ShowMessage('userinput: '+userinput);
}
void ChangeImg(userinput:String)
{
//mainForm= TClForm.Create(self);
//testImage= mainForm.AddNewImage(mainForm,'testImg');
  if(userinput=='tilki')
  {
    testImage.MultiResBitMap.Clear;
    mainForm.SetImage(testImage, 'https://pngimg.com/d/arctic_fox_PNG115432.png');
    mainForm.AddNewEvent(testImage,tbeOnClick,'ChangeImg');
  }
  else if(userinput=='kedi')
  {
    testImage.MultiResBitMap.Clear;
    mainForm.SetImage(testImage, 'https://pngimg.com/d/cat_PNG115405.png');
    mainForm.AddNewEvent(testImage,tbeOnClick,'ChangeImg');
  }
  else if((userinput== '')||(userinput== '--'))
  ChangeImg(userinput);
  else 
  ShowMessage('Elimizde yok Malesef...');
  mainForm.run;
}
{
  mainForm= TClForm.Create(self);
  testImage= mainForm.AddNewImage(mainForm,'testImg');
  
  InputAndCall('Hayvan Seçiniz Kedi ya da Tilki','--- ','TakeUserInput','Exit');
  //if (userinput > 0)//(Length(userinput)>=3)
    //{
    ShowMessage('Input: '+userinput+ IntToStr(Length(userinput)));
    //mainForm.AddNewEvent(InputAndCall, tbeOnEnter, 'ChangeImg(userinput)');
    ChangeImg(userinput);
    testImage.align= alCenter;
    testImage.Height= 400;
    testImage.width= 200;
    mainForm.run;

}
]]> Tue, 16 Sep 2025 15:01:08 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1192&PID=2536#2536