DELPHI: Membuat Halaman Login

Halaman Login pada delphi


Sediakan 1 Edit dan 1 Button, lalu double click pada Button, dan ketik script berikut
Procedure TForm1.Button2Click(sender: TObject);
If Edit1.Text = ‘1234’ then Form2.Show
Else
Begin
Shomessage(‘Password Salah’);
Edit1.Clear;
Edit1.SetFocus;
End;

http://forum.upi.edu/v4/index.php?topic=13181.0