Form vor Anzeige wieder schließen

Dietmar1961 · Beiträge: 18

Hallo Delphianer

habe folgendes Problem

ein Form wird aufgerufen

im FormShow werden bestimmte Bedingungen geprüft, z.Bsp. Datensatz vorhanden

wie kann ich das Form vor der Anzeige wieder schließen, wenn bestimmte Anfangsbedingungen nicht erfüllt sind und ModalResult mrCancel zurückgeben???

Danke schon mal für eure Hilfe

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

markieren

Delphi-Quelltext

1:	ModalResult := mrCancel;

sollte reichen.

Dietmar1961 · Beiträge: 18

Habs gerade ausprobiert und dachte schon soooooo einfach.

Hat leider nicht geklappt. Das Form wird trotzdem angezeigt????

Ehemaliges Mitglied Erhaltene Danke: 1

Du willst ins Auto einsteigen und gleichzeitig wieder aussteigen. Kann das Funktionieren? Prüf doe Bedingungen vorher und mach davon das Anzeigen des Formulares abhängig.

Gausi · Verfasst: Do 21.06.07 10:32

Ich würde das dann über eine weitere Prozedur lösen. Also in der aufrufenden Form sowas:
if Form2.BedingungenSindInOrdnung then Form2.Show; Dabei ist BedingungenSindInOrdnung eine Funktion, die die Überprüfungen ausführt, die jetzt im Show drin sind und True oder False zurückliefert.

Edit: Ich tippe zu langsam

_________________
We are, we were and will not be.

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Dietmar1961 hat folgendes geschrieben:

Hat leider nicht geklappt. Das Form wird trotzdem angezeigt????

Ach stimmt. Im OnFormShow könnte es nicht funktionieren... hatte ich überlesen...

Dietmar1961 · Beiträge: 18

Danke an alle für die Tipps, auf euch ist halt verlaß

Ich werde in Zukunft zuerst prüfen ob ich ins Auto einsteigen will bevor ichs dann wirklich tue

arj · Verfasst: Do 21.06.07 16:25

... und falls das nicht möglich ist, einfach folgendes machen (in FormShow)

markieren

Delphi-Quelltext

1:	---Zensiert---

(Aber unten noch lesbar, also NICHT implementieren)

Ehemaliges Mitglied Erhaltene Danke: 1

arj hat folgendes geschrieben:

... und falls das nicht möglich ist, einfach folgendes machen (in FormShow)

markieren

Delphi-Quelltext

1:
2:

Form.Left = -5000
Hide;

Aua, das tut ja weh, wenn man so was sieht.

arj · Verfasst: Do 21.06.07 16:40

Ja, es tut weh. Ich schreib sowas auch nicht gerne, aber es ist eine Möglichkeit

Schande über mich

jakobwenzel · Verfasst: Do 21.06.07 16:51

1. Hide geht in onShow nicht.
2. Theoretisch könnte man 5 Monitore haben, wobei der primäre monitor der ganz rechts wär, und schon würds ganz links angezeigt werden... (Ok, ok, 5 Monitore nebeneinander ist etwas hypothetisch^^)

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.

arj · Verfasst: Do 21.06.07 17:03

okay okay. Ist ja gut meine Idee war *schxxxe*.

COMMANDER86 · Verfasst: Do 21.06.07 18:33

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  if BEDINGUNG_HASSENICHGESEHEN = True
  then
  begin
    FormX.Show;
    Hide;
  end else begin
    //Wenn was angezeigt werden soll:
    ShowMessage ('Meldung');
    //Wenn Hauptformular geschlossen werden soll: Form1 = Hauptformular) evt. Editieren
    Form1.Close;
  end;

Natürlich ist auch eine Kombi aus Meldung und Programm kicken möglich (Erst nach Bestätigung der Meldung werden die folgenden Aktionen abgearbeitet):

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

{...}
    end else begin
      ShowMessage ('Ich mach das Programm dann mal wech...');
      Form1.Close;
    end;

Diese Bedingung da hin pflanzen, wo das Fenster aufgerufen wird. Die Abfragen reinmachen (geiles Wort) und gut is. ^^

Wie immer bei mir: Nicht elegant, aber funktioniert.

_________________
Streichen Sie bitte sämtlichen Sarkasmus aus vorhergehender Nachricht. Dann wissen Sie, was ich sagen möchte. Meine Lösungen sind die vermutlich Umständlichsten, aber sie funktionieren (bei mir).

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme