Clomosy | Forum : formlar arası geçiş https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 14:25:54 +0000 Fri, 20 Jun 2025 11:28:03 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1039 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[formlar arası geçiş : Merhabalar Mahmut,Login biriminde...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1039&PID=2075#2075 Yazar: Emr.Erkmn
Konu: 1039
Gönderim Zamanı: 20 Haziran 2025 Saat 11:28

Merhabalar Mahmut,
Login biriminde tespit ettiğim birkaç noktayı aşağıda sıraladım:

try-except yapısında söz dizimi hatası var:
except bloğundan sonra bir kapanış parantezi (}) daha eklemen gerekiyor. Aksi takdirde derleme sırasında yapı hatası alırsın.

96. satırda tanımladığın Font.Color ifadesi yanlış:
FontColor olarak yazılmalı. Font.Color Clomosy için geçerli değil.

158. satırda stil özelliklerini tanımlamışsın fakat uygulamamışsın:
SetclProSettings(...) komutunu kullanman gerekiyor ki yazdığın ayarlar nesneye yansısın.

107. satırda kullandığın görsel bağlantısı çalışmıyor:
Ben denediğimde görsel yüklenemedi. Muhtemelen bağlantı SSL sertifikasına sahip değil ya da sunucu erişimi kapalı.

İyi çalışmalar.
]]> Fri, 20 Jun 2025 11:28:03 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1039&PID=2075#2075 <![CDATA[formlar arası geçiş : giriş yap butonuna tıkladığımda...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1039&PID=2074#2074 Yazar: Mahmutdmr
Konu: 1039
Gönderim Zamanı: 20 Haziran 2025 Saat 10:03

giriş yap butonuna tıkladığımda diğer forma atması gerekiyor fakat aldığım hata 
void GoToLoginUnit;
{
  Clomosy.RunUnit('login');
}
bu kısımda gösteriyor  ana kod 

var
myForm : TclForm;
EmailEdit, ParolaEdit : TclProEdit;
GirisBtn, UyeOlBtn, HiddenPasswordBtn, NormalPasswordBtn: TClProButton;
UyeOlLbl, OrLabel: TClProLabel;
MainPnl, SocialPnl: TclProPanel;
TclLogo: TClProImage;
EmailImg, PasswordImg : TClProImage;
LinkedlnBtn, GoogleBtn, FacebookBtn : TClProButton;


void GoToLoginUnit;
{
  Clomosy.RunUnit('login');
}


void GoToKayitOlUnit;
{
  Clomosy.RunUnit('UnitRegister');
}



{
  myForm = TclForm.Create(Self);
  
  MainPnl = myForm.AddNewProPanel(myForm, 'MainPnl');
  MainPnl.Align=alCenter;
  MainPnl.Height=600;
  MainPnl.Width=400;
  MainPnl.Margins.Top=30;
  MainPnl.Margins.Bottom=40;
  MainPnl.clProSettings.RoundHeight=40;
  MainPnl.clProSettings.RoundWidth=40;
  MainPnl.clProSettings.IsTransparent=False;
  MainPnl.SetclProSettings(MainPnl.clProSettings);
  
  TclLogo=myForm.AddNewProImage(MainPnl, 'TclLogo');
  TclLogo.Align=alMostTop;
  TclLogo.Height=220;
  TclLogo.Margins.Top=20;
  TclLogo.Margins.Left=20;
  TclLogo.Margins.Right=20;
  TclLogo.clProSettings.IsTransparent=True;
  TclLogo.ClProSettings.PictureSource='https://i.imgur.com/bNebUPp.png';
  TclLogo.SetclProSettings(TclLogo.ClProSettings);
  
  GirisBtn= myForm.AddNewProButton(MainPnl, 'GirisBtn', 'Giriş Yap');
  GirisBtn.Align=alCenter;
  GirisBtn.Height=50;
  GirisBtn.Width=MainPnl.Width*70/100;
  GirisBtn.Margins.Top=30;
  GirisBtn.Margins.Left=20;
  GirisBtn.Margins.Right=20;
  GirisBtn.Margins.Bottom=85;
  GirisBtn.ClProSettings.BackGroundColor=clAlphaColor.clhexToColor('#c54242');
  GirisBtn.ClProSettings.RoundHeight=20;
  GirisBtn.ClProSettings.RoundWidth=20;
  GirisBtn.ClProSettings.FontColor=clAlphaColor.clhexToColor('#070807');
  GirisBtn.ClProSettings.FontSize=16;
  GirisBtn.ClProSettings.BorderWidth=2;
  GirisBtn.SetclProSettings(GirisBtn.ClProSettings);
  
  UyeOlBtn= myForm.AddNewProButton(MainPnl, 'UyeOlBtn', 'Üye Ol');
  UyeOlBtn.Align=alCenter;
  UyeOlBtn.Height=50;
  UyeOlBtn.Width=MainPnl.Width*70/100;
  UyeOlBtn.Margins.Top=200;
  UyeOlBtn.Margins.Left=20;
  UyeOlBtn.Margins.Right=20;
  UyeOlBtn.Margins.Bottom=85;
  UyeOlBtn.ClProSettings.BackGroundColor=clAlphaColor.clhexToColor('#979695');
  UyeOlBtn.ClProSettings.RoundWidth=20;
  UyeOlBtn.ClProSettings.RoundHeight=20;
  UyeOlBtn.ClProSettings.FontColor=clAlphaColor.clhexToColor('#000000');
  UyeOlBtn.ClProSettings.FontSize=16;
  UyeOlBtn.ClProSettings.BorderWidth=2;
  UyeOlBtn.SetclProSettings(UyeOlBtn.ClProSettings);
  
  OrLabel=myForm.AddNewProLabel(MainPnl, 'OrLabel', '--------OR--------');
  OrLabel.Align=alCenter;
  OrLabel.Width=MainPnl.Width*80/100;
  OrLabel.Margins.Left=110;
  OrLabel.Margins.Right=55;
  OrLabel.Margins.Top=240;
  OrLabel.ClProSettings.FontSize=20;
  OrLabel.SetclProSettings(OrLabel.ClProSettings);
  
  SocialPnl=myForm.AddNewProPanel(MainPnl,'SocialPnl');
  SocialPnl.Align=alMostBottom;
  SocialPnl.Height=50;
  SocialPnl.Width=MainPnl.Width;
  SocialPnl.Margins.Top=20;
  SocialPnl.Margins.Bottom=10;
  SocialPnl.Margins.Left=115;
  SocialPnl.Margins.Right=30;
  SocialPnl.ClProSettings.IsTransparent=True;
  SocialPnl.SetclProSettings(SocialPnl.ClProSettings);
  
  GoogleBtn=myForm.AddNewProButton(SocialPnl,'GoogleBtn','');
  GoogleBtn.Align=alLeft;
  GoogleBtn.Width=45;
  GoogleBtn.Height=45;
  GoogleBtn.ClProSettings.PictureSource='https://i.imgur.com/7wwJN4N.png';
  GoogleBtn.SetclProSettings(GoogleBtn.ClProSettings);
  
  FacebookBtn=myForm.AddNewProButton(SocialPnl,'FacebookBtn','');
  FacebookBtn.Align=alLeft;
  FacebookBtn.Width=45;
  FacebookBtn.Height=45;
  FacebookBtn.Margins.Left=20;
  FacebookBtn.ClProSettings.PictureSource='https://i.imgur.com/YCj4aCM.png';
  FacebookBtn.SetclProSettings(FacebookBtn.ClProSettings);
  
  
  LinkedlnBtn=myForm.AddNewProButton(SocialPnl,'LinkedlnBtn','');
  LinkedlnBtn.Align=alLeft;
  LinkedlnBtn.Width=45;
  LinkedlnBtn.Height=45;
  LinkedlnBtn.Margins.Left=20;
  LinkedlnBtn.ClProSettings.PictureSource='https://i.imgur.com/srczjDO.png';
  LinkedlnBtn.SetclProSettings(LinkedlnBtn.ClProSettings);
  
  
  myForm.AddNewEvent(GirisBtn,tbeOnClick,'GoToLoginUnit');
  myForm.AddNewEvent(UyeOlBtn,tbeOnClick,'GoToKayitOlUnit');
  myForm.SetFormBGImage('https://i.imgur.com/7vcjJ5F.jpeg');
  
  
  myForm.Run;
}



login adlı Unitim de =

var
LoginForm : TclForm;
EmailEdit, ParolaEdit : TclProEdit;
LoginGirisBtn, HiddenPasswordBtn, NormalPasswordBtn: TClProButton;
UyeOlLbl: TClProLabel;
MainPnl: TclProPanel;
TclLogo: TClProImage;
EmailImg, PasswordImg : TClProImage;


void HiddenPasswordBtnClick;
{
  if not Assigned(NormalPasswordBtn)
  {
    NormalPasswordBtn=LoginForm.AddNewProButton(ParolaEdit,'NormalPasswordBtn','');
    NormalPasswordBtn.Align=alRight;
    NormalPasswordBtn.Margins.Right=10;
    NormalPasswordBtn.Margins.Top=5;
    NormalPasswordBtn.Margins.Bottom=5;
    NormalPasswordBtn.Width=25;
    LoginForm.SetImage(NormalPasswordBtn,'https://i.imgur.com/3h7ew01.png');
    LoginForm.AddNewEvent(NormalPasswordBtn,tbeOnClick,'NormalPasswordBtnClick');
  }
  
  else
  {
    NormalPasswordBtn.Visible=True;
  }
  
  ParolaEdit.Password=False;
  HiddenPasswordBtn.Visible=False;
  
}


void NormalPasswordBtnClick;
{
  try
    if not Assigned(HiddenPasswordBtn)
    {
      HiddenPasswordBtn=LoginForm.AddNewProButton(ParolaEdit,'HiddenPasswordBtn','');
      HiddenPasswordBtn.Align=alRight;
      HiddenPasswordBtn.Margins.Right=10;
      HiddenPasswordBtn.Margins.Top=5;
      HiddenPasswordBtn.Margins.Bottom=5;
      HiddenPasswordBtn.width=25;
      LoginForm.SetImage(HiddenPasswordBtn,'https://i.imgur.com/dQ1keru.png');
      LoginForm.AddNewEvent(HiddenPasswordBtn,tbeOnClick,'HiddenPasswordBtnClick');
    }
    else
    {
      HiddenPasswordBtn.Visible = True;
    }
    ParolaEdit.Password = True;
    NormalPasswordBtn.Visible = False;
  except
    ShowMessage('Exception Class:' + LastExceptionClassName + ' Exceptions Message: ' + LastExceptionMessage);
    
}



{
  LoginForm=TclForm.Create(Self);
  
  MainPnl=LoginForm.AddNewProPanel(LoginForm, 'MainPnl');
  MainPnl.Align=alCenter;
  MainPnl.Height=630;
  MainPnl.width=400;
  MainPnl.clProSettings.RoundHeight=40;
  MainPnl.clProSettings.RoundWidth=40;
  MainPnl.clProSettings.IsTransparent=False;
  MainPnl.SetclProSettings(MainPnl.clProSettings);
  
  TclLogo=LoginForm.AddNewProImage(MainPnl, 'TclLogo');
  TclLogo.Align=alMostTop;
  TclLogo.Height=220;
  TclLogo.Margins.Top=40;
  TclLogo.Margins.Left=20;
  TclLogo.Margins.Right=20;
  TclLogo.clProSettings.IsTransparent=True;
  TclLogo.clProSettings.PictureSource='https://i.imgur.com/bNebUPp.png';
  TclLogo.SetclProSettings(TclLogo.clProSettings);
  
  
  EmailEdit= LoginForm.AddNewEdit(MainPnl,'EmailEdit','E-Posta');
  EmailEdit.Align = alTop;
  EmailEdit.Height = 50;
  EmailEdit.Margins.Top = 20;
  EmailEdit.Margins.Left = 20;
  EmailEdit.Margins.Right = 20;
  EmailEdit.clProSettings.BackGroundColor=clAlphaColor.clHexToColor('#D1D1D1');
  EmailEdit.clProSettings.IsTransparent=True;
  EmailEdit.clProSettings.IsFill=False;
  EmailEdit.clProSettings.IsRound=True;
  EmailEdit.clProSettings.RoundWidth=20;
  EmailEdit.clProSettings.RoundHeight=20;
  EmailEdit.clProSettings.Font.Color=clAlphaColor.clHexToColor('070807');
  EmailEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('070807');
  EmailEdit.clProSettings.BorderWidth=2;
  EmailEdit.SetclProSettings(EmailEdit.clProSettings);
  
  EmailImg=LoginForm.AddNewProImage(EmailEdit,'EmailImg');
  EmailImg.Align=alLeft;
  EmailImg.Margins.Left=10;
  EmailImg.Margins.Top=5;
  EmailImg.Margins.Bottom=5;
  EmailImg.Width=25;
  LoginForm.SetImage(EmailImg,'https://i.imgur.com/g9t6md5');
  
  ParolaEdit=LoginForm.AddNewProEdit(MainPnl, 'ParolaEdit', 'Parola');
  ParolaEdit.Align=alTop;
  ParolaEdit.Height=50;
  ParolaEdit.Margins.Top=20;
  ParolaEdit.Margins.Left=20;
  ParolaEdit.Margins.Right=20;
  ParolaEdit.Password=True;
  ParolaEdit.TextSettings.Font.Size=16;
  ParolaEdit.clProSettings.FontColor=clAlphaColor.clHexToColor('#151515');
  ParolaEdit.clProSettings.BackGroundColor=clAlphaColor.clHexToColor('7D7D7D');
  ParolaEdit.clProSettings.IsTransparent=True;
  ParolaEdit.clProSettings.IsFill=False;
  ParolaEdit.clProSettings.IsRound=True;
  ParolaEdit.clProSettings.RoundHeight=20;
  ParolaEdit.clProSettings.RoundWidth=20;
  ParolaEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#070807');
  ParolaEdit.clProSettings.BorderWidth=2;
  ParolaEdit.SetclProSettings(ParolaEdit.clProSettings);
  
  HiddenPasswordBtn=LoginForm.AddNewProButton(ParolaEdit, 'HiddenPasswordBtn', '');
  HiddenPasswordBtn.Align=alRight;
  HiddenPasswordBtn.Margins.Right=10;
  HiddenPasswordBtn.Margins.Top=5;
  HiddenPasswordBtn.Margins.Bottom=5;
  HiddenPasswordBtn.Width=25;
  LoginForm.SetImage(HiddenPasswordBtn,'https://i.imgur.com/dQ1keru.png');

  PasswordImg=LoginForm.AddNewProImage(ParolaEdit,'PasswordImg');
  PasswordImg.Align=alLeft;
  PasswordImg.Margins.Left=10;
  PasswordImg.Margins.Top=5;
  PasswordImg.Margins.Bottom=5;
  PasswordImg.Width=25;
  LoginForm.SetImage(PasswordImg,'https://i.imgur.com/G2qFyZf.png');
  
  LoginGirisBtn=LoginForm.AddNewProButton(MainPnl, 'LoginGirisBtn', 'Giriş Yap');
  LoginGirisBtn.Align=alCenter;
  LoginGirisBtn.Height=50;
  LoginGirisBtn.Width=MainPnl.Width*40/100;
  LoginGirisBtn.Margins.Top=30;
  LoginGirisBtn.Margins.Left=20;
  LoginGirisBtn.Margins.Right=20;
  LoginGirisBtn.Margins.Bottom=70;
  LoginGirisBtn.clProSettings.BackGroundColor=clAlphaColor.clHexToColor('#c54242');
  LoginGirisBtn.clProSettings.RoundWidth=20;
  LoginGirisBtn.clProSettings.RoundHeight=20;
  LoginGirisBtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#070807');
  LoginGirisBtn.clProSettings.FontSize=16;
  LoginGirisBtn.clProSettings.BorderWidth=2;
  LoginGirisBtn.clProSettings(LoginGirisBtn.clProSettings);
  
  
  LoginForm.SetFormBGImage('https://i.imgur.com/7vcjJ5F.jpeg');
  LoginForm.AddNewEvent(HiddenPasswordBtn,tbeOnClick,'HiddenPasswordBtnClick');
  
  LoginForm.Run;
  
}




]]> Fri, 20 Jun 2025 10:03:55 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1039&PID=2074#2074