Onclose genauern definieren

Maisinator · Beiträge: 167 Win XP HE SP3, Win Vista HP SP2 Delphi ;-)

hallo,

ich habe eine procedure zum überprüfen einer id geschrieben. nun möchte ich, dass wenn man das einabefenster für die id einfach schließt (per X oder Alt + F4) auch das hauptformular geschlossen wird. wenn die procedure allerdings erfolgreich war und das eingabefenster automatisch geschlossen werden soll, soll natürlich das hauptformular bestehen bleiben...

wie kann ich das machen????

jakobwenzel · Verfasst: Sa 11.07.09 18:48

Du musst dir merken obs erfolgreich war und nur wenn nicht das Hauptformular schließen.

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

ffgorcky · Beiträge: 573 WIN XP/2000 & 7Prof (Familie:Win95,Win98)

Also ich meine, das müsste dann doch so gehen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

Passwort:='Wurde abgebrochen!';
Passwort := InputBox('Passwort erwartet!', 'Bitte hier das Passwort eingeben!'+#13#10+
                                          'Sonst gehts hier nicht weiter!:', Passwort);
if Passwort='Wurde abgebrochen!' then
   Application.Terminate;

- Oder? Liege ich da gerade gewaltig daneben?

jaenicke · Verfasst: Sa 11.07.09 20:22

Maisinator hat folgendes geschrieben :

ich habe eine procedure zum überprüfen einer id geschrieben. nun möchte ich, dass wenn man das einabefenster für die id einfach schließt (per X oder Alt + F4) auch das hauptformular geschlossen wird

Wie das geht, siehst du ja in dem Beispiel, das ich vorhin geschrieben habe. ;-)

// EDIT: Link vergessen :oops:

Weise bei dem Button zum Bestätigen ModalResult zu, z.B. auf mrOk, dann kannst du den Rückgabewert von ShowModal direkt darauf prüfen. Wurde das Fenster mit einem anderen Button oder dem X oder so geschlossen, hat ModalResult nicht den Wert, der bei deinem Bestätigen-Button drin steht.

Maisinator · Beiträge: 167 Win XP HE SP3, Win Vista HP SP2 Delphi ;-)

ich hab das problem mit ner weiteren stringlist gelöst. wenn die procedure überprüfen erfolgreich war, wird ne 0 reingeschrieben, wenn sie fehlgeschlagen ist, eine 4. und bei onclose lass ich dann einfach überprüfen, ob eine 4 in der stringlist steht...

Funktioniert 1A!!!!

jaenicke · Verfasst: So 12.07.09 10:21

Und wozu brauchst du da eine TStringList? Warum nicht eine einfache Integer-Variable oder Boolean-Variable oder so? ;-)

Maisinator · Beiträge: 167 Win XP HE SP3, Win Vista HP SP2 Delphi ;-)

jaenicke hat folgendes geschrieben :

Und wozu brauchst du da eine TStringList? Warum nicht eine einfache Integer-Variable oder Boolean-Variable oder so? ;-)

weil ich mich damit nicht so auskenne???

Xentar · Verfasst: Mo 13.07.09 21:23

Was muss man sich da auskennen?

markieren

Delphi-Quelltext

1:	If MyInteger = 0 then ......

_________________
PROGRAMMER: A device for converting coffee into software.

Maisinator · Beiträge: 167 Win XP HE SP3, Win Vista HP SP2 Delphi ;-)

ok, probier ich beim nächsten mal ^^

ffgorcky · Beiträge: 573 WIN XP/2000 & 7Prof (Familie:Win95,Win98)

Noch einfacher wäre es doch, wenn Du eine solche Form-Variable definierst:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

Form
...
var
  erfolgreichEingeloggt:boolean;
begin
//hier folgen dann Deine Prozeduren

dann könntest Du doch zum Beispiel immer einfach nur abfragen

markieren

Delphi-Quelltext

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

if erfolgreichEingeloggt then
           begin
           //und hier macht er dann was Du im Fall des erfolgreichen Einloggens direkt machen (lassen) möchtest
           end
{und evtl. noch:}
        else
           begin
           //und hier dann eben noch evtl. die neue Passwort-Eingabe-Aufforderung
           end;

Wobei Du natürlich hinter das das die If-Abfrage abschließende end ein ; setzen musst, wenn Du kein else dahintersetzt - aber ich denke mal dass Du das doch eigentlich auch so schon längst weißt...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme