Virtual Keyboard

Merhabalar. Virtual keyboard özelliğini tasarımda kullanıyordum fakat editler klavye açıldığında yukarı çıkarken eklediğim label çıkmıyor aşağıda kalmaya devam ediyor. Bunu nasıl düzeltebiliriz?

var

  LoginForm: TclForm;

  EmailEdit, ParolaEdit: TclProEdit;

  LoginGirisBtn, HiddenPasswordBtn, NormalPasswordBtn: TClProButton;

  UyeOlLbl: TClProLabel;

  emailLbl, passwowordLbl : TClProLabel;

  MainPnl: TclProPanel;

  EmailImg, passwordImg: TClProImage;

void VirtualKeyboardShow;

 {

   MainPnl.Margins.Bottom = LoginForm.clVKBoundsHeight;

 }

 

 void VirtualKeyboardHidden;

 {

   MainPnl.Margins.Bottom = 0;

 }

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/3h7ewO1.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 + ' Exception Message: ' + LastExceptionMessage);

  }

}

{

  LoginForm = TclForm.Create(Self);

 

// Panel setup

  MainPnl = LoginForm.AddNewProPanel(LoginForm, 'MainPnl');

  MainPnl.Align = alCenter;

  MainPnl.Height = 630;

  MainPnl.Width = 400;

  MainPnl.clProSettings.RoundHeight = 40;

  MainPnl.clProSettings.RoundWidth = 40;

  

  //Email Label ayarları

  

  emailLbl = LoginForm.AddNewProLabel(LoginForm, 'emailLbl', 'E-Mail');

  emailLbl.Align = alCenter;

  emailLbl.Margins.Top = 120;

  emailLbl.Margins.Left = 0;

  emailLbl.Margins.Right = 220;

  emailLbl.TextSettings.Font.Size = 20;

  emailLbl.Height = 50;

  emailLbl.Width = 100;

  

  

  

  

  

  //MainPnl.clProSettings.IsFill = False;

  //MainPnl.clProSettings.BorderWidth = 3;

  MainPnl.clProSettings.IsTransparent = False;

  MainPnl.SetclProSettings(MainPnl.clProSettings);

  // Email edit setup

  EmailEdit = LoginForm.AddNewProEdit(MainPnl, 'EmailEdit', 'E-Mail');

  EmailEdit.Align = alCenter;

  EmailEdit.Height = 50;

  EmailEdit.Width = 350;

  EmailEdit.Margins.Top =160;

  EmailEdit.Margins.Left = 20;

  EmailEdit.Margins.Right = 20;

  EmailEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B2F0E4');

  EmailEdit.clProSettings.IsTransparent = True;

  EmailEdit.clProSettings.IsFill = False;

  EmailEdit.clProSettings.IsRound = True;

  EmailEdit.clProSettings.RoundHeight = 30;

  EmailEdit.clProSettings.RoundWidth = 40;

  EmailEdit.TextSettings.Font.Size = 16;

  EmailEdit.clProSettings.FontColor = 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.png');

  // Password edit setup

  ParolaEdit = LoginForm.AddNewProEdit(MainPnl, 'ParolaEdit', 'Parola');

  ParolaEdit.Align = alCenter;

  ParolaEdit.Height = 50;

  ParolaEdit.Width = 350;

  ParolaEdit.Margins.Top =340;

  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('#B2F0E4');

  ParolaEdit.clProSettings.IsTransparent = True;

  ParolaEdit.clProSettings.IsFill = False;

  ParolaEdit.clProSettings.IsRound = True;

  ParolaEdit.clProSettings.RoundHeight = 30;

  ParolaEdit.clProSettings.RoundWidth = 40;

  //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');

  // Login button setup

  LoginGirisBtn = LoginForm.AddNewProButton(MainPnl, 'LoginGirisBtn', 'Giriş Yap');

  LoginGirisBtn.Align = alCenter;

  LoginGirisBtn.Height = 50;

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

  LoginGirisBtn.Margins.Top =500;

  LoginGirisBtn.Margins.Left = 20;

  LoginGirisBtn.Margins.Right = 20;

  LoginGirisBtn.Margins.Bottom = 0;

  LoginGirisBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FF6B35');

  LoginGirisBtn.clProSettings.RoundHeight = 30;

  LoginGirisBtn.clProSettings.RoundWidth = 40;

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

  LoginGirisBtn.clProSettings.FontSize = 16;

  LoginGirisBtn.SetclProSettings(LoginGirisBtn.clProSettings);

  

  LoginForm.SetFormBGImage('https://i.imgur.com/PyBg9mb.png');

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

  

  LoginForm.AddNewEvent(LoginForm,tbeOnVirtualKeyboardShown,'VirtualKeyboardShow');

  LoginForm.AddNewEvent(LoginForm,tbeOnVirtualKeyboardHidden,'VirtualKeyboardHidden');

  

  LoginForm.Run;

}