Clomosy | Forum : Giris Ekranı Olusturma

Clomosy | Forum : Giris Ekranı Olusturma https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 01 May 2026 19:24:05 +0000 Wed, 03 Dec 2025 15:50:04 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1235 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Giris Ekranı Olusturma : Merhaba Berat,Kodunu incelediğim...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1235&PID=2733#2733 Yazar: Emr.Erkmn
Konu: 1235
Gönderim Zamanı: 03 Aralık 2025 Saat 15:50

Merhaba Berat,
Kodunu incelediğim de
Form1=TclForm.Create(self); 3 farklı yerde create ettiğini gördüm. Anakod'da sadece bir kere create etmen yeterli.
Kodun düzenli halini aşağı da paylaşıyorum.

Var

Form1:TclForm;

ProPanel1, ProPanel2 : TclProPanel;

Label1, Label2: TClProLabel;

void setLabel;

{

Label1 = Form1.AddNewProLabel(ProPanel1,'Label1','Clomosy PROLABEL');

Label1.Align = alCenter;

Label1.Width = 150;

Label1.Height = 30;

Label1.clProSettings.FontColor = clAlphaColor.clHexToColor('#f5428d');

Label1.clProSettings.FontSize = 12;

Label1.clProSettings.FontVertAlign = palcenter;

Label1.clProSettings.FontHorzAlign = palLeading;

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

Label1.clProSettings.IsFill = True;

Label1.clProSettings.IsRound = True;

Label1.SetclProSettings(Label1.clProSettings);

}

{

Form1=TclForm.Create(self);

ProPanel1=Form1.AddNewProPanel(Form1,'ProPanel1');

ProPanel1.Align = alTop;

ProPanel1.Width = 200;

ProPanel1.Height = 80;

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

ProPanel1.clProSettings.RoundHeight = 10;

ProPanel1.clProSettings.RoundWidth = 10;

ProPanel1.clProSettings.BorderWidth = 2;

ProPanel1.clProSettings.IsFill = True;

ProPanel1.clProSettings.IsRound = True;

ProPanel1.SetclProSettings(ProPanel1.clProSettings);

ProPanel2=Form1.AddNewProPanel(Form1,'ProPanel2');

ProPanel2.Align = alCenter;

ProPanel2.Width = 200;

ProPanel2.Height = 80;

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

ProPanel2.clProSettings.RoundHeight = 10;

ProPanel2.clProSettings.RoundWidth = 10;

ProPanel2.clProSettings.BorderWidth = 2;

ProPanel2.clProSettings.IsFill = True;

ProPanel2.clProSettings.IsRound = True;

ProPanel2.SetclProSettings(ProPanel2.clProSettings);

Label2 = Form1.AddNewProLabel(ProPanel2,'Label2','Kullanıcı Adı Giriniz');

Label2.Align = alCenter;

Label2.Width = 150;

Label2.Height = 30;

Label2.clProSettings.FontColor = clAlphaColor.clHexToColor('#f5428d');

Label2.clProSettings.FontSize = 12;

Label2.clProSettings.FontVertAlign = palcenter;

Label2.clProSettings.FontHorzAlign = palLeading;

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

Label2.clProSettings.IsFill = True;

Label2.clProSettings.IsRound = True;

Label2.SetclProSettings(Label2.clProSettings);

setLabel;

Form1.Run;

}

İyi çalışmalar.

https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" 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">]]> Wed, 03 Dec 2025 15:50:04 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1235&PID=2733#2733 <![CDATA[Giris Ekranı Olusturma : Var Form1:TclForm; ProPanel1,...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1235&PID=2731#2731 Yazar: Berat Deveci
Konu: 1235
Gönderim Zamanı: 03 Aralık 2025 Saat 15:45

Var

Form1:TclForm;

ProPanel1, ProPanel2 : TclProPanel;

Label1, Label2: TClProLabel;

void setLabel;

{

Label1 = Form1.AddNewProLabel(ProPanel1,'Label1','Clomosy PROLABEL');

Label1.Align = alCenter;

Label1.Width = 150;

Label1.Height = 30;

Label1.clProSettings.FontColor = clAlphaColor.clHexToColor('#f5428d');

Label1.clProSettings.FontSize = 12;

Label1.clProSettings.FontVertAlign = palcenter;

Label1.clProSettings.FontHorzAlign = palLeading;

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

Label1.clProSettings.IsFill = True;

Label1.clProSettings.IsRound = True;

Label1.SetclProSettings(Label1.clProSettings);

}

{

Form1=TclForm.Create(self);

ProPanel1=Form1.AddNewProPanel(Form1,'ProPanel1');

ProPanel1.Align = alTop;

ProPanel1.Width = 200;

ProPanel1.Height = 80;

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

ProPanel1.clProSettings.RoundHeight = 10;

ProPanel1.clProSettings.RoundWidth = 10;

ProPanel1.clProSettings.BorderWidth = 2;

ProPanel1.clProSettings.IsFill = True;

ProPanel1.clProSettings.IsRound = True;

ProPanel1.SetclProSettings(ProPanel1.clProSettings);

Form1=TclForm.Create(self);

ProPanel2=Form1.AddNewProPanel(Form1,'ProPanel2');

ProPanel2.Align = alCenter;

ProPanel2.Width = 200;

ProPanel2.Height = 80;

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

ProPanel2.clProSettings.RoundHeight = 10;

ProPanel2.clProSettings.RoundWidth = 10;

ProPanel2.clProSettings.BorderWidth = 2;

ProPanel2.clProSettings.IsFill = True;

ProPanel2.clProSettings.IsRound = True;

ProPanel2.SetclProSettings(ProPanel2.clProSettings);

Label2 = Form1.AddNewProLabel(ProPanel2,'Label2','Kullanıcı Adı Giriniz');

Label2.Align = alCenter;

Label2.Width = 150;

Label2.Height = 30;

Label2.clProSettings.FontColor = clAlphaColor.clHexToColor('#f5428d');

Label2.clProSettings.FontSize = 12;

Label2.clProSettings.FontVertAlign = palcenter;

Label2.clProSettings.FontHorzAlign = palLeading;

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

Label2.clProSettings.IsFill = True;

Label2.clProSettings.IsRound = True;

Label2.SetclProSettings(Label2.clProSettings);

Form1 = TclForm.Create(Self);

setLabel;

Form1.Run;

}

İKİ farklı panelim var tek forum oluşturdum lakin paneller ve içindeki label mesajları gözükmğyor

https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" 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">]]> Wed, 03 Dec 2025 15:45:34 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1235&PID=2731#2731