Clomosy | Forum : yeni forma bağlantı kuramıyorum https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 10:54:26 +0000 Wed, 06 Aug 2025 18:06:14 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1168 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[yeni forma bağlantı kuramıyorum : Merhaba Ela,Anakodun düzelmiş...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1168&PID=2474#2474 Yazar: Emr.Erkmn
Konu: 1168
Gönderim Zamanı: 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
  Form: TCLForm;
  Btn1: TClProButton;
  deneme : TCLUnit;
  void BtnC;
{
  ShowMessage('Yeni sayfaya geçiş yapılıyor...');
}
void GoTodeneme
{
  Form.clShow;
  deneme.unitName='deneme';
  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');
  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;
}
]]> Wed, 06 Aug 2025 18:06:14 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1168&PID=2474#2474 <![CDATA[yeni forma bağlantı kuramıyorum : evet deneme adında birimde oluşturdumvaruForm...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1168&PID=2472#2472 Yazar: ela göçel
Konu: 1168
Gönderim Zamanı: 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;
 }
 
 
]]> Wed, 06 Aug 2025 16:48:11 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1168&PID=2472#2472 <![CDATA[yeni forma bağlantı kuramıyorum : Merhaba Ela,Birimi oluşturdun...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1168&PID=2471#2471 Yazar: Emr.Erkmn
Konu: 1168
Gönderim Zamanı: 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?]]> Wed, 06 Aug 2025 16:44:25 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1168&PID=2471#2471 <![CDATA[yeni forma bağlantı kuramıyorum : kodlarım bu şekilde ana form ekranında...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1168&PID=2470#2470 Yazar: ela göçel
Konu: 1168
Gönderim Zamanı: 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');
  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;
}
]]> Wed, 06 Aug 2025 15:56:33 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1168&PID=2470#2470