Neues Fenster erscheint, nachdem Bedingung erfüllt ist.

[Dave_lernt_Delphi]

Hey ihr Delphi-Experten,
ich habe hier diesen Code:

Delphi-Quellcode:

procedure TForm1.bt1Click(Sender: TObject);
var a, b, c, d : Real;
begin
//Eingabeteil
a:=StrToFloat(Edit1.text);
b:=StrToFloat(Edit2.text);
c:=StrToFloat(Edit3.text);
d:=StrToFloat(Edit4.text);
//Verarbeitungsteil
  If a*b - c+d=1302 then begin
end else ShowMessage('Du hast die falsche '+#13#10+'Zahlenkombination eingegeben!');
end;

end.

Nach then begin soll stehen, dass ein vorher von mir erstelltes Fenster erscheinen soll und sich jenes schließt.
Z.b. : Ich klicke auf den Button (bevor ich den richtigen Code nach a*b - c+d=1302 eingegeben habe) und es erscheint eine neue Form ('n neues Fenster) und das alte schließt sich.
Könnt ihr mir vllt. mal den Code so umschreiben, dass das funktionieren würde!?
Wäre echt cool von euch, Danke,
Euer Dave

[DeddyH]

Schau mal in die Hilfe zu TForm, da gibt es die Methoden Show, ShowModal, Hide und Close. Such Dir davon das Passende aus.

[BAMatze]

Bedenk aber, dass du nicht deine Hauptform schließen kannst. Aber bei einem Programm mit mehreren Fenstern kannst du mit Showmodal ein 2.Fenster aufmachen. Wenn du möchtest, dass die MainForm dann verschwindet, mach sie einfach unsichtbar (Visible := false). Bedenke aber auch, dass du dein Programm nur schließen kannst, wenn du deine MainForm schließt.

[Dave_lernt_Delphi]

Alles klar, ich danke euch!
MfG Dave

[DevilsCamp]

oder lass dein Code-Formular als eine Splash-Screen laufen so dass die Main-Form erst geladen wird, wenn der richtige Code eingetragen wurde.

[Dave_lernt_Delphi]

Ah, super,
das ist genau das, was ich brauchte,
vielen Dank, DevilsCamp.