27-10-2014, 08:14 AM
اهلا اخي لم افهم جيدا المثال هذا هو الكود سورس الذي استعمل
كود :
procedure TForm1.Boutton1Click(Sender: TObject);
begin
if ((edit1.text='farid') and(edit2.text='ts')) or ((edit1.text='hssen') and(edit2.text='t')) or ((edit1.text='foudi') and(edit2.text='tss'))
then
begin
form2.show;
form1.Hide ; end
else
showmessage('erreur mot de passe')
end ;