دخول

nebchadelphi · 20-09-2011, 07:16 AM

السلام عليكم
كيف يمكن أن نجعل أحد الرقمين 0 أو 9 كرقمين دائمين في ال mask edit
مثال: 0999.1985.1245
يكون العدد 0999 دائما ثابت
وشكرا لكم

**Lam.Abdeldjalil** · 20-09-2011, 08:35 PM

و عليكم السلام

بعد تحديد الـ Mask الخاص بك أكتب في الـ text الجزء الثابت

[صورة: mastedt.png]

بالتوفيق

nebchadelphi · 20-09-2011, 10:55 PM

السلام عليكم
شكرا لك أخ عبد الجليل
لكن الهدف هو أن يبقى العدد 0999 ثابت
أي أنه لا يتغير اذا ضغطنا على أحد الأرقام
يتم ادخال الأرقام الباقية فقط
وشكرا

cargem · 21-09-2011, 01:03 AM

استخدم ال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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة