|
Merhaba maliyagci
Clomosy'de çalışırken, birimlerinize (Unit) fazladan alan ekleyerek veri göndermeniz mümkündür. Aşağıda, strTut isimli bir değişken oluşturularak veri ataması yapılmış ve bu veri Unit'e gönderilmiştir. Bu yöntemi kullanarak sorgularınızı veya diğer veri türlerini kolayca Unit'e aktarabilirsiniz. Kullandığınız sorgulardaki hatalı etiketlerin (örneğin <id> ve <ed>) hata vermiş olabileceğini de göz önünde bulundurmanız önemli. İyi çalışmalar dilerim.
// 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; }
|