Cara membuat form login dengan delphi

Tampilan bisa dibuat seperti gambar dibawah:

On public add koding dibawah:
public<br /> { Public declarations }<br /> class function Execute : Boolean;
Add koding dibawah implementation
class function TFrmLogin.Execute:Boolean;<br /> begin<br /> with TfrmLogin.Create(nil) do<br /> try<br /> Result := ShowModal = mrOK;<br /> finally<br /> free;<br /> end;<br /> end;
On Click Button Login add koding dibawah:

procedure TfrmLogin.btnLoginClick(Sender: TObject);<br /> var username, password : string;<br /> begin<br /> username := 'admin';<br /> password := 'admin';<br /> <br /> if(edtusername.Text = username) and (edtpassword.Text = password) then<br /> begin<br /> ModalResult := mrOK;<br /> end<br /> else<br /> ShowMessage('Login Failed, password or username wrong.');<br /> end;


On Click Button Cancel add koding dibawah:
procedure TfrmLogin.btnCancelClick(Sender: TObject);<br /> begin<br /> ModalResult := mrAbort;<br /> end;

Selamat Mencoba, semoga ilmu yang saya share bermanfaat.
Good Luck