Delphi ile Orta Seviye Bir Login ( Giriş ) Ekranı Yapımı

Jameica

Yazar Şefi
Moderatör
Katılım
9 Eki 2022
Konular
23
Mesajlar
44
Tepki puanı
69
Puanları
1,610
Öncelikle Merhabalar ;
Bugün sizler ile Delphi'de orta seviye'li bir login ( giriş ) ekranı yapıcağız.

Programımızın Çalışma Mantığı ;
Programımız 2 adet form'dan oluşmaktadır. Bu formlar'dan 1. olanı giriş paneli'dir. Bu panel'de kullanılan itemler girişi sağlamak için kullanılan itemlerdir.
2. Panelde kullanılan itemler ise şuanlık sadece görsel amaçlıdır.

Programı Yapmaya Başlıyalım;
Programımıza yeni bir form oluşturarak başlıyoruz. Form açıldıktan sonra karşımıza unit1 ekranı geliyor, bu ekranda en sol üst köşe'de ki ''File'' bölümüne gelip ''New'' bölümün'den ''VCL-FORM DELPHİ'' seçeneğini seçip 2. unit ekranını açıyoruz. Gelelim arayüz dizaynına arayüz dizaynı aşağıdaki görselden baz alınarak yapılabilir.

Arayüz Dizaynı ;

Screenshot_2.png


Programa Devam Ediyoruz ;
Arayüz dizaynı'da yapıldığına göre sırada kod kısımı. Kod kısmı şu şekilde yapılacak, arayüzde bulunan button1'e tıklayıp yan taraf'da ki object inspector bölümünden events bölümüne gelip aşağıda bulunan onclick olayına yazılacaktır.

Yazılacak Olan Kod Kısımı ;


Screenshot_3.png


Kodu Kolayca Alabilmek İsterseniz Aşağıda Mevcut.

Kod:
procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Edit1.Text = 'Admin') and (edit2.Text='123') then
  form2.Show
  else ShowMessage('Lütfen Kullanıcı Adı Ve Şifrenizi Giiriniz')



end;

end.

Sıra Geldi 2. Unit Ekranına ;
2. Unit ekranı için 2 adet image kullanıyoruz. Bu image itemlerini temsili görsel koymak için kullanıyoruz.

2. Unit Ekranı Dizaynı ;

Screenshot_4.png


2. Unit Ekranı İçin Kodlar ;

Screenshot_6.png


Kodu Kolayca Alabilmek İsterseniz Aşağıda Mevcut.

Kod:
procedure TForm2.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile ('C:\Users\Bilgiisayarınızınadı\bulunduğubölge\TemsiliGörselAdı.bmp');
Image2.Picture.LoadFromFile ('C:\Users\Bilgiisayarınızınadı\bulunduğubölge\TemsiliGörseladı.bmp');
end;

end.


Bugün'de sizler ile bir delphi bölümünün sonuna gelmiş bulunmaktayız. Herhangi bir yapamadığınız veyahutta takıldığınız bir yer olursa danışmak ve bilgi almak için

Discord Adresim ; SE7#0001

Formu Okuduğunuz İçin Teşekkür Eder İyi Günler Dilerim.
 
Son düzenleme: