Passwortabfrage & Neues Formular anzeigen lassen

[mkinzler]

Schau doch in der Hilfe nach ShowModal

[KnutschKugel]

Hab ich schon ^^
Aber der ShowModal befehl ist für mich vollkommen neu, habe mir die Sachen in der Delphi-Hilfe zwar schon durchgelesen, aber kann damit nicht wirklich was anfangen.

[mkinzler]

<Form>.ShowModal() zeigt ein Formular modal an, d.h. das Formular bleibt im Vordergrund, das rufende Formular kann erst nach Beenden des modalen Formulars wieder verwendet werden.

[KnutschKugel]

Hmm.. Naja, ich hab jetzt erstmal die Passwortabfrage hinbekommen, indem ich mit if - then - else gearbeitet habe.
Aber wie kann ich das machen, dass er die ausgerechneten Werte an das Formular im Hintergrund sendet?

[scrat1979]

Zitat von KnutschKugel:

Hmm.. Naja, ich hab jetzt erstmal die Passwortabfrage hinbekommen, indem ich mit if - then - else gearbeitet habe.
Aber wie kann ich das machen, dass er die ausgerechneten Werte an das Formular im Hintergrund sendet?

Indem Du das Formular in die uses-Klausel einfügst und dann z.B. ein öffentliches Feld im public Abschnitt des formulars anlegst

Delphi-Quellcode:

[...]

implementation

uses [...], FormImHintergrund;

[...]

FormImHintergrund.MeineVariable := 'WertXYZ';

[...]

BTW, Du solltest auf KEINEN Fall das Passwort in der Art prüfen

if EdtPassword.Text = 'RichtigesPassWort' Then [...] Erstelle lieber einen Hash-Wert (z.B. md5) und prüfe den korrekten Hash, dann steht das Passwort nicht als Text in der Echse... Aber das Thema Sicherheit (insbesondere die if ... then - Bedingung) ist sowieso wieder eine ganz andere Diskussion Ein erfahrener Programmierer / Cracker knackt diesen Abschnitt ohne größere Mühe.

[KnutschKugel]

Das mag ja sein
Aber ich mach es ja nur für die Schule, es soll keine Sicherheit haben, sondern nur funktionieren.
Von Hash-Werten hab ich noch nie was gehört >_>

[KnutschKugel]

Code:

procedure TForm1.btnRechnenClick(Sender: TObject);
var
  L, T, D, a, h, Ausgabe: real;
begin

 [...]

  Ausgabe := T * a + D;
  Form3.h := Ausgabe;
  edtS.Text := FloatToStr(Ausgabe);
end;

[...]

end.

Ich hab jetzt quasi eine extra Variable deklariert, die ich h genannt habe.
Jetzt kommt bei mir

Zitat:

[Fehler] Unit1.pas(64): Undefinierter Bezeichner: 'h'

ich verzweifel gleich

[scrat1979]

Du kannst dabei auch prüfen, welchen Button in dem modalen Fenster gedrückt wurde, indem Du den Buttons das entsprechende ModalResult zuweise und dann nach dem Aufrufen folgendes z.B. prüfst:

if PasswordForm.Showmodal = mrOk Then [...] Die möglichen Ergebnisse kannst Du Dir ja beim Zuweisen der Buttons anschauen. Vielleicht kannst Du den Tip ja auch gebrauchen...