التعامل مع checkbox
#1
السلام عليكم 
اود مساعدة بخصوص كود سورس لإضهار محتوى كلمة السر في edit و ذلك عند الضغط على مكون checkbox


الملفات المرفقة
.png   Sans titre.png (الحجم : 440.74 KB / التحميلات : 6)
الرد
#2
السلام عليكم في الـ VCL يمكنك ذلك عن طريق
PHP كود :
edtPass.PasswordChar := #0; 
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
[-] كل من 1 user says قال شكرا ل S.FATEH على المشاركة المفيدة
  • Delphi4Us
الرد
#3
هناك خاصية في edit للفايرمونكي password  اجعلها true لاخفاء الباسوورد او false لاظهاره
كود :
FMX.Edit.TEdit.Password inherits from FMX.Edit.TCustomEdit.Password. All content below this line refers to FMX.Edit.TCustomEdit.Password.

Specifies whether this edit control shows its characters or not.

Set the Password property to True to make this edit control hide its characters for password-like input. Set Password to False to make this edit control show all its characters.
الرد
#4
(15-08-2019, 07:06 PM)invocker كتب : هناك خاصية في edit للفايرمونكي password  اجعلها true لاخفاء الباسوورد او false لاظهاره

FMX.Edit.TEdit.Password inherits from FMX.Edit.TCustomEdit.Password. All content below this line refers to FMX.Edit.TCustomEdit.Password.

Specifies whether this edit control shows its characters or not.

Set the Password property to True to make this edit control hide its characters for password-like input. Set Password to False to make this edit control show all its charact
ممكن كود سور اكثر توضيح في فارمنكي
الرد
#5
الامر لا يحتاج سورس الكود بسيط للغاية  ضع checkbox و edit1  وفي حدث CheckBox1Change  ضع الكود الاتي

كود :
edit1.Password:=CheckBox1.IsChecked ;

هكذا

procedure TForm1.CheckBox1Change(Sender: TObject);
begin
edit1.Password:=CheckBox1.IsChecked ;
end;
[-] كل من 1 user says قال شكرا ل invocker على المشاركة المفيدة
  • Delphi4Us
الرد
#6
(16-08-2019, 05:30 PM)invocker كتب : الامر لا يحتاج سورس الكود بسيط للغاية  ضع checkbox و edit1  وفي حدث CheckBox1Change  ضع الكود الاتي

كود :
edit1.Password:=CheckBox1.IsChecked ;

هكذا

procedure TForm1.CheckBox1Change(Sender: TObject);
begin
edit1.Password:=CheckBox1.IsChecked ;
[size=small]مشكور حبيبي [/size]
الرد


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


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف