28-01-2010, 08:40 PM
تصحيح خلل في المقآرنة عند انشآء مستخدم جديد,
في الكود, في الفورم NewUserFrm
هناك خطأ يحدث مع الألوان,
في حآلة المقآرنة التي تتم بين ال Password1 و ال Password2 ويكون هناك خلل تصبح حينها ال Edit 1 و 2 بالون الأحمر, في حآلة تصحيح الخلل من PassWord2 لا يرجع الون الى الأبيض حتى بعض الضغط على التسجيل,
الحلّ, كتآبة الكود التآلي,
او استغلال ال PwdEdit 2 onChange ووضعه كما هو في الإدين الأول,
وسآمحني لآنني وضعت الحلّ هنا, لكن لا استطيع رفع المشروع الى المنتدى حآليّا, والسبب ستعرفه في سؤآلي في المشآركة السآبقة,
بالتوفيق اخوآني,
في الكود, في الفورم NewUserFrm
كود :
procedure TNewUserForm.SpeedButton1Click(Sender: TObject);//Register
begin
if NameEdt.Text = '' then //Check User Name
begin
NameEdt.Color := $008080FF ;
Exit ;
end;
if (PwdEdt1.Text <> PwdEdt2.Text) OR (PwdEdt1.Text = '' ) then //Check Password
begin
PwdEdt1.Color := $008080FF ;
PwdEdt2.Color := $008080FF ;
Exit ;
end;
if EmailEdt.Text = '' then //Check Email
begin
EmailEdt.Color := $008080FF ;
Exit ;
end;
// Start Registration Process Here
end;هناك خطأ يحدث مع الألوان,
في حآلة المقآرنة التي تتم بين ال Password1 و ال Password2 ويكون هناك خلل تصبح حينها ال Edit 1 و 2 بالون الأحمر, في حآلة تصحيح الخلل من PassWord2 لا يرجع الون الى الأبيض حتى بعض الضغط على التسجيل,
الحلّ, كتآبة الكود التآلي,
كود :
procedure TNewUserForm.SpeedButton1Click(Sender: TObject);//Register
begin
if NameEdt.Text = '' then //Check User Name
begin
NameEdt.Color := $008080FF ;
Exit ;
end;
if (PwdEdt1.Text <> PwdEdt2.Text) OR (PwdEdt1.Text = '' ) then //Check Password
begin
PwdEdt1.Color := $008080FF ;
PwdEdt2.Color := $008080FF ;
Exit ;
end
else begin // ----------------- هنا كان الخلل,
PwdEdt1.Color := $00ffffff ;
PwdEdt2.Color := $00ffffff ;
end;
if EmailEdt.Text = '' then //Check Email
begin
EmailEdt.Color := $008080FF ;
Exit ;
end;
// Start Registration Process Here
end;او استغلال ال PwdEdit 2 onChange ووضعه كما هو في الإدين الأول,
كود :
procedure TNewUserForm.PwdEdt2Change(Sender: TObject);
begin
PwdEdt1.Color := ClWhite ;
PwdEdt2.Color := ClWhite ;
end;وسآمحني لآنني وضعت الحلّ هنا, لكن لا استطيع رفع المشروع الى المنتدى حآليّا, والسبب ستعرفه في سؤآلي في المشآركة السآبقة,
بالتوفيق اخوآني,
فرّج همّ المهمومين يا الله
اللهم فك قيد اسرانا و اسرى المسلمين
اللهم فك قيد اسرانا و اسرى المسلمين