Anmelde Form

[freak4fun]

Nur mal als ganz einfaches Beispiel:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if (MaskEdit1.Text = 'user') and (MaskEdit2.Text = 'pwd')  then
    begin
      // Aufruf Form2
      ShowMessage('Benutzer erfolgreich angemeldet!');
    end
  else
    begin
      MaskEdit1.Text := '';
      MaskEdit2.Text := '';
      ShowMessage('Ihre Benutzerdaten sind nicht korrekt!');
    end;
end;

Vielleicht PasswortChar von MaskEdit2 noch auf * stellen.

MfG
f4f