Paswort abfrage ...

[TJDD]

...beim Schließen des Programmes

Also ich will eine Passwort abfrage beim schliesen eines Programmes aber ich weis keine Methode dafür

mit einer neuen Form geht es net

zurzeit nutze ich eine Inputbox aber ich bekomme die Anzeige net verschlüsselt also kann jeder das Password sehen

kann mir einer Helfen THX

[supermuckl]

bei einem edit gibts das property "PasswordChar"
oder so ähnlich
das einfach auf z.b. * setzen

für das anzeigen eines forms beim beenden würde ich das ins onClose des Mainforms machen
und das Form mit der Passworteingabe per Showmodal öffnen.

so irgendwie müssts passen ;)

[brechi]

es geht mit einer neuen form wenn du die mit showmodal aufrufst und das ganze in onclosequery packst

[TJDD]

Also ich kann in der mainform zwar mit onclos arbeiten aber die form wird nicht aufgreufen

Er beendet das Prog sofort das mit dem Passwordchar war mir bewusst ha das auch schon mal gemacht (woanderst)

[supermuckl]

du musst auch mit formxyz.showmodal; das teil zum vorschein bringen und nicht mit formxyz.show;

falls du das nicht gemacht hast ;)

showmodal bleibt halt dort im code stehen, bis das form geschlossen wurde und dann erst gehts weiter mit dem kompletten close des programms.

[malo]

Zitat:

Zitat von TJDD

Also ich kann in der mainform zwar mit onclos arbeiten aber die form wird nicht aufgreufen

Du musst das Schließen des Forms noch irgendwie verhindern. Z.B. mit

Delphi-Quellcode:

action := caNone;

. Beachte aber, dass damit dein Formular NICHT schließbar ist! Also vielleicht per Variable (boolean?) abfragen vorher ;)

edit: :oops: Mit ShowModal klappt es auch sogar :?

[ManuMF]

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var Eingabe : String;

begin
  action := caNone;
  if (InputQuery('Programm beenden', 'zum Beenden bitte Passwort eingeben', Eingabe)) then
  // InputQuery gibt true nur zurück, wenn nicht Abbrechen geklickt wurde
  begin
    if (Eingabe = 'passwort') then
      action := caFree;
      // evtl. dann noch mal Form1.close;
    else
      MessageDlg('Falsches Passwort!', mtWarning, [mbOK], 0);
  end;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := false;
end;

end.

Gruß,
ManuMF

[edit]ein bisschen verändet[/edit]

[malo]

Überarbeitete Version:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var Eingabe : String;

begin
  //action := caNone; <-- Nicht nötig, kommt nach unten
  if (InputQuery('Programm beenden', 'zum Beenden bitte Passwort eingeben', Eingabe)) then
  // InputQuery gibt true nur zurück, wenn nicht Abbrechen geklickt wurde
  begin
    if (Eingabe <> 'passwort') then
    begin
      action := caNone; //Nur blockieren, wenn Eingabe falsch, sonst nichts machen  [edit]Oder überhaupt blockieren? Eigene Entscheidung, würd ich sagen
      MessageDlg('Falsches Passwort!', mtWarning, [mbOK], 0);
    end;
  end;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  //CanClose := false; <-- Wieso das?
end;

[TJDD]

Also cih teste das mit dem Showmodal mal den das mit dem InputQuerry raff ich im mom noch net so muss erst mal genau guggen was was macht

//Edit\\


Prima Klasse Arbeit Juing/Mädels

Es funzt Prima mit showmodal THX :dp:


//EDIT\\

gab noch schwierigkeiten hab es andesrt gelöst