Genel İşlemler - fonksiyon hatası

fonksiyon hatası

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=1163
Tarih: 06 Ağustos 2025 Saat 07:48
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: fonksiyon hatası

Mesajı Yazan: ela göçel
Konu: fonksiyon hatası
Mesaj Tarihi: 05 Ağustos 2025 Saat 15:44

var

Form: TCLForm;

Btn1: TClProButton;

{

void BtnC;

{

ShowMessage('Yeni sayfaya geçiş yapılıyor...');

}

Form = TCLForm.Create(Self);

Form.SetFormBGImage(' https://st4.depositphotos.com/17601448/24086/v/450/depositphotos_240864546-stock-illustration-continuous-line-art-drawing-rose.jpg" rel="nofollow - https://st4.depositphotos.com/17601448/24086/v/450/depositphotos_240864546-stock-illustration-continuous-line-art-drawing-rose.jpg ');

Btn1 = Form.AddNewProButton(Form, 'Btn1', 'Tıkla');

Btn1.Align = alNone;

Btn1.Height = 50;

Btn1.Width = 150;

Btn1.Left = 100;

Btn1.Top = 50;

Btn1.clProSettings.FontColor = clAlphaColor.clHexToColor('#228B22');

Btn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffc0cb');

Btn1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#8b795e');

Btn1.clProSettings.FontSize = 15;

Btn1.clProSettings.FontHorzAlign = palCenter;

Btn1.clProSettings.FontVertAlign = palCenter;

Btn1.clProSettings.TextSettings.Font.Style = [fsBold, fsItalic];

Btn1.clProSettings.IsTransparent = False;

Btn1.clProSettings.IsFill = True;

Btn1.clProSettings.IsRound = True;

Btn1.clProSettings.RoundHeight = 15;

Btn1.clProSettings.RoundWidth = 15;

Btn1.clProSettings.BorderWidth = 3;

Form.AddNewEvent(Btn1,tbeOnClick,'BtnC');

Form.Run;

}

Cevaplar:

Mesajı Yazan: Ahmet_27
Mesaj Tarihi: 05 Ağustos 2025 Saat 15:49

var

Form: TCLForm;

Btn1: TClProButton;

void BtnC;

{

ShowMessage('Yeni sayfaya geçiş yapılıyor...');

}

{

Form = TCLForm.Create(Self);

Btn1 = Form.AddNewProButton(Form, 'Btn1', 'Tıkla');

Btn1.Align = alNone;

Btn1.Height = 50;

Btn1.Width = 150;

Btn1.Left = 100;

Btn1.Top = 50;

Btn1.clProSettings.FontColor = clAlphaColor.clHexToColor('#228B22');

Btn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffc0cb');

Btn1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#8b795e');

Btn1.clProSettings.FontSize = 15;

Btn1.clProSettings.FontHorzAlign = palCenter;

Btn1.clProSettings.FontVertAlign = palCenter;

Btn1.clProSettings.TextSettings.Font.Style = [fsBold, fsItalic];

Btn1.clProSettings.IsTransparent = False;

Btn1.clProSettings.IsFill = True;

Btn1.clProSettings.IsRound = True;

Btn1.clProSettings.RoundHeight = 15;

Btn1.clProSettings.RoundWidth = 15;

Btn1.clProSettings.BorderWidth = 3;

Form.AddNewEvent(Btn1,tbeOnClick,'BtnC');

Form.Run;

}

Düzeltilmiş kod böyle.
Fonksiyonu Main kod bloğunun dışında tanımlaman lazım.

Mesajı Yazan: ela göçel
Mesaj Tarihi: 05 Ağustos 2025 Saat 15:52

evet tıklayınca çalıştı ama butonuma verdiğim bütün özellikler etkisiz olmuş bunun için ne yapabilirim

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 05 Ağustos 2025 Saat 15:53

Merhaba Ela,

var

Form: TCLForm;

Btn1: TClProButton;

void BtnC;

{

ShowMessage('Yeni sayfaya geçiş yapılıyor...');

}

{

Form = TCLForm.Create(Self);

Btn1 = Form.AddNewProButton(Form, 'Btn1', 'Tıkla');

Btn1.Align = alTop;

Btn1.Height = 50;

Btn1.Width = 150;

Btn1.Left = 100;

Btn1.clProSettings.FontColor = clAlphaColor.clHexToColor('#228B22');

Btn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffc0cb');

Btn1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#8b795e');

Btn1.clProSettings.FontSize = 15;

Btn1.clProSettings.FontHorzAlign = palCenter;

Btn1.clProSettings.FontVertAlign = palCenter;

Btn1.clProSettings.TextSettings.Font.Style = [fsBold, fsItalic];

Btn1.clProSettings.IsTransparent = False;

Btn1.clProSettings.IsFill = True;

Btn1.clProSettings.IsRound = True;

Btn1.clProSettings.RoundHeight = 15;

Btn1.clProSettings.RoundWidth = 15;

Btn1.clProSettings.BorderWidth = 3;

Btn1.SetclProSettings(Btn1.clProSettings);

Form.AddNewEvent(Btn1,tbeOnClick,'BtnC');

Form.Run;

}

Diğer hatan da düzelti Butona özelliklerini verdikten sonra;
Btn1.SetclProSettings(Btn1.clProSettings); eklemediğin için buton özellikleri gözükmedi

Bu şekil de devam edebilirsin.
İyi çalışmalar.

Mesajı Yazan: Ahmet_27
Mesaj Tarihi: 05 Ağustos 2025 Saat 15:55

var

Form: TCLForm;

Btn1: TClProButton;

void BtnC;

{

ShowMessage('Yeni sayfaya geçiş yapılıyor...');

}

{

Form = TCLForm.Create(Self);

Btn1 = Form.AddNewProButton(Form, 'Btn1', 'Tıkla');

Btn1.Align = alNone;

Btn1.Height = 50;

Btn1.Width = 150;

Btn1.Left = 100;

Btn1.Top = 50;

Btn1.clProSettings.FontColor = clAlphaColor.clHexToColor('#228B22');

Btn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffc0cb');

Btn1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#8b795e');

Btn1.clProSettings.FontSize = 15;

Btn1.clProSettings.FontHorzAlign = palCenter;

Btn1.clProSettings.FontVertAlign = palCenter;

Btn1.clProSettings.TextSettings.Font.Style = [fsBold, fsItalic];

Btn1.clProSettings.IsTransparent = False;

Btn1.clProSettings.IsFill = True;

Btn1.clProSettings.IsRound = True;

Btn1.clProSettings.RoundHeight = 15;

Btn1.clProSettings.RoundWidth = 15;

Btn1.clProSettings.BorderWidth = 3;

Btn1.SetclProSettings(Btn1.clProSettings);

Form.AddNewEvent(Btn1,tbeOnClick,'BtnC');

Form.Run;

}

Bu kod ile butonuna eklediğin özelliklerde gözükür.

Btn1.SetclProSettings(Btn1.clProSettings); şu satır ile özellikleri uyguluyorsun set ediyorsun.