fonksiyon hatası

Yazar

Mesaj

Konu Arama

Topic Seçenekleri

ela göçel

Yeni Üye

Kayıt Tarihi: 2 Saat 6 Dakika Önce
Durum: Aktif Değil
Puanlar: 3

Mesaj Seçenekleri

Yanıt Yaz

Alıntı ela göçel

Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.

Teşekkürler(0)

Alıntı

Cevapla

Konu: fonksiyon hatası
Gönderim Zamanı: 1 saat 57 Dakika Önce 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');

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;

}

Ahmet_27

Deneyimli Üye

Kayıt Tarihi: 16 Temmuz 2025
Durum: Aktif Değil
Puanlar: 51

Mesaj Seçenekleri

Yanıt Yaz

Alıntı Ahmet_27

Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.

Teşekkürler(1)

Alıntı

Cevapla

Gönderim Zamanı: 1 saat 52 Dakika Önce Saat 15:49

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');

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.

ela göçel

Yeni Üye

Kayıt Tarihi: 2 Saat 6 Dakika Önce
Durum: Aktif Değil
Puanlar: 3

Mesaj Seçenekleri

Yanıt Yaz

Alıntı ela göçel

Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.

Teşekkürler(0)

Alıntı

Cevapla

Gönderim Zamanı: 1 saat 49 Dakika Önce Saat 15:52

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

Emr.Erkmn

Moderatör

Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif
Puanlar: 210

Mesaj Seçenekleri

Yanıt Yaz

Alıntı Emr.Erkmn

Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.

Teşekkürler(1)

Alıntı

Cevapla

Gönderim Zamanı: 1 saat 48 Dakika Önce Saat 15:53

Merhaba Ela,

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');

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.

Düzenleyen Emr.Erkmn - 1 saat 46 Dakika Önce Saat 15:55

Ahmet_27

Deneyimli Üye

Kayıt Tarihi: 16 Temmuz 2025
Durum: Aktif Değil
Puanlar: 51

Mesaj Seçenekleri

Yanıt Yaz

Alıntı Ahmet_27

Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.

Teşekkürler(1)

Alıntı

Cevapla

Gönderim Zamanı: 1 saat 46 Dakika Önce Saat 15:55

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');

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.

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
ela göçel Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 2 Saat 6 Dakika Önce Durum: Aktif Değil Puanlar: 3	Mesaj Seçenekleri Yanıt Yaz Alıntı ela göçel Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: fonksiyon hatası Gönderim Zamanı: 1 saat 57 Dakika Önce 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'); 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; }

Ahmet_27 Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Deneyimli Üye Kayıt Tarihi: 16 Temmuz 2025 Durum: Aktif Değil Puanlar: 51	Mesaj Seçenekleri Yanıt Yaz Alıntı Ahmet_27 Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(1) Alıntı Cevapla Gönderim Zamanı: 1 saat 52 Dakika Önce Saat 15:49
	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'); 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.

ela göçel Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 2 Saat 6 Dakika Önce Durum: Aktif Değil Puanlar: 3	Mesaj Seçenekleri Yanıt Yaz Alıntı ela göçel Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 1 saat 49 Dakika Önce Saat 15:52
	evet tıklayınca çalıştı ama butonuma verdiğim bütün özellikler etkisiz olmuş bunun için ne yapabilirim

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Puanlar: 210	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(1) Alıntı Cevapla Gönderim Zamanı: 1 saat 48 Dakika Önce Saat 15:53
	Merhaba Ela, 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'); 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. Düzenleyen Emr.Erkmn - 1 saat 46 Dakika Önce Saat 15:55

Ahmet_27 Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Deneyimli Üye Kayıt Tarihi: 16 Temmuz 2025 Durum: Aktif Değil Puanlar: 51	Mesaj Seçenekleri Yanıt Yaz Alıntı Ahmet_27 Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(1) Alıntı Cevapla Gönderim Zamanı: 1 saat 46 Dakika Önce Saat 15:55
	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'); 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.