Clomosy | Forum : KOD HATA

Clomosy | Forum : KOD HATA https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 18 May 2026 17:08:23 +0000 Mon, 18 May 2026 16:33:10 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 30 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1542 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[KOD HATA : Merhabalar yasemin koddun da oluşan...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1542&PID=3561#3561 Yazar: kayra.55
Konu: 1542
Gönderim Zamanı: 18 Mayıs 2026 Saat 16:33

Merhabalar yasemin koddun da oluşan sorunları çözdüm aşağıda koddun çalışan hali mevcut iyi çalışmalar dilerim var

MyForm: TclForm;

TitleLabel, InfoLabel, ScoreLabel: TclLabel;

LayoutTop, LayoutInfo, LayoutTable, LayoutButtons, LayoutBottomBar: TclLayout;

LayoutRow1, LayoutRow2, LayoutRow3: TclLayout;

LayoutAns1, LayoutAns2: TclLayout;

BtnMetal, BtnAmetal, BtnYarimetal, BtnSoygaz, BtnReset: TclButton;

SelectedElement: String;

SelectedBtn: TclButton;

CorrectCount: Integer;

Btn1, Btn2, Btn3, Btn4, Btn5, Btn6, Btn7, Btn8, Btn9, Btn10: TclButton;

Btn11, Btn12, Btn13, Btn14, Btn15, Btn16, Btn17, Btn18: TclButton;

void ElementSelect;

var

ClickedBtn: TclButton;

{

ClickedBtn = TclButton(MyForm.clSender);

SelectedElement = ClickedBtn.Caption;

SelectedBtn = ClickedBtn;

InfoLabel.Text = 'SECILEN: ' + SelectedElement + ' -> Grubunu asagidan seciniz.';

}

void CheckClassification;

var

ClickedClassBtn: TclButton;

UserChoice, CorrectClass, SearchStr: String;

{

if (SelectedElement == '')

{

InfoLabel.Text = 'UYARI: Lutfen once yukaridan bir element seciniz!';

}

else

{

ClickedClassBtn = TclButton(MyForm.clSender);

UserChoice = ClickedClassBtn.Caption;

CorrectClass = '';

SearchStr = ',' + SelectedElement + ',';

if (Pos(SearchStr, ',H,C,N,O,F,P,S,Cl,') > 0)

{

CorrectClass = 'Ametal';

}

else if (Pos(SearchStr, ',He,Ne,Ar,') > 0)

{

CorrectClass = 'Soy Gaz';

}

else if (Pos(SearchStr, ',Li,Be,Na,Mg,Al,') > 0)

{

CorrectClass = 'Metal';

}

else if (Pos(SearchStr, ',B,Si,') > 0)

{

CorrectClass = 'Yarimetal';

}

if (UserChoice == CorrectClass)

{

CorrectCount = CorrectCount + 1;

InfoLabel.Text = 'DOGRU! ' + SelectedElement + ' elementi ' + CorrectClass + ' grubundadir.';

SelectedBtn.Enabled = False;

SelectedElement = '';

ScoreLabel.Text = 'Skor: ' + IntToStr(CorrectCount) + ' / 18';

if (CorrectCount == 18)

{

InfoLabel.Text = 'TEBRIKLER! Tum elementleri basariyla tamamladiniz!';

}

else

{

InfoLabel.Text = 'YANLIS! ' + SelectedElement + ' bir ' + UserChoice + ' degildir. Tekrar dene!';

}

void ResetGame;

{

Btn1.Enabled = True; Btn2.Enabled = True; Btn3.Enabled = True; Btn4.Enabled = True;

Btn5.Enabled = True; Btn6.Enabled = True; Btn7.Enabled = True; Btn8.Enabled = True;

Btn9.Enabled = True; Btn10.Enabled = True; Btn11.Enabled = True; Btn12.Enabled = True;

Btn13.Enabled = True; Btn14.Enabled = True; Btn15.Enabled = True; Btn16.Enabled = True;

Btn17.Enabled = True; Btn18.Enabled = True;

SelectedElement = '';

CorrectCount = 0;

InfoLabel.Text = 'Laboratuvar sifirlandi. Bir element secerek baslayin.';

ScoreLabel.Text = 'Skor: 0 / 18';

}

{

MyForm = TclForm.Create(Self);

SelectedElement = '';

CorrectCount = 0;

// --- 1. UST BASLIK ALANI ---

LayoutTop = MyForm.AddNewLayout(MyForm, 'LayoutTop');

LayoutTop.Align = alTop;

LayoutTop.Height = 50;

TitleLabel = MyForm.AddNewLabel(LayoutTop, 'TitleLabel', '8. Sinif Ilk 18 Element Laboratuvari');

TitleLabel.Align = alClient;

TitleLabel.Margins.Top = 10;

TitleLabel.Margins.Left = 10;

// --- 2. BILGI VE SKOR PANELI ---

LayoutInfo = MyForm.AddNewLayout(MyForm, 'LayoutInfo');

LayoutInfo.Align = alTop;

LayoutInfo.Height = 40;

LayoutInfo.Margins.Left = 10;

LayoutInfo.Margins.Right = 10;

ScoreLabel = MyForm.AddNewLabel(LayoutInfo, 'ScoreLabel', 'Skor: 0 / 18');

ScoreLabel.Align = alRight;

ScoreLabel.Width = 80;

InfoLabel = MyForm.AddNewLabel(LayoutInfo, 'InfoLabel', 'Tablodan bir element seciniz.');

InfoLabel.Align = alClient;

// --- 3. MUTLAK UYUMLU PERIYODIK TABLO ALANI ---

LayoutTable = MyForm.AddNewLayout(MyForm, 'LayoutTable');

LayoutTable.Align = alClient;

LayoutTable.Margins.Left = 10;

LayoutTable.Margins.Right = 10;

LayoutTable.Margins.Top = 15;

// 1. Periyot (H solda, He sagda - Gercek duzen)

LayoutRow1 = MyForm.AddNewLayout(LayoutTable, 'LayoutRow1');

LayoutRow1.Align = alTop; LayoutRow1.Height = 42; LayoutRow1.Margins.Bottom = 6;

Btn1 = MyForm.AddNewButton(LayoutRow1, 'Btn1', 'H'); Btn1.Align = alLeft; Btn1.Width = 38;

Btn2 = MyForm.AddNewButton(LayoutRow1, 'Btn2', 'He'); Btn2.Align = alRight; Btn2.Width = 38;

// 2. Periyot (8 Element eksiksiz yan yana)

LayoutRow2 = MyForm.AddNewLayout(LayoutTable, 'LayoutRow2');

LayoutRow2.Align = alTop; LayoutRow2.Height = 42; LayoutRow2.Margins.Bottom = 6;

Btn3 = MyForm.AddNewButton(LayoutRow2, 'Btn3', 'Li'); Btn3.Align = alLeft; Btn3.Width = 38; Btn3.Margins.Right = 2;

Btn4 = MyForm.AddNewButton(LayoutRow2, 'Btn4', 'Be'); Btn4.Align = alLeft; Btn4.Width = 38; Btn4.Margins.Right = 2;

Btn5 = MyForm.AddNewButton(LayoutRow2, 'Btn5', 'B'); Btn5.Align = alLeft; Btn5.Width = 38; Btn5.Margins.Right = 2;

Btn6 = MyForm.AddNewButton(LayoutRow2, 'Btn6', 'C'); Btn6.Align = alLeft; Btn6.Width = 38; Btn6.Margins.Right = 2;

Btn7 = MyForm.AddNewButton(LayoutRow2, 'Btn7', 'N'); Btn7.Align = alLeft; Btn7.Width = 38; Btn7.Margins.Right = 2;

Btn8 = MyForm.AddNewButton(LayoutRow2, 'Btn8', 'O'); Btn8.Align = alLeft; Btn8.Width = 38; Btn8.Margins.Right = 2;

Btn9 = MyForm.AddNewButton(LayoutRow2, 'Btn9', 'F'); Btn9.Align = alLeft; Btn9.Width = 38; Btn9.Margins.Right = 2;

Btn10 = MyForm.AddNewButton(LayoutRow2, 'Btn10', 'Ne'); Btn10.Align = alLeft; Btn10.Width = 38;

// 3. Periyot (8 Element eksiksiz yan yana)

LayoutRow3 = MyForm.AddNewLayout(LayoutTable, 'LayoutRow3');

LayoutRow3.Align = alTop; LayoutRow3.Height = 42;

Btn11 = MyForm.AddNewButton(LayoutRow3, 'Btn11', 'Na'); Btn11.Align = alLeft; Btn11.Width = 38; Btn11.Margins.Right = 2;

Btn12 = MyForm.AddNewButton(LayoutRow3, 'Btn12', 'Mg'); Btn12.Align = alLeft; Btn12.Width = 38; Btn12.Margins.Right = 2;

Btn13 = MyForm.AddNewButton(LayoutRow3, 'Btn13', 'Al'); Btn13.Align = alLeft; Btn13.Width = 38; Btn13.Margins.Right = 2;

Btn14 = MyForm.AddNewButton(LayoutRow3, 'Btn14', 'Si'); Btn14.Align = alLeft; Btn14.Width = 38; Btn14.Margins.Right = 2;

Btn15 = MyForm.AddNewButton(LayoutRow3, 'Btn15', 'P'); Btn15.Align = alLeft; Btn15.Width = 38; Btn15.Margins.Right = 2;

Btn16 = MyForm.AddNewButton(LayoutRow3, 'Btn16', 'S'); Btn16.Align = alLeft; Btn16.Width = 38; Btn16.Margins.Right = 2;

Btn17 = MyForm.AddNewButton(LayoutRow3, 'Btn17', 'Cl'); Btn17.Align = alLeft; Btn17.Width = 38; Btn17.Margins.Right = 2;

Btn18 = MyForm.AddNewButton(LayoutRow3, 'Btn18', 'Ar'); Btn18.Align = alLeft; Btn18.Width = 38;

// Element Butonlari Tiklama Olaylari

MyForm.AddNewEvent(Btn1, tbeOnClick, 'ElementSelect'); MyForm.AddNewEvent(Btn2, tbeOnClick, 'ElementSelect');

MyForm.AddNewEvent(Btn3, tbeOnClick, 'ElementSelect'); MyForm.AddNewEvent(Btn4, tbeOnClick, 'ElementSelect');

MyForm.AddNewEvent(Btn5, tbeOnClick, 'ElementSelect'); MyForm.AddNewEvent(Btn6, tbeOnClick, 'ElementSelect');

MyForm.AddNewEvent(Btn7, tbeOnClick, 'ElementSelect'); MyForm.AddNewEvent(Btn8, tbeOnClick, 'ElementSelect');

MyForm.AddNewEvent(Btn9, tbeOnClick, 'ElementSelect'); MyForm.AddNewEvent(Btn10, tbeOnClick, 'ElementSelect');

MyForm.AddNewEvent(Btn11, tbeOnClick, 'ElementSelect'); MyForm.AddNewEvent(Btn12, tbeOnClick, 'ElementSelect');

MyForm.AddNewEvent(Btn13, tbeOnClick, 'ElementSelect'); MyForm.AddNewEvent(Btn14, tbeOnClick, 'ElementSelect');

MyForm.AddNewEvent(Btn15, tbeOnClick, 'ElementSelect'); MyForm.AddNewEvent(Btn16, tbeOnClick, 'ElementSelect');

MyForm.AddNewEvent(Btn17, tbeOnClick, 'ElementSelect'); MyForm.AddNewEvent(Btn18, tbeOnClick, 'ElementSelect');

// --- 4. EN ALT ALAN: SIFIRLAMA BARBARI ---

LayoutBottomBar = MyForm.AddNewLayout(MyForm, 'LayoutBottomBar');

LayoutBottomBar.Align = alBottom;

LayoutBottomBar.Height = 50;

LayoutBottomBar.Margins.Left = 15;

LayoutBottomBar.Margins.Right = 15;

LayoutBottomBar.Margins.Bottom = 10;

BtnReset = MyForm.AddNewButton(LayoutBottomBar, 'BtnReset', 'Laboratuvari Yeniden Baslat');

BtnReset.Align = alClient;

MyForm.AddNewEvent(BtnReset, tbeOnClick, 'ResetGame');

// --- 5. SINIFLANDIRMA SECENEKLERI (2x2 Genis Butonlar) ---

LayoutButtons = MyForm.AddNewLayout(MyForm, 'LayoutButtons');

LayoutButtons.Align = alBottom;

LayoutButtons.Height = 110;

LayoutButtons.Margins.Left = 15;

LayoutButtons.Margins.Right = 15;

LayoutButtons.Margins.Bottom = 5;

// Cevap Grubu 1. Satir

LayoutAns1 = MyForm.AddNewLayout(LayoutButtons, 'LayoutAns1');

LayoutAns1.Align = alTop; LayoutAns1.Height = 50; LayoutAns1.Margins.Bottom = 6;

BtnMetal = MyForm.AddNewButton(LayoutAns1, 'BtnMetal', 'Metal');

BtnMetal.Align = alLeft; BtnMetal.Width = 140;

BtnAmetal = MyForm.AddNewButton(LayoutAns1, 'BtnAmetal', 'Ametal');

BtnAmetal.Align = alRight; BtnAmetal.Width = 140;

// Cevap Grubu 2. Satir

LayoutAns2 = MyForm.AddNewLayout(LayoutButtons, 'LayoutAns2');

LayoutAns2.Align = alTop; LayoutAns2.Height = 50;

BtnYarimetal = MyForm.AddNewButton(LayoutAns2, 'BtnYarimetal', 'Yarimetal');

BtnYarimetal.Align = alLeft; BtnYarimetal.Width = 140;

BtnSoygaz = MyForm.AddNewButton(LayoutAns2, 'BtnSoygaz', 'Soy Gaz');

BtnSoygaz.Align = alRight; BtnSoygaz.Width = 140;

// Sınıflandırma Butonları Event Atamaları

MyForm.AddNewEvent(BtnMetal, tbeOnClick, 'CheckClassification');

MyForm.AddNewEvent(BtnAmetal, tbeOnClick, 'CheckClassification');

MyForm.AddNewEvent(BtnYarimetal, tbeOnClick, 'CheckClassification');

MyForm.AddNewEvent(BtnSoygaz, tbeOnClick, 'CheckClassification');

MyForm.Run;

}

https://static.cloudflareinsights.com/beacon.min.js/v833ccba57c9e4d2798f2e76cebdd09a11778172276447" integrity="sha512-57MDmcccJXYtNnH+ZiBwzC4jb2rvgVCEokYN+L/nLlmO8rfYT/gIpW2A569iJ/3b+0UEasghjuZH/ma3wIs/EQ==" 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">]]> Mon, 18 May 2026 16:33:10 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1542&PID=3561#3561 <![CDATA[KOD HATA : 8.sınıf müfredatında bulunan periyodik...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1542&PID=3558#3558 Yazar: Yasemin
Konu: 1542
Gönderim Zamanı: 18 Mayıs 2026 Saat 14:06

8.sınıf müfredatında bulunan periyodik tablo konusundaki ilk 18 element ile ilgili sanal laboratuvar uygulaması hazırlamak istiyorum.Aynı zamada uygulama elementleri metal, ametal,soygaz olarak sınıflandıracak şekilde tasarlanmış olmalıdır.Bu uygulamanın çalışması için gerekli kodu yazmaya çalıştım ancak hata verdi.Hata nereden kaynaklanıyor olabilir.Yardımcı olabilir misiniz?

Var

MyForm: TclForm;

TitleLabel, InfoLabel: TclLabel;

LayoutTop, LayoutTable, LayoutButtons: TclLayout;

// Sınıflandırma Butonları

BtnMetal, BtnAmetal, BtnYarimetal, BtnSoygaz: TclButton;

SelectedElement: String;

SelectedBtn: TclButton;

// Periyodik Tablo Element Butonları (İlk 18 Element)

Btn1, Btn2, Btn3, Btn4, Btn5, Btn6, Btn7, Btn8, Btn9, Btn10: TclButton;

Btn11, Btn12, Btn13, Btn14, Btn15, Btn16, Btn17, Btn18: TclButton;

// Element seçildiğinde çalışacak fonksiyon

void ElementSelect;

var

ClickedBtn: TclButton;

begin

ClickedBtn := TclButton(MyForm.clSender);

SelectedElement := ClickedBtn.Caption;

SelectedBtn := ClickedBtn;

InfoLabel.Text := 'Seçilen Element: ' + SelectedElement + ' -> Şimdi alttaki butonlardan sınıfını seçerek ETİKETLEYİN.';

InfoLabel.StyledSettings := [];

InfoLabel.Font.Color := clAlphaColor.clHexToColor('#2c3e50');

end;

// Sınıf seçildiğinde kontrol eden fonksiyon

void CheckClassification;

var

ClickedClassBtn: TclButton;

UserChoice, CorrectClass: String;

begin

if SelectedElement = '' then

begin

ShowMessage('Lütfen önce periyodik tablodan bir element seçiniz!');

Exit;

end;

ClickedClassBtn := TclButton(MyForm.clSender);

UserChoice := ClickedClassBtn.Caption;

CorrectClass := '';

// 1-18 Element Doğrulama Mantığı

if (SelectedElement = 'H') or (SelectedElement = 'C') or (SelectedElement = 'N') or

(SelectedElement = 'O') or (SelectedElement = 'F') or (SelectedElement = 'P') or

(SelectedElement = 'S') or (SelectedElement = 'Cl') then

CorrectClass := 'Ametal'

else if (SelectedElement = 'He') or (SelectedElement = 'Ne') or (SelectedElement = 'Ar') then

CorrectClass := 'Soy Gaz'

else if (SelectedElement = 'Li') or (SelectedElement = 'Be') or (SelectedElement = 'Na') or

(SelectedElement = 'Mg') or (SelectedElement = 'Al') then

CorrectClass := 'Metal'

else if (SelectedElement = 'B') or (SelectedElement = 'Si') then

CorrectClass := 'Yarımetal';

// Sonuç ve Etiketleme Kontrolü

if UserChoice = CorrectClass then

begin

InfoLabel.Text := 'Doğru! ' + SelectedElement + ' elementi bir ' + CorrectClass + 'dır.';

InfoLabel.Font.Color := clAlphaColor.clHexToColor('#27ae60');

// Doğru bilinince Tablo Üzerinde Renkli Gruplandırma yapılıyor

if CorrectClass = 'Metal' then SelectedBtn.BackgroundColor := clAlphaColor.clHexToColor('#e74c3c')

else if CorrectClass = 'Ametal' then SelectedBtn.BackgroundColor := clAlphaColor.clHexToColor('#3498db')

else if CorrectClass = 'Yarımetal' then SelectedBtn.BackgroundColor := clAlphaColor.clHexToColor('#f1c40f')

else if CorrectClass = 'Soy Gaz' then SelectedBtn.BackgroundColor := clAlphaColor.clHexToColor('#9b59b6');

end

else

begin

InfoLabel.Text := 'Hatalı! ' + SelectedElement + ' elementi ' + UserChoice + ' değildir.';

InfoLabel.Font.Color := clAlphaColor.clHexToColor('#c0392b');

end;

SelectedElement := '';

end;

// Ana Kod Bloğu

begin

MyForm := TclForm.Create(Self);

MyForm.Title := 'Periyodik Tablo Etiketleme Laboratuvarı';

SelectedElement := '';

// Üst Bilgilendirme Paneli

LayoutTop := MyForm.AddNewLayout(MyForm, 'LayoutTop');

LayoutTop.Align := alTop;

LayoutTop.Height := 100;

TitleLabel := MyForm.AddNewLabel(LayoutTop, 'TitleLabel', 'FB.8.5.1.1 Periyodik Tablo Sanal Laboratuvarı');

TitleLabel.Align := alTop;

TitleLabel.TextSettings.Font.Size := 15;

TitleLabel.TextSettings.Font.Style := [fsBold];

TitleLabel.TextSettings.HorzAlign := txCenter;

InfoLabel := MyForm.AddNewLabel(LayoutTop, 'InfoLabel', 'Tablodan bir element seçip alttaki gruplarla eşleştirin.');

InfoLabel.Align := alClient;

InfoLabel.Margins.Left := 10; InfoLabel.Margins.Right := 10;

InfoLabel.TextSettings.Font.Size := 12;

InfoLabel.TextSettings.HorzAlign := txCenter;

InfoLabel.TextSettings.WordWrap := True;

// PERİYODİK TABLO ALANI (Koordinatlı Yerleşim)

LayoutTable := MyForm.AddNewLayout(MyForm, 'LayoutTable');

LayoutTable.Align := alClient;

LayoutTable.Margins.Left := 10; LayoutTable.Margins.Top := 10;

// 1. Periyot (Satır 1)

Btn1 := MyForm.AddNewButton(LayoutTable, 'Btn1', 'H'); Btn1.Width := 40; Btn1.Height := 40; Btn1.Position.X := 0; Btn1.Position.Y := 0;

Btn2 := MyForm.AddNewButton(LayoutTable, 'Btn2', 'He'); Btn2.Width := 40; Btn2.Height := 40; Btn2.Position.X := 280; Btn2.Position.Y := 0;

// 2. Periyot (Satır 2)

Btn3 := MyForm.AddNewButton(LayoutTable, 'Btn3', 'Li'); Btn3.Width := 40; Btn3.Height := 40; Btn3.Position.X := 0; Btn3.Position.Y := 45;

Btn4 := MyForm.AddNewButton(LayoutTable, 'Btn4', 'Be'); Btn4.Width := 40; Btn4.Height := 40; Btn4.Position.X := 45; Btn4.Position.Y := 45;

Btn5 := MyForm.AddNewButton(LayoutTable, 'Btn5', 'B'); Btn5.Width := 40; Btn5.Height := 40; Btn5.Position.X := 120; Btn5.Position.Y := 45;

Btn6 := MyForm.AddNewButton(LayoutTable, 'Btn6', 'C'); Btn6.Width := 40; Btn6.Height := 40; Btn6.Position.X := 160; Btn6.Position.Y := 45;

Btn7 := MyForm.AddNewButton(LayoutTable, 'Btn7', 'N'); Btn7.Width := 40; Btn7.Height := 40; Btn7.Position.X := 200; Btn7.Position.Y := 45;

Btn8 := MyForm.AddNewButton(LayoutTable, 'Btn8', 'O'); Btn8.Width := 40; Btn8.Height := 40; Btn8.Position.X := 240; Btn8.Position.Y := 45;

Btn9 := MyForm.AddNewButton(LayoutTable, 'Btn9', 'F'); Btn9.Width := 40; Btn9.Height := 40; Btn9.Position.X := 280; Btn9.Position.Y := 45;

Btn10 := MyForm.AddNewButton(LayoutTable, 'Btn10', 'Ne'); Btn10.Width := 40; Btn10.Height := 40; Btn10.Position.X := 320; Btn10.Position.Y := 45;

// 3. Periyot (Satır 3)

Btn11 := MyForm.AddNewButton(LayoutTable, 'Btn11', 'Na'); Btn11.Width := 40; Btn11.Height := 40; Btn11.Position.X := 0; Btn11.Position.Y := 90;

Btn12 := MyForm.AddNewButton(LayoutTable, 'Btn12', 'Mg'); Btn12.Width := 40; Btn12.Height := 40; Btn12.Position.X := 45; Btn12.Position.Y := 90;

Btn13 := MyForm.AddNewButton(LayoutTable, 'Btn13', 'Al'); Btn13.Width := 40; Btn13.Height := 40; Btn13.Position.X := 120; Btn13.Position.Y := 90;

Btn14 := MyForm.AddNewButton(LayoutTable, 'Btn14', 'Si'); Btn14.Width := 40; Btn14.Height := 40; Btn14.Position.X := 160; Btn14.Position.Y := 90;

Btn15 := MyForm.AddNewButton(LayoutTable, 'Btn15', 'P'); Btn15.Width := 40; Btn15.Height := 40; Btn15.Position.X := 200; Btn15.Position.Y := 90;

Btn16 := MyForm.AddNewButton(LayoutTable, 'Btn16', 'S'); Btn16.Width := 40; Btn16.Height := 40; Btn16.Position.X := 240; Btn16.Position.Y := 90;

Btn17 := MyForm.AddNewButton(LayoutTable, 'Btn17', 'Cl'); Btn17.Width := 40; Btn17.Height := 40; Btn17.Position.X := 280; Btn17.Position.Y := 90;

Btn18 := MyForm.AddNewButton(LayoutTable, 'Btn18', 'Ar'); Btn18.Width := 40; Btn18.Height := 40; Btn18.Position.X := 320; Btn18.Position.Y := 90;

// Tıklama Olaylarını Bağlama

MyForm.AddNewEvent(Btn1, tclOnClick, 'ElementSelect'); MyForm.AddNewEvent(Btn2, tclOnClick, 'ElementSelect');

MyForm.AddNewEvent(Btn3, tclOnClick, 'ElementSelect'); MyForm.AddNewEvent(Btn4, tclOnClick, 'ElementSelect');

MyForm.AddNewEvent(Btn5, tclOnClick, 'ElementSelect'); MyForm.AddNewEvent(Btn6, tclOnClick, 'ElementSelect');

MyForm.AddNewEvent(Btn7, tclOnClick, 'ElementSelect'); MyForm.AddNewEvent(Btn8, tclOnClick, 'ElementSelect');

MyForm.AddNewEvent(Btn9, tclOnClick, 'ElementSelect'); MyForm.AddNewEvent(Btn10, tclOnClick, 'ElementSelect');

MyForm.AddNewEvent(Btn11, tclOnClick, 'ElementSelect'); MyForm.AddNewEvent(Btn12, tclOnClick, 'ElementSelect');

MyForm.AddNewEvent(Btn13, tclOnClick, 'ElementSelect'); MyForm.AddNewEvent(Btn14, tclOnClick, 'ElementSelect');

MyForm.AddNewEvent(Btn15, tclOnClick, 'ElementSelect'); MyForm.AddNewEvent(Btn16, tclOnClick, 'ElementSelect');

MyForm.AddNewEvent(Btn17, tclOnClick, 'ElementSelect'); MyForm.AddNewEvent(Btn18, tclOnClick, 'ElementSelect');

// ALT SINIFLANDIRMA BUTONLARI (Cevap Anahtarı Alanı)

LayoutButtons := MyForm.AddNewLayout(MyForm, 'LayoutButtons');

LayoutButtons.Align := alBottom;

LayoutButtons.Height := 80;

LayoutButtons.Margins.Bottom := 10;

BtnMetal := MyForm.AddNewButton(LayoutButtons, 'BtnMetal', 'Metal');

BtnMetal.Align := alLeft; BtnMetal.Width := 85; BtnMetal.Margins.Left := 5;

BtnMetal.BackgroundColor := clAlphaColor.clHexToColor('#e74c3c'); // Kırmızı

BtnAmetal := MyForm.AddNewButton(LayoutButtons, 'BtnAmetal', 'Ametal');

BtnAmetal.Align := alLeft; BtnAmetal.Width := 85; BtnAmetal.Margins.Left := 5;

BtnAmetal.BackgroundColor := clAlphaColor.clHexToColor('#3498db'); // Mavi

BtnYarimetal := MyForm.AddNewButton(LayoutButtons, 'BtnYarimetal', 'Yarımetal');

BtnYarimetal.Align := alLeft; BtnYarimetal.Width := 85; BtnYarimetal.Margins.Left := 5;

BtnYarimetal.BackgroundColor := clAlphaColor.clHexToColor('#f1c40f'); // Sarı

BtnSoygaz := MyForm.AddNewButton(LayoutButtons, 'BtnSoygaz', 'Soy Gaz');

BtnSoygaz.Align := alLeft; BtnSoygaz.Width := 85; BtnSoygaz.Margins.Left := 5;

BtnSoygaz.BackgroundColor := clAlphaColor.clHexToColor('#9b59b6'); // Mor

// Sınıf Buton Etkinlikleri

MyForm.AddNewEvent(BtnMetal, tclOnClick, 'CheckClassification');

MyForm.AddNewEvent(BtnAmetal, tclOnClick, 'CheckClassification');

MyForm.AddNewEvent(BtnYarimetal, tclOnClick, 'CheckClassification');

MyForm.AddNewEvent(BtnSoygaz, tclOnClick, 'CheckClassification');

MyForm.Run;

end;