بخصوص edit و تنسيق النص داخله ؟
#1
السلام عليكم ورحمة الله وبركاته
أولا عيد أضحى مبارك على الجميع أما بعد

عيد edit محدد عدد الأحرف بـ: 08 أحرف واستخدمه للبحث بهذه الصيغة
123/2014
أرغب أن أجعل الرمز / ثابت داخل edit أي عند البحث ما عليك إلا كتابة الأرقام حيث عندما يكتب
123 ينتقل مباشرة إلى كتابة 2014 دون كتابة الرمز / لأنه مثبت داخل edit
الرد
#2
وعليكم السلام
في الحدث OnChange ضع شيء مثل

PHP كود :
procedure TForm1.Edit1Change(Sender: TObject);
begin
  
if Length(Edit1.Text) = 3 then
  begin
    Edit1
.Text := Edit1.Text + '/';
    
Edit1.SelStart := 4;
  
end;
end; 
سبحان الله وبحمده سبحان الله العظيم
الرد
#3
السلام عليكم

المكون الأنسب لحالتك هو الـ MaskEdit مع الـ InputMask = ####/###
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
الرد
#4
السلام عليكم
كما قال لك الاخ
في قائمة Inspecteur d'objet ستجدEditMask انقر و ضع هذا الكود
كود :
!999/9999;1;_
في Masque
الرد
#5
شكرا لكم وبارك الله فيكم على الرد

جعلها الله في ميزان حسناتكم
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم