+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اظهار 0 أو 9 في Mask Edit (/showthread.php?tid=3430)
اظهار 0 أو 9 في Mask Edit - nebchadelphi - 20-09-2011
السلام عليكم
كيف يمكن أن نجعل أحد الرقمين 0 أو 9 كرقمين دائمين في ال mask edit
مثال: 0999.1985.1245
يكون العدد 0999 دائما ثابت
وشكرا لكم
اظهار 0 أو 9 في Mask Edit - Lam.Abdeldjalil - 20-09-2011
و عليكم السلام
بعد تحديد الـ Mask الخاص بك أكتب في الـ text الجزء الثابت
![[صورة: mastedt.png]](http://img813.imageshack.us/img813/9065/mastedt.png)
بالتوفيق
اظهار 0 أو 9 في Mask Edit - nebchadelphi - 20-09-2011
السلام عليكم
شكرا لك أخ عبد الجليل
لكن الهدف هو أن يبقى العدد 0999 ثابت
أي أنه لا يتغير اذا ضغطنا على أحد الأرقام
يتم ادخال الأرقام الباقية فقط
وشكرا
اظهار 0 أو 9 في Mask Edit - cargem - 21-09-2011
استخدم الPrefix property
الباقي من نصيبك
كود :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
s1: string;
begin
s1 := Edit1.Text;
s1 := StringReplace(s1, 'Cargem', '', [rfReplaceAll]);
s1 := s1 + Key;
s1 := 'Cargem' + s1;
Edit1.Text := s1;
end;كود :
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 206
ClientWidth = 339
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Edit1: TEdit
Left = 40
Top = 32
Width = 121
Height = 21
TabOrder = 0
Text = 'Cargem'
OnKeyPress = Edit1KeyPress
end
end