Uses ile SQL Sorgusunu Çekme

// ANA KOD ***************

uses CustomEdit,CustomButton;

var

 MyForm: TCLForm;

 UsernameEdt: TclEdit;

 LoginBtn,RegisterBtn: TCLButton;

 strTut : String;

void RegisterNav;

{

  ShowMessage(UsernameEdt.Text);

}

{

  MyForm = TCLForm.Create(Self);

  

  strTut = '<select id="SL_lng_to" name="SL_lngs"><option value="tr">Türkçe</option><option value="hu">Macarca</option><option value="en">İngilizce</option><option disabled>-------- [ Tüm ] --------</option><option value="af">Afrika Dili</option><option value="de">Almanca</option><option value="dsb">Alt Sorbça</option><option value="ar">Arapça</option><option value="bho">Bhojpuri</option><option value="prs">Dari</option><option value="dv">Divehi</option><option value="doi">Dogri</option><option value="ilo">Ilocano</option><option value="sq">Arnavutça</option><!-- Diğer seçenekler buraya eklenebilir --></select>';

  // Burada kullanıcağınız veriyi yazabilirsiniz. SQL sorgunuz yada başka bir veriyide kulllancığınız uses'e gönderebilirsiniz.

  UsernameEdt = CustomEditFunc(MyForm,MyForm,'Kullanıcı Adını Giriniz','UsernameEdt',strTut);

  RegisterBtn = CustomButtonFunc(MyForm,MyForm,'Editteki HTML stringini ekrana yazdır.','RegisterBtn');

  RegisterBtn.Onclick = 'RegisterNav';

  

  MyForm.Run;

}

//Customedit Unit ******

function CustomEditFunc(AMyForm,ALayout,ACaption,AEdtName,str): TCLEdit;

var 

  CustomEdt: TCLEdit;

{

  CustomEdt =  AMyForm.AddNewEdit(ALayout,AEdtName,ACaption);

  CustomEdt.StyledSettings = ssFamily;

  CustomEdt.Align = alMostTop;

  CustomEdt.height = 38;

  CustomEdt.Margins.Top = 12;

  CustomEdt.Margins.Left = 26;

  CustomEdt.Margins.Right = 26;

  CustomEdt.TextSettings.Font.Size = 14;

  CustomEdt.clTypeOfField = taString;

  CustomEdt.Text =  'Burada Ana koddan gelen veriyi kullanabilirsin.' + str; 

  

  Result = CustomEdt;

}

//Custombutton Unit ******

function CustomButtonFunc(AMyForm,Layout,ACaption,ABtnName):TCLButton;

var 

  CustomBtn: TCLButton;    

{

  CustomBtn = AMyForm.AddNewButton(Layout,ABtnName,ACaption);

  

  CustomBtn.Align = alTop;

  CustomBtn.Margins.Top= 12;

  CustomBtn.Margins.Left = 26;

  CustomBtn.Margins.Right = 26;

  CustomBtn.height = 38;

  CustomBtn.StyledSettings = ssFamily;

  CustomBtn.TextSettings.Font.Size = 14;

  CustomBtn.TextSettings.FontColor = clAlphaColor.clHexToColor('#3700ff');

  

  Result = CustomBtn;

}