TclForm Oluşturma - Buton konum sıkıntısı

Buton konum sıkıntısı

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=1193
Tarih: 17 Eylül 2025 Saat 17:57
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Buton konum sıkıntısı

Mesajı Yazan: Gökçe ulusoy
Konu: Buton konum sıkıntısı
Mesaj Tarihi: 17 Eylül 2025 Saat 13:33

var

myform:TclForm;

Startbtn:TClProButton;

void getonclick;

{

ShowMessage('Eşleştirme Oyununa Hoşgeldiniz');

}

{

myform=TclForm.Create(Self);

myform.SetFormColor('#e9f269','',clGNone);

myform.clSetCaption('MyFirstGame');

myform.clSetWindowState(fwsMaximized)

Startbtn=myform.AddNewProButton(myform,'Startbtn', 'Başla');

clComponent.SetupComponent(Startbtn, '{

"caption" : "Başla" ,

"Align" :"alCenter",

"width ":200,

"height":200,

"RoundHeight" : 2,

"RoundWidth":2,

"BorderColor" : "#604201"}');

myform.AddNewEvent(Startbtn,tbeOnClick,'getonclick');

myform.Run;

}

Bu kodda sayfayı bütün sayfa boyuna çıkardıktan sonra butonun sayfanın orta kısmında olmasını istiyorum fakat ekranı küçültügümde ortada yer alırken bütün sayfa boyutunda ortada yer almıyor. Bunun yanında align'da AlMostBottom dediğimde de sayfanın aşagısında yer alması gerekirken almadığını gözlemledim

Cevaplar:

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 17 Eylül 2025 Saat 14:08

Merhaba Gökçe,
Bileşen özelliklerin de clComponent.SetupComponen yapısını kullanmıyoruz. Bunun yerine clProSettings kullanıyoruz. https://www.docs.clomosy.com/index.php?title=Pro_Object_Properties" rel="nofollow - https://www.docs.clomosy.com/index.php?title=Pro_Object_Properties

Kodun düzelmiş hali aşağıda;
AlCenter dediğim zaman ortada
AlMostBottom dediğim zaman da aşağı da yer almak:

var

myform:TclForm;

Startbtn:TClProButton;

void getonclick;

{

ShowMessage('Eşleştirme Oyununa Hoşgeldiniz');

}

{

myform=TclForm.Create(Self);

myform.SetFormColor('#e9f269','',clGNone);

myform.clSetCaption('MyFirstGame');

myform.clSetWindowState(fwsMaximized)

Startbtn=myform.AddNewProButton(MyForm, 'Startbtn', 'Başla');

Startbtn.Align= alCenter;

//Startbtn.Align=alMostBottom

Startbtn.width=200;

Startbtn.height=200;

Startbtn.clProSettings.RoundHeight=2;

Startbtn.clProSettings.RoundWidth=2;

Startbtn.clProSettings.BorderColor = clAlphaColor.ClHexToColor ('#604201')

Startbtn.SetClProSettings(Startbtn.clProSettings)

myform.AddNewEvent(Startbtn,tbeOnClick,'getonclick');

myform.Run;

}

İyi Çalışmalar.