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;

[BullsEye]

Zitat von freak4fun:

Ich hoffe du hast das nicht so 1:1 übernommen. Du musst ja noch die Abfrage machen ob der Benutzer überhaupt berechtigt ist.

Es war ja auch nur die Frage, WIE man son Panel grün bekommt.. wenn wir ihm hier nun den kompletten Code geben hat er 0 lerneffekt!

[strom]

Cool funktioniert alles!!! Super

Danke

[strom]

was neues ???

wieso geht das nicht ???

Delphi-Quellcode:

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
Panel7.Color := clgreen;
Timer1.Enabled := true
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form2.Close
end;

ok !

hast ja recht

[Phoenix]

1.) Neue Frage -> Neuer Thread.

Und dann unterlasse es bitte 2.) auf eigene Beiträge zu antworten solange noch keine 24 Stunden um sind. Dazu gibt es den 'Edit' Button rechts oben neben dem Beitrag, damit kannst Du zusätzliche Informationen an den letzten Beitrag hinzufügen.