Formular für bestimmte Zeit deaktivieren

[Beck93]

Hi,

ich bin es schon wieder.

Ich stehe jetzt vor dem Problem, dass ich nach dem Drücken eines Buttons, über einen Timer einen Ordner beobachte ob eine bestimmte Datei reinkopiert wird. Ein Zweiter Timer soll nun 20 sekunden laufen und solange Dieser läuft darf das Formular nicht geschlossen werden oder ein Button gedrückt werden. Wenn nach den 20 Sekunden die Datei noch nicht gefunden wurde soll er das Formular wieder aktivieren und eine Fehlermeldung bringen.

Soweit die Beschreibung.

Nur wie Weiß ich wann die 20 Sekunden rum sind? Der Timer soll ja nur einmal laufen?

Ich bin für jede Hilfe Dankbar

Gruß

Beck93

[stahli]

Du kannst den Timer.Interlav auf 20000 stellen oder alternativ auf 1000 und jede Sekunde einen Zähler hochzählen. Bei 20 stellst Du den Timer dann aus.

[MGC]

Ich würde es genauso wie Stahli umsetzen und zusätzlich noch das CanClose des Forms auf false setzen, damit das Formular auch wirklich nicht während der Wartezeit geschlossen werden kann.

[Beck93]

Sorry wenn ich nochmal doof nachfragen muss aber so ganz habe ich es leider noch nicht verstanden.

Also in der Zeit der Timer mit den 20 Sekunden läuft muss ich ja ständig gucken ob eine neue Datei im Ordner ist und sobald Sie da ist soll er abbrechen. Wenn Sie nach 20 Sekunden nicht da ist soll er auch abbrechen mit Fehlermeldung.
In diesem Zusammenhang habe ich leider noch nicht ganz verstanden wie ich das Timer.Interval verwenden kann.

Ich wäre euch sehr Dankbar wenn Ihr vielleicht mal ein kleines Beispiel machen könntet.

Danke trotzdem schon einmal

Gruß

Beck93

[stahli]

Ok, dann würde ich einfach die Zeit merken, wann das Formular eingeblendet werden soll: DT := Now + (20 * OneSecond); In Deinem Timer prüfst Du dann die Files und wenn (DT <> 0) and (Now > DT) ist, blendest Du Dein Formular ein und setzt DT wieder auf 0.

(Den Timerintervall auf 20 Sekunden zu setzen, ist dann wohl nicht zweckmäßig.)

[MGC]

Hallo,

ist eigentlich ganz einfach. Deinen Timer stellst Du auf 1000 ms ein (=1 Sec.). Nun durchläuft der Timer jede Sekunde die ihm übergebenen Aufgaben.

Zu den Aufgaben gehört:
1. Prüfen FileExists, falls ja, dann Timer deaktivieren
2. Eine Zählervariable, welche die Anzahl der Durchläufe zählt mit Inc um 1 erhöhen
3. Wenn die Zählervariable = 20, dann Timer deaktivieren und Fehlermeldung ausgeben

Nicht vergessen: Deine Anwendung wieder freigeben

[MGC]

Nimm Stahlis Vorschlag, der ist eleganter.