Genel İşlemler

Sayfayı Yazdır | Pencereyi Kapat

date

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=806
Tarih: 08 Ocak 2025 Saat 20:49
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: date

Mesajı Yazan: rabiagnbs
Konu: date
Mesaj Tarihi: 05 Ağustos 2024 Saat 11:45

güncel tarihi label içerisinde nasıl yazdırabilirim

-------------
RabiaGnbs

Cevaplar:

Mesajı Yazan: Developer
Mesaj Tarihi: 05 Ağustos 2024 Saat 12:10

Merhaba Rabia,

Aşağıdaki kodu inceler misin:

var

MyForm:TclForm;

myDate : TclDateTime;

lbl:TCLLabel;

begin

MyForm := TclForm.Create(Self);

MyForm.SetFormColor('#CBEDD5','',clGNone);

myDate := StrToDateTime(Now);

lbl := MyForm.AddNewLabel(MyForm,'lbl','');

lbl.text := DateTimeToStr(myDate);

MyForm.Run;

end

Mesajı Yazan: rabiagnbs
Mesaj Tarihi: 05 Ağustos 2024 Saat 12:23

aslında prolabel'da denedim fakat yapamadım. Bir de bu labelın yanına ek olarak istediğim bir yazı daha eklemek istiyordum:

today=StrToDateTime(Now);

tarih=seyahatHedef.AddNewLabel(seyahatHedef, 'tarih', '');

clComponent.SetupComponent(tarih,'{

"Align" : "Top",

"MarginBottom":450,

"Width" :400,

"Height":40,

"TextColor":"#133f87",

"TextSize":15,

"TextVerticalAlign":"center",

"TextHorizontalAlign":"left",

"TextBold":"yes",

"BorderColor":"#617bcf",

"RoundHeight":10,

"RoundWidth":10,

"BorderWidth":2,

"BackGroundColor":"null"

}');

tarih.text = DateTimeToStr(today);

-------------
RabiaGnbs

Mesajı Yazan: Developer
Mesaj Tarihi: 05 Ağustos 2024 Saat 14:00