Genel İşlemler - Ekran Boyutu Değiştirme

Sayfayı Yazdır | Pencereyi Kapat

Ekran Boyutu Değiştirme

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=1603
Tarih: 09 Temmuz 2026 Saat 11:52
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Ekran Boyutu Değiştirme

Mesajı Yazan: ibrahimBsr
Konu: Ekran Boyutu Değiştirme
Mesaj Tarihi: 08 Temmuz 2026 Saat 11:32

ScaledLayout = Form2.AddNewScaledLayout(Form2, 'ScaledLayout');

ScaledLayout.Align = alClient;

ScaledLayout.OriginalHeight = 750;

ScaledLayout.OriginalWidth = 350;

Ekran boyutu ayarlarken sadece böyle mi yapabiliyoruz ekran boyutuna göre kendini ayarlama olayı var mı?

https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" 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: 08 Temmuz 2026 Saat 12:01

var

MyForm: TclForm;

I: Integer;

testButton: TCLButton;

{

MyForm = TclForm.Create(self);

for (I = 0 to 1)

{

testButton = MyForm.AddNewButton(MyForm, 'testButton' + IntToStr(I), 'Button ' + IntToStr(I));

testButton.Align = alTop;

testButton.Height = (MyForm.clHeight * 8) / 100;

testButton.Margins.Top = (MyForm.clHeight * 2) / 100;

testButton.Margins.Bottom = 0;

testButton.Margins.Left = (MyForm.clWidth * 8) / 100;

testButton.Margins.Right = (MyForm.clWidth * 8) / 100;

}

MyForm.Run;

}

Mesajı Yazan: ibrahimBsr
Mesaj Tarihi: 08 Temmuz 2026 Saat 12:15

Tamamdır teşekkürler https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" 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">