17-08-2019, 07:38 AM
(16-08-2019, 05:30 PM)invocker كتب : الامر لا يحتاج سورس الكود بسيط للغاية ضع checkbox و edit1 وفي حدث CheckBox1Change ضع الكود الاتي[size=small]مشكور حبيبي [/size]
كود :edit1.Password:=CheckBox1.IsChecked ; هكذا procedure TForm1.CheckBox1Change(Sender: TObject); begin edit1.Password:=CheckBox1.IsChecked ;