Einzelnen Beitrag anzeigen

xDdaviiDxD

Registriert seit: 1. Nov 2022
Ort: Sachsen-Anhalt
16 Beiträge
 
FreePascal / Lazarus
 
#13

AW: Lazarus DBGrid Eintrag

  Alt 11. Nov 2022, 09:53
Vielen Vielen Dank haentschman!

Ich hab meinen Code noch etwas angepasst und mit dem Guide und deinen Tipps/Hilfe Lesbarer gemacht.
Das hat mir extrem geholfen auch nochmal etwas mehr Verständnis dafür zu bekommen.

Danke das du dir die Zeit genommen hast

Eine Frage hätte ich noch, Ich hab ja die Procedure von dem Edit Feld mit der Passwort Eingabe. Ich steh grade etwas auf dem Schlauch und frage mich ob ich das noch etwas Sauberer schreiben könnte da ich mehrere Buttons erst nach Eingabe das Passwortes sichtbar machen möchte.

Code:
procedure TForm1.EditPasswortChange(Sender: TObject);

begin
  EditPasswort.PasswordChar:= #0;
  EditPasswort.PasswordChar:= '*';
    if (EditPasswort.Text ='test123') then
      BtnMinimieren.Visible:=True
    else
      BtnMinimieren.Visible:=False;

    if (EditPasswort.Text ='test123') then
      BtnSchliessen.Visible:=True
    else
      BtnSchliessen.Visible:=False;

    if (EditPasswort.Text ='test123') then
      BtnNewDb.Visible:=True
    else
      BtnNewDb.Visible:=False;
end;
MFG
David
  Mit Zitat antworten Zitat