Clomosy | Forum : TclForm Oluşturma

TclForm Oluşturma : Clomosy Supabase PostgreSQL Ba�lant�s�?

Mon, 20 Apr 2026 09:09:52 +0000

Yazar: Emr.Erkmn
Konu: Clomosy Supabase PostgreSQL Ba�lant�s�?
G�nderim Zaman�: 20 Nisan 2026 Saat 09:09

Merhabalar,
Evet ba�lant�s�n� yapmak m�mk�n.
Clomosy, Supabase'in sundu�u REST API (PostgREST) aray�z�n� kullanarak TclRest bile�enleri �zerinden Supabase ile tam entegre �al��abilir.
https://www.docs.clomosy.com/General_Cloud_Technology Docs sitesi de yard�mc� olabilir. https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">

TclForm Oluşturma : Clomosy Supabase PostgreSQL Ba�lant�s�?

Sun, 19 Apr 2026 11:14:42 +0000

Yazar: EMrtT
Konu: Clomosy Supabase PostgreSQL Ba�lant�s�?
G�nderim Zaman�: 19 Nisan 2026 Saat 11:14

Clomosy Supabase PostgreSQL Ba�lant�s� nas�l yap�l�r? yapmak m�mk�n m�?

TclForm Oluşturma : Kod �al��mama Hatas�

Fri, 17 Apr 2026 18:06:34 +0000

Yazar: Emr.Erkmn
Konu: Kod �al��mama Hatas�
G�nderim Zaman�: 17 Nisan 2026 Saat 18:06

Merhaba H�seyin,
void KontrolKirmizi; yer alan yanl�� syntax kullan�m�ndan kaynakl�

void KontrolKirmizi;

{

Clomosy.DBSQLServerQuery.Sql.Text =

'SELECT TurnPlayer FROM GameState WHERE ID = 1';

Clomosy.DBSQLServerQuery.Open;

if (Clomosy.DBSQLServerQuery.FieldByName('TurnPlayer').AsString == 'Kirmizi')

{

Clomosy.RunUnit('kirmizisoru');

}

}

�f ko�ulunu yazarken tek e�ittir de�il == kullanmal�s�n. Tek e�ittir atama operat�r�yd�.
Begin-End; yerine {} kullanmal�s�n

Bir di�er hata da

TimerKontrol = beklemeForm.AddNewTimer(TimerKontrol); burada yer al�yor
AddNewTimer 3 parametre almakta senin kodun da tek parametre al�yor.

TimerKontrol = beklemeForm.AddNewTimer(beklemeForm, 'TimerKontrol', 1000);

TimerKontrol.Enabled = True;

beklemeForm.AddNewEvent(TimerKontrol, tbeOnTimer, 'KontrolKirmizi');

Kullan�m� bu �ekil de bile�enin sahibi, bile�enin ad� , S�re (ms) �eklinde olmal�

https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">

TclForm Oluşturma : Kod �al��mama Hatas�

Fri, 17 Apr 2026 14:43:17 +0000

Yazar: H�seyin_Sadik
Konu: Kod �al��mama Hatas�
G�nderim Zaman�: 17 Nisan 2026 Saat 14:43

bu kod �al��m�yor sorunu ne acaba?

var

beklemeForm : TclForm;

centerLayout : TclLayout;

lblBekle : TclProLabel;

TimerKontrol : TclTimer;

// ----------------------------------------------------

// SQL kontrol� � s�ra KIRMIZI'da m�?

// ----------------------------------------------------

void KontrolKirmizi;

{

Clomosy.DBSQLServerQuery.Sql.Text :=

'SELECT TurnPlayer FROM GameState WHERE ID = 1';

Clomosy.DBSQLServerQuery.OpenOrExecute;

if Clomosy.DBSQLServerQuery.FieldByName('TurnPlayer').AsString = 'Kirmizi' then

begin

Clomosy.RunUnit('kirmizisoru');

end;

}

// ----------------------------------------------------

// FORM OLU�TURMA

// ----------------------------------------------------

{

beklemeForm = TclForm.Create(Self);

beklemeForm.LytTopBar.Visible = False;

beklemeForm.SetFormColor('#FF0000', '', clGNone);

centerLayout = beklemeForm.AddNewLayout(beklemeForm, 'centerLayout');

centerLayout.Align = alCenter;

centerLayout.Width = 500;

centerLayout.Height = 200;

lblBekle = beklemeForm.AddNewProLabel(centerLayout, 'lblBekle', 'Mavi oyuncunun cevab� bekleniyor...');

lblBekle.Align = alClient;

lblBekle.clProSettings.FontColor = clAlphaColor.clWhite;

lblBekle.clProSettings.FontSize = 28;

lblBekle.clProSettings.FontVertAlign = palCenter;

lblBekle.clProSettings.FontHorzAlign = palCenter;

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

lblBekle.SetclProSettings(lblBekle.clProSettings);

// TIMER � SQL kontrol�

TimerKontrol = beklemeForm.AddNewTimer('TimerKontrol');

TimerKontrol.Interval = 1000; // 1 saniye

beklemeForm.AddNewEvent(TimerKontrol, tbeOnTimer, 'KontrolKirmizi');

beklemeForm.Run;

}

TclForm Oluşturma : Forma tekrar girme hatas�

Tue, 07 Apr 2026 09:16:44 +0000

Yazar: Emr.Erkmn
Konu: Forma tekrar girme hatas�
G�nderim Zaman�: 07 Nisan 2026 Saat 09:16

Merhaba Hatice,
Bu hatan�n al�nmas�n�n sebebi
Her butona t�kland��nda birden fazla form kullan�lmas�ndan kaynakl�. Form haf�zadan silinmedi�i i�in bu hata al�n�yor.
��z�m i�in tek bir form �zerinde farkl� ekranlar i�in panel a�abilirsin.
Paneller ekranlar aras� ge�i�te g�r�n�rl��n� a��p kapatabilirsin

var

MainForm : TclForm;

PnlAnaMenu, PnlKayit, PnlGiris, PnlArama : TclProPanel;

RegUserEdt, RegPassEdt, RegPassConfEdt : TclProEdit;

RegShowBtn, BtnDoReg, BtnReg, BtnLog, BtnDoLog : TclProButton;

LogUserEdt, LogPassEdt : TclProEdit;

LogShowBtn : TclProButton;

RobotChk, TermsChk : TclCheckBox;

SearchEdt : TclProEdit;

SearchBtn : TclProButton;

NovaTitle, WelcomeLbl : TclProLabel;

SavedUser, SavedPass : String;

void ButunEkranlariKapat;

{

PnlAnaMenu.Visible = False;

PnlKayit.Visible = False;

PnlGiris.Visible = False;

PnlArama.Visible = False;

}

void GoToRegister;

{

ButunEkranlariKapat;

PnlKayit.Visible = True;

}

void GoToLogin;

{

ButunEkranlariKapat;

PnlGiris.Visible = True;

}

void GoToAnaMenu;

{

ButunEkranlariKapat;

PnlAnaMenu.Visible = True;

}

void ShowHidePassReg;

{

if (RegPassEdt.Password == True)

{

RegPassEdt.Password = False;

RegPassConfEdt.Password = False;

}

else

{

RegPassEdt.Password = True;

RegPassConfEdt.Password = True;

}

void ShowHidePassLog;

{

if (LogPassEdt.Password == True)

LogPassEdt.Password = False;

else

LogPassEdt.Password = True;

}

void OnRegisterClick;

{

if (Length(RegUserEdt.Text) < 8)

{

ShowMessage('Kullanici adi en az 8 karakter olmali!');

}

else if (RegPassEdt.Text <> RegPassConfEdt.Text)

{

ShowMessage('Sifreler uyusmuyor!');

}

else if (Length(RegPassEdt.Text) < 8)

{

ShowMessage('Sifre en az 8 karakter olmali!');

}

else

{

SavedUser = RegUserEdt.Text;

SavedPass = RegPassEdt.Text;

ShowMessage('Kayit Basarili! Giris yapabilirsiniz.');

GoToLogin;

}

void OnLoginClick;

{

if ((TermsChk.IsChecked == False) || (RobotChk.IsChecked == False))

{

ShowMessage('Lutfen kutucuklari onaylayin!');

Exit;

}

if ((LogUserEdt.Text == SavedUser) && (LogPassEdt.Text == SavedPass))

{

ButunEkranlariKapat;

PnlArama.Visible = True;

}

else

{

ShowMessage('Hatali kullanici adi veya sifre!');

}

{

MainForm = TclForm.Create(Self);

MainForm.SetFormColor('#f0f2f5', '', clGNone);

PnlAnaMenu = MainForm.AddNewProPanel(MainForm, 'PnlAnaMenu');

PnlAnaMenu.Align = alClient;

WelcomeLbl = MainForm.AddNewProLabel(PnlAnaMenu, 'WelcomeLbl', 'NoVA');

WelcomeLbl.Align = alTop;

WelcomeLbl.Margins.Top = 80;

WelcomeLbl.Height = 60;

WelcomeLbl.clProSettings.FontSize = 50;

WelcomeLbl.clProSettings.FontHorzAlign = palCenter;

WelcomeLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#4285F4');

WelcomeLbl.SetclProSettings(WelcomeLbl.clProSettings);

BtnReg = MainForm.AddNewProButton(PnlAnaMenu, 'BtnReg', 'Kayit Ol');

BtnReg.Align = alTop;

BtnReg.Margins.Top = 100;

BtnReg.Margins.Left = 50;

BtnReg.Margins.Right = 50;

BtnReg.Height = 50;

MainForm.AddNewEvent(BtnReg, tbeOnClick, 'GoToRegister');

BtnLog = MainForm.AddNewProButton(PnlAnaMenu, 'BtnLog', 'Giris Yap');

BtnLog.Align = alTop;

BtnLog.Margins.Top = 20;

BtnLog.Margins.Left = 50;

BtnLog.Margins.Right = 50;

BtnLog.Height = 50;

MainForm.AddNewEvent(BtnLog, tbeOnClick, 'GoToLogin');

PnlKayit = MainForm.AddNewProPanel(MainForm, 'PnlKayit');

PnlKayit.Align = alClient;

PnlKayit.Visible = False; // Ba�lang��ta gizli

RegUserEdt = MainForm.AddNewProEdit(PnlKayit, 'RegUser', 'Yeni Kullanici Adi');

RegUserEdt.Align = alTop;

RegUserEdt.Margins.Top = 50;

RegUserEdt.Margins.Left = 30;

RegUserEdt.Margins.Right = 30;

RegUserEdt.Height = 45;

RegPassEdt = MainForm.AddNewProEdit(PnlKayit, 'RegPass', 'Sifre');

RegPassEdt.Align = alTop;

RegPassEdt.Margins.Top = 10;

RegPassEdt.Margins.Left = 30;

RegPassEdt.Margins.Right = 30;

RegPassEdt.Height = 45;

RegPassEdt.Password = True;

RegPassConfEdt = MainForm.AddNewProEdit(PnlKayit, 'RegPassConf', 'Sifre Tekrar');

RegPassConfEdt.Align = alTop;

RegPassConfEdt.Margins.Top = 10;

RegPassConfEdt.Margins.Left = 30;

RegPassConfEdt.Margins.Right = 30;

RegPassConfEdt.Height = 45;

RegPassConfEdt.Password = True;

RegShowBtn = MainForm.AddNewProButton(PnlKayit, 'RegShowBtn', 'Goster/Gizle');

RegShowBtn.Align = alTop;

RegShowBtn.Margins.Top = 5;

RegShowBtn.Margins.Right = 30;

RegShowBtn.Height = 30;

RegShowBtn.Width = 100;

MainForm.AddNewEvent(RegShowBtn, tbeOnClick, 'ShowHidePassReg');

BtnDoReg = MainForm.AddNewProButton(PnlKayit, 'BtnDoReg', 'Hesap Olustur');

BtnDoReg.Align = alBottom;

BtnDoReg.Margins.Bottom = 50;

BtnDoReg.Margins.Left = 30;

BtnDoReg.Margins.Right = 30;

BtnDoReg.Height = 55;

BtnDoReg.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2ecc71');

BtnDoReg.SetclProSettings(BtnDoReg.clProSettings);

MainForm.AddNewEvent(BtnDoReg, tbeOnClick, 'OnRegisterClick');

PnlGiris = MainForm.AddNewProPanel(MainForm, 'PnlGiris');

PnlGiris.Align = alClient;

PnlGiris.Visible = False; // Ba�lang��ta gizli

LogUserEdt = MainForm.AddNewProEdit(PnlGiris, 'LogUser', 'Kullanici Adi');

LogUserEdt.Align = alTop;

LogUserEdt.Margins.Top = 50;

LogUserEdt.Margins.Left = 30;

LogUserEdt.Margins.Right = 30;

LogUserEdt.Height = 45;

LogPassEdt = MainForm.AddNewProEdit(PnlGiris, 'LogPass', 'Sifre');

LogPassEdt.Align = alTop;

LogPassEdt.Margins.Top = 10;

LogPassEdt.Margins.Left = 30;

LogPassEdt.Margins.Right = 30;

LogPassEdt.Height = 45;

LogPassEdt.Password = True;

LogShowBtn = MainForm.AddNewProButton(PnlGiris, 'LogShowBtn', 'Goster/Gizle');

LogShowBtn.Align = alTop;

LogShowBtn.Margins.Top = 5;

LogShowBtn.Margins.Right = 30;

LogShowBtn.Height = 30;

LogShowBtn.Width = 100;

MainForm.AddNewEvent(LogShowBtn, tbeOnClick, 'ShowHidePassLog');

RobotChk = MainForm.AddNewCheckBox(PnlGiris, 'RobotChk', 'Ben robot degilim');

RobotChk.Align = alTop;

RobotChk.Margins.Left = 35;

RobotChk.Margins.Top = 15;

RobotChk.Height = 40;

TermsChk = MainForm.AddNewCheckBox(PnlGiris, 'TermsChk', 'Anlasmayi kabul ediyorum');

TermsChk.Align = alTop;

TermsChk.Margins.Left = 35;

TermsChk.Height = 40;

BtnDoLog = MainForm.AddNewProButton(PnlGiris, 'BtnDoLog', 'Giris');

BtnDoLog.Align = alBottom;

BtnDoLog.Margins.Bottom = 50;

BtnDoLog.Margins.Left = 30;

BtnDoLog.Margins.Right = 30;

BtnDoLog.Height = 55;

BtnDoLog.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3498db');

BtnDoLog.SetclProSettings(BtnDoLog.clProSettings);

MainForm.AddNewEvent(BtnDoLog, tbeOnClick, 'OnLoginClick');

PnlArama = MainForm.AddNewProPanel(MainForm, 'PnlArama');

PnlArama.Align = alClient;

PnlArama.Visible = False; // Ba�lang��ta gizli

PnlArama.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');

PnlArama.SetclProSettings(PnlArama.clProSettings);

NovaTitle = MainForm.AddNewProLabel(PnlArama, 'NovaTitle', 'NoVA');

NovaTitle.Align = alTop;

NovaTitle.Margins.Top = 150;

NovaTitle.Height = 100;

NovaTitle.clProSettings.FontSize = 60;

NovaTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#4285F4');

NovaTitle.clProSettings.FontHorzAlign = palCenter;

NovaTitle.SetclProSettings(NovaTitle.clProSettings);

SearchEdt = MainForm.AddNewProEdit(PnlArama, 'SearchEdt', 'NoVA''da ara...');

SearchEdt.Align = alTop;

SearchEdt.Margins.Left = 40;

SearchEdt.Margins.Right = 40;

SearchEdt.Height = 50;

SearchEdt.clProSettings.RoundHeight = 25;

SearchEdt.clProSettings.BorderColor = clAlphaColor.clHexToColor('#dfe1e5');

SearchEdt.SetclProSettings(SearchEdt.clProSettings);

SearchBtn = MainForm.AddNewProButton(PnlArama, 'SearchBtn', 'Arastir');

SearchBtn.Align = alTop;

SearchBtn.Margins.Top = 20;

SearchBtn.Width = 120;

SearchBtn.Height = 45;

SearchBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f8f9fa');

SearchBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#3c4043');

SearchBtn.clProSettings.RoundHeight = 10;

SearchBtn.SetclProSettings(SearchBtn.clProSettings);

MainForm.Run;

}

TclForm Oluşturma : Forma tekrar girme hatas�

Mon, 06 Apr 2026 19:20:25 +0000

Yazar: Hatice ✨
Konu: Forma tekrar girme hatas�
G�nderim Zaman�: 06 Nisan 2026 Saat 19:20

iyi g�nler kodlar�mda giri� yap veya kay�t ol tu�lar�n� yanl�zca bir kez kullanabiliyorum ikici kez girmeye �al��t��mda RUNTIME ERROR

File library Main: Access violation at address 0000000000ECF6BD in module 'ClomosyLearn.exe' (offset 82F6BD). Read of address 0000000000000000 when evaluating instruction CallProc ($FFFFFFFF,$0,$179A270,$0,'Run').

Stack content is: [Null,Null,2379138370480,2379137240176...].

Source position: 17,44

Position: 17, 44 

[COLOR=BLACK]Hatas�n� veriyor bunun hakk�nda ne yapabilirim[/COLOR]

var MainForm, RegisterForm, LoginForm, SearchForm : TclForm; RegUserEdt, RegPassEdt, RegPassConfEdt : TclProEdit; RegShowBtn, BtnDoReg, BtnReg, BtnLog, BtnDoLog : TclProButton; LogUserEdt, LogPassEdt : TclProEdit; LogShowBtn : TclProButton; RobotChk, TermsChk : TclCheckBox; SearchEdt : TclProEdit; SearchBtn : TclProButton; NovaTitle, WelcomeLbl : TclProLabel; SavedUser, SavedPass : String;void GoToRegister; { if (RegisterForm <> nil) RegisterForm.Run; }void GoToLogin; { if (LoginForm <> nil) LoginForm.Run; }void ShowHidePassReg;{ if (RegPassEdt.Password == True) { RegPassEdt.Password = False; RegPassConfEdt.Password = False; } else { RegPassEdt.Password = True; RegPassConfEdt.Password = True; }}void ShowHidePassLog;{ if (LogPassEdt.Password == True) LogPassEdt.Password = False; else LogPassEdt.Password = True;}void OnRegisterClick;{ if (Length(RegUserEdt.Text) < 8) { ShowMessage('Kullanici adi en az 8 karakter olmali!'); } else if (RegPassEdt.Text <> RegPassConfEdt.Text) { ShowMessage('Sifreler uyusmuyor!'); } else if (Length(RegPassEdt.Text) < 8) { ShowMessage('Sifre en az 8 karakter olmali!'); } else { SavedUser = RegUserEdt.Text; SavedPass = RegPassEdt.Text; ShowMessage('Kayit Basarili! Giris yapabilirsiniz.'); LoginForm.Run; }}void OnLoginClick;{ if ((TermsChk.IsChecked == False) || (RobotChk.IsChecked == False)) { ShowMessage('Lutfen kutucuklari onaylayin!'); exit; } if ((LogUserEdt.Text == SavedUser) && (LogPassEdt.Text == SavedPass)) { SearchForm.Run; } else { ShowMessage('Hatali kullanici adi veya sifre!'); }}{ MainForm = TclForm.Create(Self); RegisterForm = TclForm.Create(Self); LoginForm = TclForm.Create(Self); SearchForm = TclForm.Create(Self); MainForm.SetFormColor('#f0f2f5', '', clGNone); WelcomeLbl = MainForm.AddNewProLabel(MainForm, 'WelcomeLbl', 'NoVA'); WelcomeLbl.Align = alTop; WelcomeLbl.Margins.Top = 80; WelcomeLbl.Height = 60; WelcomeLbl.clProSettings.FontSize = 50; WelcomeLbl.clProSettings.FontHorzAlign = palCenter; WelcomeLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#4285F4'); WelcomeLbl.SetclProSettings(WelcomeLbl.clProSettings); BtnReg = MainForm.AddNewProButton(MainForm, 'BtnReg', 'Kayit Ol'); BtnReg.Align = alTop; BtnReg.Margins.Top = 100; BtnReg.Margins.Left = 50; BtnReg.Margins.Right = 50; BtnReg.Height = 50; MainForm.AddNewEvent(BtnReg, tbeOnClick, 'GoToRegister'); BtnLog = MainForm.AddNewProButton(MainForm, 'BtnLog', 'Giris Yap'); BtnLog.Align = alTop; BtnLog.Margins.Top = 20; BtnLog.Margins.Left = 50; BtnLog.Margins.Right = 50; BtnLog.Height = 50; MainForm.AddNewEvent(BtnLog, tbeOnClick, 'GoToLogin'); RegUserEdt = RegisterForm.AddNewProEdit(RegisterForm, 'RegUser', 'Yeni Kullanici Adi'); RegUserEdt.Align = alTop; RegUserEdt.Margins.Top = 50; RegUserEdt.Margins.Left = 30; RegUserEdt.Margins.Right = 30; RegUserEdt.Height = 45; RegPassEdt = RegisterForm.AddNewProEdit(RegisterForm, 'RegPass', 'Sifre'); RegPassEdt.Align = alTop; RegPassEdt.Margins.Top = 10; RegPassEdt.Margins.Left = 30; RegPassEdt.Margins.Right = 30; RegPassEdt.Height = 45; RegPassEdt.Password = True; RegPassConfEdt = RegisterForm.AddNewProEdit(RegisterForm, 'RegPassConf', 'Sifre Tekrar'); RegPassConfEdt.Align = alTop; RegPassConfEdt.Margins.Top = 10; RegPassConfEdt.Margins.Left = 30; RegPassConfEdt.Margins.Right = 30; RegPassConfEdt.Height = 45; RegPassConfEdt.Password = True; RegShowBtn = RegisterForm.AddNewProButton(RegisterForm, 'RegShowBtn', 'Goster/Gizle'); RegShowBtn.Align = alTop; RegShowBtn.Margins.Top = 5; RegShowBtn.Margins.Right = 30; RegShowBtn.Height = 30; RegShowBtn.Width = 100; RegisterForm.AddNewEvent(RegShowBtn, tbeOnClick, 'ShowHidePassReg'); BtnDoReg = RegisterForm.AddNewProButton(RegisterForm, 'BtnDoReg', 'Hesap Olustur'); BtnDoReg.Align = alBottom; BtnDoReg.Margins.Bottom = 50; BtnDoReg.Margins.Left = 30; BtnDoReg.Margins.Right = 30; BtnDoReg.Height = 55; BtnDoReg.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2ecc71'); BtnDoReg.SetclProSettings(BtnDoReg.clProSettings); RegisterForm.AddNewEvent(BtnDoReg, tbeOnClick, 'OnRegisterClick'); LogUserEdt = LoginForm.AddNewProEdit(LoginForm, 'LogUser', 'Kullanici Adi'); LogUserEdt.Align = alTop; LogUserEdt.Margins.Top = 50; LogUserEdt.Margins.Left = 30; LogUserEdt.Margins.Right = 30; LogUserEdt.Height = 45; LogPassEdt = LoginForm.AddNewProEdit(LoginForm, 'LogPass', 'Sifre'); LogPassEdt.Align = alTop; LogPassEdt.Margins.Top = 10; LogPassEdt.Margins.Left = 30; LogPassEdt.Margins.Right = 30; LogPassEdt.Height = 45; LogPassEdt.Password = True; LogShowBtn = LoginForm.AddNewProButton(LoginForm, 'LogShowBtn', 'Goster/Gizle'); LogShowBtn.Align = alTop; LogShowBtn.Margins.Top = 5; LogShowBtn.Margins.Right = 30; LogShowBtn.Height = 30; LogShowBtn.Width = 100; LoginForm.AddNewEvent(LogShowBtn, tbeOnClick, 'ShowHidePassLog'); RobotChk = LoginForm.AddNewCheckBox(LoginForm, 'RobotChk', 'Ben robot degilim'); RobotChk.Align = alTop; RobotChk.Margins.Left = 35; RobotChk.Margins.Top = 15; RobotChk.Height = 40; TermsChk = LoginForm.AddNewCheckBox(LoginForm, 'TermsChk', 'Anlasmayi kabul ediyorum'); TermsChk.Align = alTop; TermsChk.Margins.Left = 35; TermsChk.Height = 40; BtnDoLog = LoginForm.AddNewProButton(LoginForm, 'BtnDoLog', 'Giris'); BtnDoLog.Align = alBottom; BtnDoLog.Margins.Bottom = 50; BtnDoLog.Margins.Left = 30; BtnDoLog.Margins.Right = 30; BtnDoLog.Height = 55; BtnDoLog.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3498db'); BtnDoLog.SetclProSettings(BtnDoLog.clProSettings); LoginForm.AddNewEvent(BtnDoLog, tbeOnClick, 'OnLoginClick'); // --- 4. ARAMA SAYFASI --- SearchForm.SetFormColor('#FFFFFF', '', clGNone); NovaTitle = SearchForm.AddNewProLabel(SearchForm, 'NovaTitle', 'NoVA'); NovaTitle.Align = alTop; NovaTitle.Margins.Top = 150; NovaTitle.Height = 100; NovaTitle.clProSettings.FontSize = 60; NovaTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#4285F4'); NovaTitle.clProSettings.FontHorzAlign = palCenter; NovaTitle.SetclProSettings(NovaTitle.clProSettings); SearchEdt = SearchForm.AddNewProEdit(SearchForm, 'SearchEdt', 'NoVA''da ara...'); SearchEdt.Align = alTop; SearchEdt.Margins.Left = 40; SearchEdt.Margins.Right = 40; SearchEdt.Height = 50; SearchEdt.clProSettings.RoundHeight = 25; SearchEdt.clProSettings.BorderColor = clAlphaColor.clHexToColor('#dfe1e5'); SearchEdt.SetclProSettings(SearchEdt.clProSettings); SearchBtn = SearchForm.AddNewProButton(SearchForm, 'SearchBtn', 'Arastir'); SearchBtn.Align = alTop; SearchBtn.Margins.Top = 20; SearchBtn.Width = 120; SearchBtn.Height = 45; SearchBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f8f9fa'); SearchBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#3c4043'); SearchBtn.clProSettings.RoundHeight = 10; SearchBtn.SetclProSettings(SearchBtn.clProSettings); MainForm.Run;}

TclForm Oluşturma : Basit Y�lan oyunu ilerleme

Wed, 01 Apr 2026 17:51:37 +0000

Yazar: Emr.Erkmn
Konu: Basit Y�lan oyunu ilerleme
G�nderim Zaman�: 01 Nisan 2026 Saat 17:51

Merhaba Alper,

var

MyForm : TclGameForm;

kare : TClProButton;

SagBtn, SolBtn, YukariBtn, AsagiBtn : TclProButton;

GameTimer : TClTimer;

yon : Integer; // 1:Yukar�, 2:A�a��, 3:Sol, 4:Sa�

// Y�N DE��T�RME BUTONLARI

void GitYukari; { yon = 1; }

void GitAsagi; { yon = 2; }

void GitSol; { yon = 3; }

void GitSag; { yon = 4; }

void YilanHareketEt;

var

yeniX, yeniY : Single;

{

yeniX = kare.Position.X;

yeniY = kare.Position.Y;

if (yon == 1) { yeniY = yeniY - 20; }

else if (yon == 2) { yeniY = yeniY + 20; }

else if (yon == 3) { yeniX = yeniX - 20; }

else if (yon == 4) { yeniX = yeniX + 20; }

if ((yeniX < 80) || (yeniX + kare.Width > TForm(MyForm).ClientWidth - 80) ||

(yeniY < 60) || (yeniY + kare.Height > TForm(MyForm).ClientHeight - 60))

{

GameTimer.Enabled = False; // �arpt�� an zamanlay�c�y� (oyunu) durdur

ShowMessage('Duvara �arpt�n! OYUN B�TT�.');

}

else

{

kare.Position.X = yeniX;

kare.Position.Y = yeniY;

}

// ANA KOD VE TASARIM

{

MyForm = TclGameForm.Create(Self);

yon = 2;

MyForm.clsetWindowState(fwsMaximized)

kare = MyForm.AddNewProButton(MyForm, 'kare', '');

kare.Align = alNone;

kare.Position.X = 150;

kare.Position.Y = 250;

kare.Width = 40;

kare.Height = 40;

kare.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#22c55e');

kare.clProSettings.IsRound = True;

kare.clProSettings.RoundHeight = 10;

kare.clProSettings.RoundWidth = 10;

kare.SetclProSettings(kare.clProSettings);

YukariBtn = MyForm.AddNewProButton(MyForm, 'YukariBtn', 'YUKARI');

YukariBtn.Align = alTop; YukariBtn.Height = 60;

MyForm.AddNewEvent(YukariBtn, tbeOnClick, 'GitYukari');

AsagiBtn = MyForm.AddNewProButton(MyForm, 'AsagiBtn', 'A�A�I');

AsagiBtn.Align = alBottom; AsagiBtn.Height = 60;

MyForm.AddNewEvent(AsagiBtn, tbeOnClick, 'GitAsagi');

SolBtn = MyForm.AddNewProButton(MyForm, 'SolBtn', 'SOL');

SolBtn.Align = alLeft; SolBtn.Width = 80;

MyForm.AddNewEvent(SolBtn, tbeOnClick, 'GitSol');

SagBtn = MyForm.AddNewProButton(MyForm, 'SagBtn', 'SA�');

SagBtn.Align = alRight; SagBtn.Width = 80;

MyForm.AddNewEvent(SagBtn, tbeOnClick, 'GitSag');

GameTimer = MyForm.AddNewTimer(MyForm, 'GameTimer', 100);

GameTimer.Enabled = True;

MyForm.AddNewEvent(GameTimer, tbeOnTimer, 'YilanHareketEt');

MyForm.Run;

}

bu kodu �al��t�r�p dener misin?
ClsenderKeyChar ile tekrar bir ara�t�rma yap�yorum. Bu y�ntem de farkl� bir y�ntem

TclForm Oluşturma : Basit Y�lan oyunu ilerleme

Mon, 30 Mar 2026 12:40:39 +0000

Yazar: Alper
Konu: Basit Y�lan oyunu ilerleme
G�nderim Zaman�: 30 Mart 2026 Saat 12:40

Sadece yukar� a�a�� giden bu �ok basit y�lan oyunum yukar� a�a�� gitmiyor bunu nas�l ��zerim?

var

MyForm : TclGameForm

kare : TClProButton

void KeyDown

{

if (MyForm.clSenderKeyChar == 32)

{

kare.margins.top = 5

}

else if (MyForm.clSenderKeyChar == 119)

{

kare.margins.bottom = -5

}

void asagi

{

kare.margins.top = 5

kare.margins.bottom = -5

}

{

MyForm = TclGameForm.Create(Self);

kare = MyForm.AddNewProButton(MyForm, 'kare', '')

kare.Align = alCenter;

kare.Width = 50;

kare.Height = 60;

kare.clProSettings.BorderColor = clAlphaColor.clHexToColor('#fabd2');

kare.clProSettings.RoundHeight = 10;

kare.clProSettings.RoundWidth = 10;

kare.clProSettings.BorderWidth = 2;

kare.clProSettings.IsFill = True;

kare.clProSettings.IsRound = True;

kare.clProSettings.PictureSource = 'https://clomosy.com/demos/computerNetwork.png';

kare.clProSettings.PictureAutoFit = True;

kare.SetclProSettings(kare.clProSettings);

MyForm.AddNewEvent(MyForm,tbeOnKeyDown,'KeyDown' )

MyForm.run

}

�ok te�ekk�rler

TclForm Oluşturma : Animasyon Kod Hatas�

Mon, 09 Mar 2026 06:57:50 +0000

Yazar: Emr.Erkmn
Konu: Animasyon Kod Hatas�
G�nderim Zaman�: 09 Mart 2026 Saat 06:57

Merhaba Hatice
G�nderdi�in kodda bulunan hatalar;
Form1.AddAssetFromUrl('https://resmim.net/cdn/2026/03/02/wqhd77.png');Burada Form1 olarak yaz�yor ama de�i�ken tan�mlamas�nda MyForm olarak ge�iyor TclForm,
Benzer hata
circle1 = Form1.AddNewCircle(Form1, 'circle1');< defer="" ="https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" -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">

burada da yer al�yor de�i�ken adland�rmalar�n� d�zeltmen gerekiyor.

Kodun �al��r hali;

var

MyForm : TclForm;

TestBtn : TclProButton

animation1:TclBitmapListAnimation;

circle1: TclCircle;

void buton;

{

circle1 = MyForm.AddNewCircle(MyForm, 'circle1');

circle1.Fill.Kind = fbkBitmap;

circle1.Fill.Bitmap.WrapMode = fbwmTileStretch;

circle1.Width = 500;

circle1.Height = 500;

circle1.Stroke.Thickness = 10;

animation1 = MyForm.AddNewBitmapListAnimation(circle1,'animation1');

animation1.AnimationBitmap.LoadFromFile(clomosy.appfilespath + 'wqhd77.png');

animation1.Stop;

animation1.AnimationCount = 31;

animation1.AnimationRowCount = 9;

animation1.Delay = 0;

animation1.Duration = 1.75;

animation1.AutoReverse = True;

animation1.Enabled = True;

animation1.Loop = True;

animation1.Start;

}

{

MyForm=TclForm.Create(Self)

MyForm.AddAssetFromUrl('https://resmim.net/cdn/2026/03/02/wqhd77.png');

TestBtn=MyForm.AddNewProButton(MyForm,'TestBtn','rakun');

TestBtn.Align = albottom; // butonun yerini belirler altop yukar�da demek albottom a�a��da altclient hepsi ekran�n

TestBtn.height = 120;

TestBtn.margins.left = 100;

TestBtn.margins.right = 100;

TestBtn.clProSettings.BorderColor=clalphacolor.clhextocolor('#aecbc5')

TestBtn.clProSettings.BackGRoundColor=clalphacolor.clhextocolor('#aeb7cb')

TestBtn.clProSettings.FontColor=clalphacolor.clhextocolor('#623737')

TestBtn.clProSettings.FontSize=100

TestBtn.clProSettings.TextSettings.Font.Style = [fsBold]

//TestBtn.clProSettings.PictureSretch = True;

//TestBtn.clProSettings.PictureAutofit = True;

TestBtn.clProSettings.BorderWidth = 8

TestBtn.SetclProsettings(TestBtn.clProSettings)

MyForm.AddNewEvent(TestBtn,tbeOnClick,'buton'); // butona bas�nca void ile rengin de�i�mesi

MyForm.Run;

}

TclForm Oluşturma : Animasyon Kod Hatas�

Sun, 08 Mar 2026 16:50:56 +0000

Yazar: Hatice ✨
Konu: Animasyon Kod Hatas�
G�nderim Zaman�: 08 Mart 2026 Saat 16:50

�yi g�nler ayn� kodum farkl� cihazlarda farkl� hatalar veriyor ilk ba�ta �al��m��t� ondan sonra hata mesaj� veren panel ��kt� �imdiki cihazda da normal metin hatas� vermekte

RUNTIME ERROR

File library Main: Access violation at address 01B4D59C in module 'ClomosyLearn.exe' (offset B8D59C). Read of address 00000018 when evaluating instruction CallProc ($FFFFFFFF,$1,$1B4D528,$6CEEE10,'AddAssetFromUrl').

Stack content is: [Null,Null,Null,Integer:115076480...].

Source position: 12,72

Position: 12, 72)

 Kodum bu �ekilde 

var

MyForm : TclForm;TestBtn : TclProButton Form1:TclForm; animation1:TclBitmapListAnimation; circle1: TclCircle;void buton; { Form1.AddAssetFromUrl('https://resmim.net/cdn/2026/03/02/wqhd77.png'); circle1 = Form1.AddNewCircle(Form1, 'circle1'); circle1.Fill.Kind = fbkBitmap; circle1.Fill.Bitmap.WrapMode = fbwmTileStretch; circle1.Width = 500; circle1.Height = 500; circle1.Stroke.Thickness = 10; animation1 = Form1.AddNewBitmapListAnimation(circle1,'animation1'); animation1.AnimationBitmap.LoadFromFile(clomosy.appfilespath + 'https://resmim.net/cdn/2026/03/02/wqhd77.png'); animation1.Stop; animation1.AnimationCount = 31; animation1.AnimationRowCount = 9; animation1.Delay = 0; animation1.Duration = 1.75; animation1.AutoReverse = True; animation1.Enabled = True; animation1.Loop = True; animation1.Start; }{MyForm=TclForm.Create(Self)TestBtn=MyForm.AddNewProButton(MyForm,'TestBtn','rakun');TestBtn.Align = albottom; // butonun yerini belirler altop yukar�da demek albottom a�a��da altclient hepsi ekran�nTestBtn.height = 120;TestBtn.margins.left = 100;TestBtn.margins.right = 100;TestBtn.clProSettings.BorderColor=clalphacolor.clhextocolor('#aecbc5')TestBtn.clProSettings.BackGRoundColor=clalphacolor.clhextocolor('#aeb7cb')TestBtn.clProSettings.FontColor=clalphacolor.clhextocolor('#623737')TestBtn.clProSettings.FontSize=100TestBtn.clProSettings.TextSettings.Font.Style = [fsBold]//TestBtn.clProSettings.PictureSretch = True;//TestBtn.clProSettings.PictureAutofit = True;TestBtn.clProSettings.BorderWidth = 8TestBtn.SetclProsettings(TestBtn.clProSettings) MyForm.AddNewEvent(TestBtn,tbeOnClick,'buton'); // butona bas�nca void ile rengin de�i�mesiMyForm.Run;}