Merhabalar giriş arayüzümü yaptım giriş yap ve üye ol şeklinde giriş yap kısmının kodlarını yazdım çalışıyor ama üye ol kısmı içi yaptığımında çalışmıyor yardım edebilir misiniz kodlarım aşşağıda teşekkürler.
var

  LoginForm: TClForm;

  EmailEdit,ParolaEdit : TclProEdit;

  LoginGirisBtn,UyeOlBtn,HiddenPasswordBtn,NormalPasswordBtn: TClProButton;

  UyeOlLbl,OrLabel: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.Width=25;

      NormalPasswordBtn.Margins.Bottom=5;

      LoginForm.SetImage(NormalPasswordBtn,' https://www.stilfon.com/wp-content/uploads/2022/02/B90.jpg" rel="nofollow - https://www.stilfon.com/wp-content/uploads/2022/02/B90.jpg ');

      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.Top=5;

        HiddenPasswordBtn.Width=25;

        HiddenPasswordBtn.Margins.Bottom=5;

        HiddenPasswordBtn.Margins.Right=10;

        LoginForm.SetImage(HiddenPasswordBtn,' https://www.stilfon.com/wp-content/uploads/2022/02/B90.jpg" rel="nofollow - https://www.stilfon.com/wp-content/uploads/2022/02/B90.jpg ');

        LoginForm.AddNewEvent(HiddenPasswordBtn,tbeOnClick,'HiddenPasswordBtnClick');

      }

        else

        {

          HiddenPasswordBtn.Visible=True;

        }

        

        ParolaEdit.Password=True;

        NormalPasswordBtn.Visible=False;

        

        except

       } 

          ShowMessage('Exception Class:' + LastExceptionClassName + 'Exception 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.Height=220;

    TclLogo.Margins.Top=40;

    TclLogo.Margins.Left=20;

    TclLogo.Margins.Right=20;

    TclLogo.Align=alMostTop;

    TclLogo.clProSettings.IsTransparent=True;

    TclLogo.clProSettings.PictureSource=' https://assets.turbologo.com/blog/tr/2021/07/12050531/Bakery-Classical-Logo.png" rel="nofollow - https://assets.turbologo.com/blog/tr/2021/07/12050531/Bakery-Classical-Logo.png ';

    TclLogo.SetclProSettings(TclLogo.clProSettings);

  

  

    EmailEdit=LoginForm.AddNewProEdit(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('#000000');

    EmailEdit.clProSettings.IsTransparent=True;

    EmailEdit.clProSettings.IsFill=False;

    EmailEdit.clProSettings.IsRound=True;

    EmailEdit.clProSettings.RoundHeight=20;

    EmailEdit.clProSettings.RoundWidth=20;

    EmailEdit.TextSettings.Font.Size=16;

    EmailEdit.clProSettings.FontColor=clAlphaColor.clHexToColor('#ffffff');

    EmailEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#000000');

    EmailEdit.clProSettings.BorderWidth=2;

    EmailEdit.SetclProSettings(EmailEdit.clProSettings);

    

    

    

    EmailImg=LoginForm.AddNewProImage(EmailEdit,'EmailImg');

    EmailImg.Align=alLeft;

    EmailImg.Width=25;

    EmailImg.Margins.Top=5;

    EmailImg.Margins.Left=10;

    EmailImg.Margins.Bottom=5;

    LoginForm.SetImage(EmailImg,' https://cdn1.iconfinder.com/data/icons/social-messaging-ui-black-round/254000/04-64.png" rel="nofollow - https://cdn1.iconfinder.com/data/icons/social-messaging-ui-black-round/254000/04-64.png ');

    

    

    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.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#000000');

    ParolaEdit.clProSettings.IsTransparent=True;

    ParolaEdit.clProSettings.IsFill=False;

    ParolaEdit.clProSettings.IsRound=True;

    ParolaEdit.clProSettings.RoundHeight=20;

    ParolaEdit.clProSettings.RoundWidth=20;

    ParolaEdit.TextSettings.Font.Size=16;

    ParolaEdit.clProSettings.FontColor=clAlphaColor.clHexToColor('#ffffff');

    ParolaEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#000000');

    ParolaEdit.clProSettings.BorderWidth=2;

    ParolaEdit.SetclProSettings(ParolaEdit.clProSettings);

    

    

    HiddenPasswordBtn=LoginForm.AddNewProButton(ParolaEdit, 'HiddenPasswordBtn', '');

    HiddenPasswordBtn.Align=alRight;

    HiddenPasswordBtn.Margins.Top=5;

    HiddenPasswordBtn.Width=25;

    HiddenPasswordBtn.Margins.Bottom=5;

    HiddenPasswordBtn.Margins.Right=10;

    LoginForm.SetImage(HiddenPasswordBtn,' https://cdn2.iconfinder.com/data/icons/basicons-line/96/eye-slash-64.png" rel="nofollow - https://cdn2.iconfinder.com/data/icons/basicons-line/96/eye-slash-64.png ');

    

    passwordImg=LoginForm.AddNewProImage(ParolaEdit,'passwordImg');

    passwordImg.Align=alLeft;

    passwordImg.Margins.Top=5;

    passwordImg.Width=25;

    passwordImg.Margins.Bottom=5;

    passwordImg.Margins.Left=10;

    LoginForm.SetImage(passwordImg,' https://cdn3.iconfinder.com/data/icons/linecons-free-vector-icons-pack/32/lock-256.png" rel="nofollow - https://cdn3.iconfinder.com/data/icons/linecons-free-vector-icons-pack/32/lock-256.png ');

    

    

    

    UyeOlBtn=LoginForm.AddNewProButton(MainPnl,'UyeOlBtn','Üye Ol');

    UyeOlBtn.Align=alCenter;

    UyeOlBtn.Height=50;

    UyeOlBtn.Width=MainPnl.Width*40/100;

    UyeOlBtn.Margins.Top=30;

    UyeOlBtn.Margins.Left=20;

    UyeOlBtn.Margins.Right=20;

    UyeOlBtn.Margins.Bottom=5;

    UyeOlBtn.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#000000');

    UyeOlBtn.clProSettings.RoundHeight=20;

    UyeOlBtn.clProSettings.RoundWidth=20;

    UyeOlBtn.clProSettings.TextSettings.Font.Size=16;

    UyeOlBtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#ffffff');

    UyeOlBtn.clProSettings.BorderWidth=2;

    UyeOlBtn.SetclProSettings(UyeOlBtn.clProSettings);

    

    

    

    

    LoginForm.SetFormBGImage(' https://www.stilfon.com/wp-content/uploads/2022/02/B90.jpg" rel="nofollow - https://www.stilfon.com/wp-content/uploads/2022/02/B90.jpg ');

    LoginForm.AddNewEvent(HiddenPasswordBtn,tbeOnClick,'HiddenPasswordBtnClick');

   

    LoginForm.Run;

}

Tam olarak çalışmaya kısmı neresi acaba?

void GoToUnit2;

{

  MyForm.clShow;

  Unit2.UnitName = '//Bu kısma unitin adını yazacaksın';

  Unit2.CallerForm = //Bu kısma formun adını yazacaksın;

  Unit2.Run;

}
bunları yaptıktan sonra en alttan da bu voidi çağıracaksın

void üyeolagit;

{

Clomosy.RunUnit('Oluşturduğununitinismi');

{  

ve bunu üye ol butonunu kodlağın yerin aşağısına ek olarak 

Formismi.AddNewEvent(üyeolbutonu,'tbeonclick','üyeolagit');

şeklinde kullanabilirsin

Merhaba,

void UyeOlSayfasinaGit {

//Ana Kod içinde

İyi çalışmalar.