Anmelde Form

[freak4fun]

Zitat von BullsEye:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.Color := clgreen;
end;

Ich hoffe du hast das nicht so 1:1 übernommen. Du musst ja noch die Abfrage machen ob der Benutzer überhaupt berechtigt ist.
Du kannst Buttons aktivieren/deaktivieren:Button2.Enabled := true; Edit:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if (MaskEdit1.Text = 'user') and (MaskEdit2.Text = 'pwd')  then
    begin
      // Aufruf Form2
      Panel3.Color := clGreen;
      BitBtn2.Enabled := True;
      ShowMessage('Benutzer erfolgreich angemeldet!');

    end
  else
    begin
      MaskEdit1.Text := '';
      MaskEdit2.Text := '';
      Panel3.Color := clRed;
      BitBtn2.Enabled := false;
      ShowMessage('Ihre Benutzerdaten sind nicht korrekt!');
    end;
end;