المشاركات : 2
المواضيع 1
:
: 0
الإنتساب : Jan 2012
03-10-2014, 06:55 PM
(آخر تعديل لهذه المشاركة: 04-10-2014, 09:05 AM بواسطة S.FATEH.)
السلام عليكم ورحمة الله وبركاته
أولا عيد أضحى مبارك على الجميع أما بعد
عيد edit محدد عدد الأحرف بـ: 08 أحرف واستخدمه للبحث بهذه الصيغة
123/2014
أرغب أن أجعل الرمز / ثابت داخل edit أي عند البحث ما عليك إلا كتابة الأرقام حيث عندما يكتب
123 ينتقل مباشرة إلى كتابة 2014 دون كتابة الرمز / لأنه مثبت داخل edit
المشاركات : 654
المواضيع 34
:
: 106
الإنتساب : Aug 2010
وعليكم السلام
في الحدث OnChange ضع شيء مثل
PHP كود :
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) = 3 then
begin
Edit1.Text := Edit1.Text + '/';
Edit1.SelStart := 4;
end;
end;
سبحان الله وبحمده سبحان الله العظيم
المشاركات : 975
المواضيع 50
:
: 218
الإنتساب : Feb 2008
السلام عليكم
المكون الأنسب لحالتك هو الـ MaskEdit مع الـ InputMask = ####/###
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
المشاركات : 316
المواضيع 64
:
: 1
الإنتساب : Apr 2009
السلام عليكم
كما قال لك الاخ
في قائمة Inspecteur d'objet ستجدEditMask انقر و ضع هذا الكود
في Masque
المشاركات : 2
المواضيع 1
:
: 0
الإنتساب : Jan 2012
شكرا لكم وبارك الله فيكم على الرد
جعلها الله في ميزان حسناتكم