عمل واجهة ترحيبية بالدلفي

Splash Screen Form in DELPHI

Codes:
كود للتحقق من إسم المستخدم و كلمة السر
ولتفعيل المكون تايمر و إظهار المكون بروغرس بار
procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.Text='USERNAME')and (edit2.Text='PASSWORD') then
begin
timer1.Enabled:=true;
progressbar1.visible:=true;
end;
end;
..............................................................................................
كود إخفاء وإظهار كلمة السر
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.checked then
edit2.PasswordChar:=#0
else
edit2.PasswordChar:='*';
end;

.........................................................................................
كود تفعيل البروغرس بار والولوج إلى الواجهة الثانية
procedure TForm1.Timer1Timer(Sender: TObject);
begin
progressbar1.Position:=progressbar1.Position+3;
if progressbar1.Position=100 then
begin
timer1.Enabled:=false;
form2.show;
form1.hide;
end;
end;

Видео عمل واجهة ترحيبية بالدلفي канала Kamal Eddin Ach