Clomosy | Forum : Fonksiyonlarım çağırmadan geliyor https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 10:53:21 +0000 Tue, 12 Aug 2025 11:00:10 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1176 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Fonksiyonlarım çağırmadan geliyor : Emirhan kodu düzenledim, aşağıda...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1176&PID=2495#2495 Yazar: Emr.Erkmn
Konu: 1176
Gönderim Zamanı: 12 Ağustos 2025 Saat 11:00

Emirhan kodu düzenledim, aşağıda düzenli hali yer almakta;
 var
 Metin1_Form : TclForm;
 Kelime1Label, Kelime2Label, Kelime3Label, Kelime4Label, Kelime5Label, Kelime6Label : TClProLabel;
 Kelime7Label, Kelime8Label, Kelime9Label, Kelime10Label, Kelime11Label, Kelime12Label : TClProLabel;
 Satir1Panel, Satir2Panel, Satir3Panel, Satir4Panel : TclProPanel;
 AnlamLabel : TClProLabel;
 anlami : String;
 Kontrol : Integer;

void AnlaminiGosterTransformation 
{
  ShowMessage('Dönüşüm');
}

void AnlaminiGosterButterfly 
{
 ShowMessage('Kelebek');
}
{
  Metin1_Form=TclForm.Create(self);

  Kelime2Label = Metin1_Form.AddNewProLabel(Metin1_Form, 'Kelime2Label', 'transformation');
  Kelime2Label.Align = alLeft;
  Kelime2Label.Height = 20;
  Kelime2Label.Width = 200;
  Kelime2Label.Margins.Top = 5;
  Kelime2Label.clProSettings.FontSize = 30;
  Kelime2Label.clProSettings.WordWrap = True;
  Kelime2Label.clProSettings.FontColor = clAlphaColor.clHexToColor('#33a30a');
  Kelime2Label.SetclProSettings(Kelime2Label.clProSettings);
  Metin1_Form.AddNewEvent(Kelime2Label,tbeOnClick, 'AnlaminiGosterTransformation');

  Kelime4Label = Metin1_Form.AddNewProLabel(Metin1_Form, 'Kelime4Label', 'butterfly');
  Kelime4Label.Align = alRight;
  Kelime4Label.Height = 20;
  Kelime4Label.Width = 120;
  Kelime4Label.Margins.Top = 5;
  Kelime4Label.clProSettings.FontSize = 30;
  Kelime4Label.clProSettings.WordWrap = True;
  Kelime4Label.clProSettings.FontColor = clAlphaColor.clHexToColor('#33a30a');
  Kelime4Label.SetclProSettings(Kelime2Label.clProSettings);
  Metin1_Form.AddNewEvent(Kelime4Label,tbeOnClick, 'AnlaminiGosterButterfly');
  
  Metin1_Form.Run;
  }
]]> Tue, 12 Aug 2025 11:00:10 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1176&PID=2495#2495 <![CDATA[Fonksiyonlarım çağırmadan geliyor : VarMetin1_Form : TclForm;Kelime1Label,...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1176&PID=2494#2494 Yazar: Ahmet_27
Konu: 1176
Gönderim Zamanı: 12 Ağustos 2025 Saat 09:49

Var
 Metin1_Form : TclForm;
 Kelime1Label, Kelime2Label, Kelime3Label, Kelime4Label, Kelime5Label, Kelime6Label : TClProLabel;
 Kelime7Label, Kelime8Label, Kelime9Label, Kelime10Label, Kelime11Label, Kelime12Label : TClProLabel;
 Satir1Panel, Satir2Panel, Satir3Panel, Satir4Panel : TclProPanel;
 AnlamLabel : TClProLabel;
 
 anlami : String;
 
 Kontrol : Integer;


void AnlaminiGosterTransformation {
  ShowMessage('Dönüşüm');
}

void AnlaminiGosterButterfly {
  ShowMessage('Kelebek');
}


void AnlaminiGosterTransformation {
  ShowMessage('Dönüşüm');
}

void AnlaminiGosterButterfly {
  ShowMessage('Kelebek');
}



Kelime2Label = Metin1_Form.AddNewProLabel(Satir1Panel, 'Kelime2Label', 'transformation');
  Kelime2Label.Align = alLeft;
  Kelime2Label.Height = 20;
  Kelime2Label.Width = 200;
  Kelime2Label.Margins.Top = 5;
  Kelime2Label.clProSettings.FontSize = 30;
  Kelime2Label.clProSettings.WordWrap = True;
  Kelime2Label.clProSettings.FontColor = clAlphaColor.clHexToColor('#33a30a');
  Kelime2Label.SetclProSettings(Kelime2Label.clProSettings);

  Metin1_Form.AddNewEvent(Kelime2Label,tbeOnClick, AnlaminiGosterTransformation);

  Kelime4Label = Metin1_Form.AddNewProLabel(Satir2Panel, 'Kelime4Label', 'butterfly');
  Kelime4Label.Align = alLeft;
  Kelime4Label.Height = 20;
  Kelime4Label.Width = 120;
  Kelime4Label.Margins.Top = 5;
  Kelime4Label.clProSettings.FontSize = 30;
  Kelime4Label.clProSettings.WordWrap = True;
  Kelime4Label.clProSettings.FontColor = clAlphaColor.clHexToColor('#33a30a');
  Kelime4Label.SetclProSettings(Kelime2Label.clProSettings);

  Metin1_Form.AddNewEvent(Kelime4Label,tbeOnClick, AnlaminiGosterButterfly);





Bu koddaki değişkenler yukarıdaki gibi.
Kelebek diye bir değişkenim yok. O bir showmessage ile ekrana yazılan bir string.
'var' var atmamıştım değişkenleri.
sınıflar türler yukarıdaki gibi.
sağ olun hocam.


dediğim gibi sorunum şu: Butona ekrana showmessage ile mesaj yazdıran event atadım. Daha butonlarıma tıklamadan sayfa açıldığı gibi ikisine de tıklanmış gibi karşıma mesajlar çıkıyor. Daha sonra ben butona bastığımda hata veriyor.

Butona ekrana showmessage ile mesaj yazdıran event atadım. Daha butonlarıma tıklamadan sayfa açıldığı gibi ikisine de tıklanmış gibi karşıma mesajlar çıkıyor. Daha sonra ben butona bastığımda hata veriyor.

/*BasisForm*/
Dönüşüm
TclForm
Syntax error

Source position 1.2

/*BasisForm*/
Kelebek
TclForm
Unkown identifier or variable is not declared 'Kelebek'
source position 1.2
]]> Tue, 12 Aug 2025 09:49:33 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1176&PID=2494#2494 <![CDATA[Fonksiyonlarım çağırmadan geliyor : Merhaba Ahmet,Burada ki kodda...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1176&PID=2493#2493 Yazar: Emr.Erkmn
Konu: 1176
Gönderim Zamanı: 12 Ağustos 2025 Saat 09:41

Merhaba Ahmet, 
Burada ki kodda değişkenler nedir? 
Mesela Kelebek nedir?
Değişken tanımlamadan önce kullandığımız 'var' yok,
Değişkenleri tanımlarken sınıfları ya da türleri belli değil hangisi nedir?
Kodu düzenleyip tekrar atar mısın?
İyi çalışmalar. 
]]> Tue, 12 Aug 2025 09:41:31 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1176&PID=2493#2493 <![CDATA[Fonksiyonlarım çağırmadan geliyor : Butona ekrana showmessage ile...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1176&PID=2492#2492 Yazar: Ahmet_27
Konu: 1176
Gönderim Zamanı: 12 Ağustos 2025 Saat 09:33

Butona ekrana showmessage ile mesaj yazdıran event atadım. Daha butonlarıma tıklamadan sayfa açıldığı gibi ikisine de tıklanmış gibi karşıma mesajlar çıkıyor. Daha sonra ben butona bastığımda hata veriyor.

/*BasisForm*/
Dönüşüm
TclForm
Syntax error

Source position 1.2

/*BasisForm*/
Kelebek
TclForm
Unkown identifier or variable is not declared 'Kelebek'
source position 1.2

kelebek değişken bile değil yani normalde. hem basmadan ilk başta ekrana geliyor ben basınca hata veriyor. hiç bir şey anlamadım.

void AnlaminiGosterTransformation {
  ShowMessage('Dönüşüm');
}

void AnlaminiGosterButterfly {
  ShowMessage('Kelebek');
}



Kelime2Label = Metin1_Form.AddNewProLabel(Satir1Panel, 'Kelime2Label', 'transformation');
  Kelime2Label.Align = alLeft;
  Kelime2Label.Height = 20;
  Kelime2Label.Width = 200;
  Kelime2Label.Margins.Top = 5;
  Kelime2Label.clProSettings.FontSize = 30;
  Kelime2Label.clProSettings.WordWrap = True;
  Kelime2Label.clProSettings.FontColor = clAlphaColor.clHexToColor('#33a30a');
  Kelime2Label.SetclProSettings(Kelime2Label.clProSettings);

  Metin1_Form.AddNewEvent(Kelime2Label,tbeOnClick, AnlaminiGosterTransformation);

  Kelime4Label = Metin1_Form.AddNewProLabel(Satir2Panel, 'Kelime4Label', 'butterfly');
  Kelime4Label.Align = alLeft;
  Kelime4Label.Height = 20;
  Kelime4Label.Width = 120;
  Kelime4Label.Margins.Top = 5;
  Kelime4Label.clProSettings.FontSize = 30;
  Kelime4Label.clProSettings.WordWrap = True;
  Kelime4Label.clProSettings.FontColor = clAlphaColor.clHexToColor('#33a30a');
  Kelime4Label.SetclProSettings(Kelime2Label.clProSettings);

  Metin1_Form.AddNewEvent(Kelime4Label,tbeOnClick, AnlaminiGosterButterfly);
]]> Tue, 12 Aug 2025 09:33:01 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1176&PID=2492#2492