Anzeige der Nebenform vor der Hauptform

[marabu]

Das sollte ohne Probleme so funktionieren:

Delphi-Quellcode:

procedure TLoginForm.LoginButtonClick(Sender: TObject);
var
  ini: TMemIniFile;
  fn: TFileName;
begin
  if PswdEdit.Text = PASSWORD then
  begin
    fn := ChangeFileExt(ParamStr(0), '.ini');
    ini := TMemIniFile.Create(fn);
    ini.WriteString('Einstellungen', 'LetzteAnmeldung', DateTimeToStr(Now));
    ini.UpdateFile;
    ini.Free;
    ModalResult := mrOK;
  end else ShowMessage('falsches Kennwort');
end;

marabu