Lazarus DBGrid Eintrag

[Delphi.Narium]

Alternative:

Delphi-Quellcode:

procedure TForm1.EditPasswortChange(Sender: TObject);
begin
  EditPasswort.PasswordChar := #0;
  EditPasswort.PasswordChar := '*';
  BtnMinimieren.Visible := (EditPasswort.Text = 'test123');
  BtnSchliessen.Visible := (EditPasswort.Text = 'test123');
  BtnNewDb.Visible := (EditPasswort.Text = 'test123');
end;

oder

Delphi-Quellcode:

procedure TForm1.EditPasswortChange(Sender: TObject);
begin
  EditPasswort.PasswordChar := #0;
  EditPasswort.PasswordChar := '*';
  // Es reicht, diesen Vergleich einmal zu machen.
  BtnMinimieren.Visible := (EditPasswort.Text = 'test123');
  BtnSchliessen.Visible := BtnMinimieren.Visible;
  BtnNewDb.Visible := BtnMinimieren.Visible;
end;

oder

Delphi-Quellcode:

function PruefePasswort(AEingabe, APasswort : String) : Boolean;
begin
  // Hier könnte man später auch eine beliebige Prüflogik implementieren.
  Result := AEingabe = APasswort;
end;

procedure TForm1.EditPasswortChange(Sender: TObject);
begin
  EditPasswort.PasswordChar := #0;
  EditPasswort.PasswordChar := '*';
  BtnMinimieren.Visible := PruefePasswort(EditPasswort.Text,'test123');
  BtnSchliessen.Visible := BtnMinimieren.Visible;
  BtnNewDb.Visible := BtnMinimieren.Visible;
end;