Genel İşlemler - yeni forma bağlantı kuramıyorum

yeni forma bağlantı kuramıyorum

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

Konu: yeni forma bağlantı kuramıyorum

Mesajı Yazan: ela göçel
Konu: yeni forma bağlantı kuramıyorum
Mesaj Tarihi: 06 Ağustos 2025 Saat 15:56

kodlarım bu şekilde ana form ekranında tıklanınca yeni form sayfasına geçiş yapmak istiyorum fakat bağlantı kuramadım yardımcı olur musunuz

var

Form: TCLForm;

Btn1: TClProButton;

deneme : TCLUnit;

void BtnC;

{

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

}

void GoTodeneme

{

Form.clShow;

deneme.unitName='2. sayfam';

deneme.callerForm= Form;

deneme.Run;

}

{

deneme= TCLUnit.Create;

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 = 70;

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

Btn1.SetclProSettings(Btn1.clProSettings);

Form.Run;

}

Cevaplar:

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 06 Ağustos 2025 Saat 16:44

Merhaba Ela,
Birimi oluşturdun mu? Oluşturduğun birim adı ile kodda ki birim adlarını kontrol ettin mi?

Mesajı Yazan: ela göçel
Mesaj Tarihi: 06 Ağustos 2025 Saat 16:48

evet deneme adında birimde oluşturdum

var

uForm = TClStyleFrom;

btnUnit=TCLButton;

{

uFrom= TClStyleFrom.Create(Self);

uFrom.Run;

}

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 06 Ağustos 2025 Saat 18:06

Merhaba Ela,
Anakodun düzelmiş hali bu şekil de;
Birim adına ne verdiysen kodda o şekilde yazman gerekir. Birim adı deneme demiştin;

var