Clomosy | Forum : Formun S�f�rlanmas�

Formun S�f�rlanmas� : Merhaba Kaan,Başka bir hata alırsan...

Tue, 14 Oct 2025 08:58:45 +0000

Yazar: Emr.Erkmn
Konu: 1206
G�nderim Zaman�: 14 Ekim 2025 Saat 08:58

Merhaba Kaan,
Ba�ka bir hata al�rsan tekrar foruma sorabilirsin.
�yi �al��malar.

Formun S�f�rlanmas� : Editteki kelimeyi labele ekleyip...

Mon, 13 Oct 2025 18:28:09 +0000

Yazar: kaanl0
Konu: 1206
G�nderim Zaman�: 13 Ekim 2025 Saat 18:28

Editteki kelimeyi labele ekleyip geri geldi�imizde form yeniden ba�lat�ld�� i�in yazd�rd��m�z kelime kayboluyordu bu y�zden yazd�rd��m�z kelimeyi sadece 1 kere �al��an bir homepage isimli unite farkl� bir isimde kaydedip tekrar yazd�r�nca sorun ��z�ld�

Formun S�f�rlanmas� : Anakoda dön butonu çalışmıyor...

Mon, 13 Oct 2025 11:37:19 +0000

Yazar: kaanl0
Konu: 1206
G�nderim Zaman�: 13 Ekim 2025 Saat 11:37

Anakoda d�n butonu �al��m�yor ve editi labele yazd�ram�yorum san�r�m eventler eksik ya da hatal�. Tam anlayamad�m

Formun S�f�rlanmas� : Nereden hata geldi Kaan

Mon, 13 Oct 2025 10:40:19 +0000

Yazar: Emr.Erkmn
Konu: 1206
G�nderim Zaman�: 13 Ekim 2025 Saat 10:40

Nereden hata geldi Kaan

Formun S�f�rlanmas� : 2. yöntemdeki kodu tam çalıştıramadığım...

Mon, 13 Oct 2025 09:15:34 +0000

Yazar: kaanl0
Konu: 1206
G�nderim Zaman�: 13 Ekim 2025 Saat 09:15

2. y�ntemdeki kodu tam �al��t�ramad��m i�in nas�l oldu�unu anlayamad�m

Formun S�f�rlanmas� : Bir diğer çözüm de,Üye verilerini...

Fri, 10 Oct 2025 17:32:45 +0000

Yazar: Emr.Erkmn
Konu: 1206
G�nderim Zaman�: 10 Ekim 2025 Saat 17:32

Bir di�er ��z�m de,
�ye verilerini tutmak i�in bir lib olu�turup sonra da formu standart unit ile de�il de
kullan�c� �zelinde ister parametrik ister kendi iste�iyle uses olarak kullan�ld�.
Form kapan�rken de veriyi lib de ki de�i�kene at�ld�.
Daha farkl� yap�larla da yap�labilir.

--anakod--

uses

uMemberLib,uLogin;

var

Form1: TCLForm;

BtnAnaKod: TclButton;

LblAnaKod: TclLabel;

uMutfak: TclUnit;

LoginForm:TCLForm;

void BtnAnaKodOnClick(Sender){

LoginForm = uLogin.Create;

uLogin.Edit1.Text = uMemberLib.UserName;

LoginForm.Show;

}

{

Form1 = TCLForm.Create(Self);

Form1.clSetCaption('Ana Kod');

uMemberLib.Init;

LblAnaKod = Form1.AddNewLabel(Form1, 'LblAnaKod', 'Ana Kod');

LblAnaKod.Align = alTop;

LblAnaKod.Height = 70;

LblAnaKod.StyledSettings = ssFamily;

LblAnaKod.TextSettings.Font.Size = 20;

BtnAnaKod = Form1.AddNewButton(Form1, 'btnAnaKod', 'Birime git!');

BtnAnaKod.Width = 100;

BtnAnaKod.OnClick = 'BtnAnaKodOnClick'

Form1.Run;

}
--------uLogin-------------

var

Form2: TCLForm;

Button2: TclButton;

Edit1: TclEdit;

LblBirim: TclLabel;

void Form2OnCloseQuery{

uMemberLib.UserName = Edit1.Text;

}

function Create:TCLForm;

{

Form2 = TCLForm.Create(Self);

Form2.AddNewEvent(Form2,tbeOnFormCloseQuery,'Form2OnCloseQuery');

Form2.clSetCaption('Birim');

// Label olu�tur

LblBirim = Form2.AddNewLabel(Form2, 'LblBirim', 'Edit i�eri�i burada g�r�necek');

LblBirim.Align = alTop;

LblBirim.Height = 50;

LblBirim.StyledSettings = ssFamily;

LblBirim.TextSettings.Font.Size = 16;

LblBirim.TextSettings.Font.Style = [fsBold];

// Edit olu�tur

Edit1 = Form2.AddNewEdit(Form2, 'Edit1', 'Buraya yaz�n...');

Edit1.Align = alTop;

Edit1.Height = 40;

Edit1.Margins.Top = 10;

Edit1.Margins.Left = 20;

Edit1.Margins.Right = 20;

// Buton olu�tur

Button2 = Form2.AddNewButton(Form2, 'Button2', 'Ana Koda D�n');

Button2.Align = alTop;

Button2.Height = 50;

Button2.Margins.Top = 20;

Button2.Margins.Left = 20;

Button2.Margins.Right = 20;

Result = Form2;

}

void Show{

Form2.Run;

}

void Hide{

Form2.ClHide;

}

----------uMemberlib------------ (Birim dili = TRLibrary)

var

UserName,

Password:string;

void init;

{

UserName = '';

Password = '';

}

Formun S�f�rlanmas� : Merhaba Kaan,Bir kaç çözüm denedim,GlobalVariableString...

Fri, 10 Oct 2025 14:56:10 +0000

Yazar: Emr.Erkmn
Konu: 1206
G�nderim Zaman�: 10 Ekim 2025 Saat 14:56

Merhaba Kaan,
Bir ka� ��z�m denedim,
GlobalVariableString ile yapt�m, a�a��da kodu b�rak�yorum,

----------------Anakod-----------------

var

Form1: TCLForm;

BtnAnaKod: TclButton;

LblAnaKod: TclLabel;

uMutfak: TclUnit;

void BirimeGit {

{

uMutfak.UnitName = 'uLogin';

uMutfak.CallerForm = Form1;

uMutfak.Run;

}

{

Form1 = TCLForm.Create(Self);

Form1.clSetCaption('Ana Kod');

uMutfak = TclUnit.Create;

LblAnaKod = Form1.AddNewLabel(Form1, 'LblAnaKod', 'Ana Kod');

LblAnaKod.Align = alTop;

LblAnaKod.Height = 70;

LblAnaKod.StyledSettings = ssFamily;

LblAnaKod.TextSettings.Font.Size = 20;

BtnAnaKod = Form1.AddNewButton(Form1, 'btnAnaKod', 'Birime git!');

BtnAnaKod.Width = 100;

Form1.AddNewEvent(BtnAnaKod, tbeOnClick, 'BirimeGit');

Form1.Run;

}

--------------------uLogin------------------------

var

Form2: TCLForm;

Button2: TclButton;

Edit1: TclEdit;

LblBirim: TclLabel;

void AnaKodaGit {

{

// Edit i�eri�ini global de�i�kene kaydet

Clomosy.GlobalVariableString = Edit1.Text;

Form2.clHide;

CallerForm.clShow;

}

void EditIceriginiYazdir {

{

// Edit i�eri�ini label'a yazd�r

LblBirim.Text = 'Edit i�eri�i: ' + Edit1.Text;

}

{

Form2 = TCLForm.Create(Self);

Form2.clSetCaption('Birim');

// Label olu�tur

LblBirim = Form2.AddNewLabel(Form2, 'LblBirim', 'Edit i�eri�i burada g�r�necek');

LblBirim.Align = alTop;

LblBirim.Height = 50;

LblBirim.StyledSettings = ssFamily;

LblBirim.TextSettings.Font.Size = 16;

LblBirim.TextSettings.Font.Style = [fsBold];

// Edit olu�tur

Edit1 = Form2.AddNewEdit(Form2, 'Edit1', 'Buraya yaz�n...');

Edit1.Align = alTop;

Edit1.Height = 40;

Edit1.Margins.Top = 10;

Edit1.Margins.Left = 20;

Edit1.Margins.Right = 20;

Form2.AddNewEvent(Edit1, tbeOnChange, 'EditIceriginiYazdir');

// Global de�i�kenden edit i�eri�ini y�kle

if (Clomosy.GlobalVariableString <> '') {

Edit1.Text = Clomosy.GlobalVariableString;

LblBirim.Text = 'Edit i�eri�i: ' + Edit1.Text;

}

// Buton olu�tur

Button2 = Form2.AddNewButton(Form2, 'Button2', 'Ana Koda D�n');

Button2.Align = alTop;

Button2.Height = 50;

Button2.Margins.Top = 20;

Button2.Margins.Left = 20;

Button2.Margins.Right = 20;

Form2.AddNewEvent(Button2, tbeOnClick, 'AnaKodaGit');

Form2.Run;

}

Formun S�f�rlanmas� : evet nasıl çözebiliriz ?

Thu, 09 Oct 2025 18:14:32 +0000

Yazar: kaanl0
Konu: 1206
G�nderim Zaman�: 09 Ekim 2025 Saat 18:14

evet nas�l ��zebiliriz ?

Formun S�f�rlanmas� : Kodlara paylaştığına göre sanırım...

Thu, 09 Oct 2025 17:51:15 +0000

Yazar: Emr.Erkmn
Konu: 1206
G�nderim Zaman�: 09 Ekim 2025 Saat 17:51

Kodlara payla�t��na g�re san�r�m sorun tam ��z�lmedi. Hata devam ediyor

Formun S�f�rlanmas� : Deneme amaçlı dün döngüler için...

Thu, 09 Oct 2025 17:37:38 +0000

Yazar: kaanl0
Konu: 1206
G�nderim Zaman�: 09 Ekim 2025 Saat 17:37

Deneme ama�l� d�n d�ng�ler i�in kulland��m kodlara 2 label 1 adet edit ekliyorum ekle butonuna bas�nca edit e yazd��n kelime ekranda g�z�kecek . Her unit ge�i�i i�inde clhide ekledim. Burda yapmak istedi�im unit de�i�tirince ekrana yazd�rd��m kelimelerin kaybolmamas�

------------anakod-------------------

uses homepage;

var

currentPlayerIndex: Integer;

{

try

currentPlayerIndex = 0;

Clomosy.rununit('homepage');

except

ShowMessage('General Error '+'Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);

}

------------------homepage-----------

var

MainForm: TclForm;

listpnl: TclProPanel;

pname1, pname2, pname3, pname4: TClProLabel;

startbtn: TClProButton;

currentPlayerIndex: Integer;

void listpnlV {

{

listpnl = mainform.AddNewPropanel(mainform, 'listpnl');

listpnl.Align = alClient;

listpnl.Margins.Bottom = 390;

listpnl.Margins.Top = 20;

listpnl.Margins.Right = 30;

listpnl.Margins.Left = 23;

listpnl.clProSettings.ColCount = 1;

listpnl.clProSettings.ItemHeight = 100;

listpnl.clProSettings.ItemSpace = 10;

listpnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFCFF');

listpnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#524c4c');

listpnl.clProSettings.BorderWidth = 5;

listpnl.clProSettings.RoundHeight = 5;

listpnl.clProSettings.RoundWidth = 3;

listpnl.SetclProSettings(listpnl.clProSettings);

pname1 = mainform.AddNewProLabel(listpnl, 'pname1', 'Kaan');

pname1.Align = alMostTop;

pname1.Width = 300;

pname1.Height = 55;

pname1.Margins.Left = 150;

pname1.margins.top = 20;

pname1.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

pname1.clProSettings.FontSize = 28;

pname1.clProSettings.TextSettings.Font.Style = [fsItalic];

pname1.SetclProSettings(pname1.clProSettings);

pname2 = mainform.AddNewProLabel(listpnl, 'pname2', 'Eren');

pname2.Align = alTop;

pname2.Width = 300;

pname2.Height = 55;

pname2.Margins.Left = 150;

pname2.margins.top = 30;

pname2.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

pname2.clProSettings.FontSize = 28;

pname2.clProSettings.TextSettings.Font.Style = [fsItalic];

pname2.SetclProSettings(pname2.clProSettings);

pname3 = mainform.AddNewProLabel(listpnl, 'pname3', 'S�lo');

pname3.Align = alTop;

pname3.Width = 300;

pname3.Height = 55;

pname3.Margins.Left = 150;

pname3.margins.top = 30;

pname3.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

pname3.clProSettings.FontSize = 28;

pname3.clProSettings.TextSettings.Font.Style = [fsItalic];

pname3.SetclProSettings(pname3.clProSettings);

pname4 = mainform.AddNewProLabel(listpnl, 'pname4', 'Samet');

pname4.Align = alTop;

pname4.Width = 300;

pname4.Height = 55;

pname4.Margins.Left = 150;

pname4.margins.top = 30;

pname4.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

pname4.clProSettings.FontSize = 28;

pname4.clProSettings.TextSettings.Font.Style = [fsItalic];

pname4.SetclProSettings(pname4.clProSettings);

}

void startbtnV {

{

startbtn = mainform.AddNewProButton(mainform, 'startbtn', 'Oyunu Ba�lat');

startbtn.Align = alCenter;

startbtn.Width = 250;

startbtn.Height = 100;

startbtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

startbtn.clProSettings.FontSize = 24;

startbtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');

startbtn.clProSettings.BorderWidth = 2;

startbtn.clProSettings.RoundWidth = 50;

startbtn.clProSettings.RoundHeight = 50;

startbtn.Margins.top = 350;

startbtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#081368');

startbtn.clProSettings.TextSettings.Font.Style = [fsBold];

startbtn.SetclProSettings(startbtn.clProSettings);

mainform.AddNewEvent(startbtn, tbeOnClick, 'startgameV');

}

void startgameV {

{

//ShowMessage(IntToStr(currentPlayerIndex));

currentPlayerIndex = 0; // �lk oyuncu i�in s�f�rla

Clomosy.RunUnit('uPlayer');

mainform.clhide;

}

{

mainform = TclForm.Create(Self);

listpnlV;

startbtnV;

mainform.FormWaiting.Visible = False;

mainform.BtnFormMenu.Visible = False;

mainform.BtnGoBack.Visible = False;

mainform.Run;

}

-------------------Uplayer-------------------

uses homepage;

var

mainform2: TclForm;

lb1, nameplayer: TClProLabel;

okbtn: TClProButton;

tempstring: String;

void lb1V {

{

lb1 = mainform2.AddNewProLabel(mainform2, 'lb1', 'Oyuncu S�ras�: ');

lb1.Width = 440;

lb1.Height = 50;

lb1.margins.bottom = 600;

lb1.margins.left = 200;

lb1.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFD700');

lb1.clProSettings.FontSize = 38;

lb1.clProSettings.TextSettings.Font.Style = [fsBold, fsItalic];

lb1.SetclProSettings(lb1.clProSettings);

}

void nameplayerV {

{

nameplayer = mainform2.AddNewProLabel(mainform2, 'nameplayer', '');

nameplayer.Align = alCenter;

nameplayer.Width = Length(pname1.text) * 25;

nameplayer.Height = 50;

nameplayer.margins.bottom = 400;

nameplayer.clProSettings.FontColor = clAlphaColor.clHexToColor('#35b673');

nameplayer.clProSettings.FontSize = 38;

nameplayer.clProSettings.TextSettings.Font.Style = [fsBold, fsItalic];

nameplayer.SetclProSettings(nameplayer.clProSettings);

}

void okbtnV {

{

okbtn = mainform2.AddNewProButton(mainform2, 'okbtn', 'Tamam');

okbtn.Align = alCenter;

okbtn.margins.bottom = 210;

okbtn.Width = 200;

okbtn.Height = 70;

okbtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFD700');

okbtn.clProSettings.FontSize = 30;

okbtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DAA520');

okbtn.clProSettings.BorderWidth = 5;

okbtn.clProSettings.RoundWidth = 15;

okbtn.clProSettings.RoundHeight = 15;

okbtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2C7E7E');

mainform2.AddNewEvent(okbtn, tbeOnClick, 'WordButtonV');

okbtn.clProSettings.TextSettings.Font.Style = [fsBold, fsItalic];

okbtn.SetclProSettings(okbtn.clProSettings);

}

void playerturn0V {

{

// S�radaki oyuncuya ge�

currentPlayerIndex = currentPlayerIndex + 1;

// 4 oyuncu d�ng�s�

if (currentPlayerIndex > 4) {

currentPlayerIndex = 1;

}

// Oyuncu ismini al

case currentPlayerIndex of {

1: tempstring = homepage.pname1.Text;

2: tempstring = homepage.pname2.Text;

3: tempstring = homepage.pname3.Text;

4: tempstring = homepage.pname4.Text;

}

nameplayer.Text = tempstring;

}

void WordButtonV {

{

Clomosy.RunUnit('uYourWord');

mainform2.clhide;

}

{

mainform2 = TclForm.Create(Self);

lb1V;

nameplayerV;

okbtnV;

playerturn0V; // Her seferinde s�radaki oyuncuyu g�ster

mainform2.run;

}

------------------uYourWord--------------------

uses uPlayer;

var

mainform3: TclForm;

addwordbtn, okbtn, guessbtn: TClProButton;

wordedit:TclProEdit;

lb1,lb2:TClProLabel;

void addwordsV

{

if wordedit.Text==''{

ShowMessage('L�tfen Bir �sim Giriniz');

}

else if lb1.Text==''{

lb1.Text = AnsiUpperCase(wordedit.Text);

}

else if lb2.Text==''{

lb2.Text = AnsiUpperCase(wordedit.Text);

}

else

{

ShowMessage('Maksimum 2 kelime');

}

wordedit.Text = '';

}

void word1V

{

lb1 = mainform3.AddNewProLabel(mainform3, 'lb1', '');

lb1.Width = 250;

lb1.Height = 50;

//lb1.margins.bottom = 600;

//lb1.margins.left = 200;

lb1.Align=alCenter;

lb1.margins.bottom=200;

lb1.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

lb1.clProSettings.FontSize = 38;

lb1.clProSettings.TextSettings.Font.Style = [fsBold, fsItalic];

//lb1.clProSettings.BorderWidth = 2;

lb1.SetclProSettings(lb1.clProSettings);

}

void word2V

{

lb2 = mainform3.AddNewProLabel(mainform3, 'lb2', '');

lb2.Width = 250;

lb2.Height = 50;

//lb1.margins.bottom = 600;

//lb1.margins.left = 200;

lb2.Align=alCenter;

lb2.margins.bottom=100

lb2.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

lb2.clProSettings.FontSize = 38;

lb2.clProSettings.TextSettings.Font.Style = [fsBold, fsItalic];

//lb2.clProSettings.BorderWidth = 2;

lb2.SetclProSettings(lb2.clProSettings);

}

void editV

{

wordedit= mainform3.AddNewProEdit(mainform3, 'wordedit', 'Kelime Giriniz');

wordedit.Align = altop;

wordedit.Width = 175;

wordedit.Height = 60;

wordedit.margins.top=25;

wordedit.margins.left=30;

wordedit.margins.right=30;

wordedit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#312626');

wordedit.clProSettings.RoundHeight = 15;

wordedit.clProSettings.RoundWidth = 15;

wordedit.clProSettings.BorderWidth = 1;

wordedit.maxlength= 8;

//wordedit.clProSettings.IsFill = True;

//wordedit.clProSettings.IsRound = True;

wordedit.SetclProSettings(wordedit.clProSettings);

}

void okbtnV {

{

Clomosy.RunUnit('uPlayer');

mainform3.clhide;

}

void addwordbtnV {

{

okbtn = mainform3.AddNewProButton(mainform3, 'okbtn', 'Geri D�n');

okbtn.Align = alCenter;

okbtn.Width = 175;

okbtn.Height = 60;

okbtn.margins.top = 25;

okbtn.margins.left = 30;

okbtn.margins.right = 30;

okbtn.clProSettings.FontSize = 21;

okbtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#099ea4');

okbtn.clProSettings.TextSettings.Font.Style = [fsBold];

okbtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#312626');

okbtn.clProSettings.RoundHeight = 15;

okbtn.clProSettings.RoundWidth = 15;

okbtn.clProSettings.BorderWidth = 2;

okbtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#e6efef');

mainform3.AddNewEvent(okbtn, tbeOnClick, 'okbtnV');

okbtn.SetclProSettings(okbtn.clProSettings);

addwordbtn= mainform3.AddNewProButton(mainform3, 'addwordbtn', 'EKLE');

addwordbtn.Align = altop;

addwordbtn.Width = 175;

addwordbtn.Height = 60;

addwordbtn.margins.top=25;

addwordbtn.margins.left=30;

addwordbtn.margins.right=30;

addwordbtn.clProSettings.FontSize = 21;

addwordbtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#099ea4');

addwordbtn.clProSettings.TextSettings.Font.Style = [fsBold];

addwordbtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#312626');

addwordbtn.clProSettings.RoundHeight = 15;

addwordbtn.clProSettings.RoundWidth = 15;

addwordbtn.clProSettings.BorderWidth = 2;

addwordbtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#e6efef');

mainform3.AddNewEvent(addwordbtn,tbeOnClick,'addwordsV');

addwordbtn.SetclProSettings(addwordbtn.clProSettings);

}

{

mainform3 = TclForm.Create(Self);

addwordbtnV;

word1V;

word2V;

editV;

mainform3.run;

}