Clomosy | Forum : fonksiyon hatası

Clomosy | Forum : fonksiyon hatası https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 14:37:21 +0000 Tue, 05 Aug 2025 15:55:43 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1163 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[fonksiyon hatası : var Form: TCLForm; Btn1: TClProButton;...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1163&PID=2459#2459 Yazar: Ahmet_27
Konu: 1163
Gönderim Zamanı: 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);

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.

]]> Tue, 05 Aug 2025 15:55:43 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1163&PID=2459#2459 <![CDATA[fonksiyon hatası : Merhaba Ela,var Form: TCLForm;...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1163&PID=2457#2457 Yazar: Emr.Erkmn
Konu: 1163
Gönderim Zamanı: 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);

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 - 05 Ağustos 2025 Saat 15:55]]> Tue, 05 Aug 2025 15:53:01 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1163&PID=2457#2457 <![CDATA[fonksiyon hatası : evet tıklayınca çalıştı ama butonuma...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1163&PID=2456#2456 Yazar: ela göçel
Konu: 1163
Gönderim Zamanı: 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]]> Tue, 05 Aug 2025 15:52:51 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1163&PID=2456#2456 <![CDATA[fonksiyon hatası : var Form: TCLForm; Btn1: TClProButton;...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1163&PID=2455#2455 Yazar: Ahmet_27
Konu: 1163
Gönderim Zamanı: 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);

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.

]]> Tue, 05 Aug 2025 15:49:33 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1163&PID=2455#2455 <![CDATA[fonksiyon hatası : var Form: TCLForm; Btn1: TClProButton;{...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1163&PID=2454#2454 Yazar: ela göçel
Konu: 1163
Gönderim Zamanı: 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');

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;

}

]]> Tue, 05 Aug 2025 15:44:18 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1163&PID=2454#2454