TclForm Oluşturma - Giris Ekranı Olusturma

Sayfayı Yazdır | Pencereyi Kapat

Giris Ekranı Olusturma

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Form Oluşturma
Forum Adı: TclForm Oluşturma
Forum Tanımlaması: Standart bir form oluşturma
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1235
Tarih: 03 Aralık 2025 Saat 17:34
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Giris Ekranı Olusturma

Mesajı Yazan: Berat Deveci
Konu: Giris Ekranı Olusturma
Mesaj Tarihi: 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" rel="nofollow - 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">

Cevaplar:

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 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.