Sayfayı Yazdır | Pencereyi Kapat

formlar arası geçiş

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=1039
Tarih: 20 Haziran 2025 Saat 19:45
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: formlar arası geçiş
Mesajı Yazan: Mahmutdmr
Konu: formlar arası geçiş
Mesaj Tarihi: 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - https://i.imgur.com/7vcjJ5F.jpeg ');
  LoginForm.AddNewEvent(HiddenPasswordBtn,tbeOnClick,'HiddenPasswordBtnClick');
  
  LoginForm.Run;
  
}


Cevaplar:
Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 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.


Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net