Formular wird nicht mehr angezeigt!

[Union]

Ohne vernünftige Einrückungen ist das leider nicht so gut lesbar. Wozu verwendest Du eigentlich ständig zusätzliche begin ... end ohne eine Anweisung?

[Sir Rufo]

Und die ständigen Wiederholung von Code (CopyPaste-Programmierung) bläht das unnötig auf bis fast zur Unleserlichkeit.

Formatieren hilft da auch nicht wirklich (habe es gerade mal formatieren lassen ... es wird nicht besser)

[stahli]

Der Code ist schwer lesbar und unübersichtlich.

Du könntest Dein Projekt in eine Zip packen und hier hochladen.
Vielleicht schaut dann mal jemand drauf.

Aber besser wird sein, das Programm mal mit F8 zu starten und schrittweise zu debuggen (F8 + F7).
Vielleicht kommst Du so ja weiter?

[himitsu]

Schwer lesbar?
Das ist wohl ein bissl untertrieben.

Nja, da der Code eigentlich nur aus Timern besteht, würde ich die Stück für Stück mal abschalten und schauen ob es dann läuft nicht sofort verreckt.

Aber eigentlich solltest du mal lernen wie man den Debugger verwendet.
Also entweder wie hier schon von jemandem beschrieben wurde,
oder wenigstens erstmal ein paar Haltepunkte in die paar Methoden und dann schauen ob/was da passiert.

Ach ja, warum gibt es da diese komischen globalen Variablen?
Und wieso sind die nochmals in dem einem Timer deklariert? (OK, hier gehören wie zumindestens scheinbar auch hin, was man aber aus dem grauenaften Code nicht wirklich erkennen kann)

Was mir noch zufällig in die Augen stach...

Zitat:

sndPlaySound('positiv2.wav',SND_ASYNC); //SOUND

Zum Thema "relative" Pfade gibt es im Forum massig zu lesen und das man sowas gefälligst besser nicht zu machen hat.

Eine Variante:
sndPlaySound(PChar(ExtractFilePath(Application.ExeName) + 'positiv2.wav'), SND_ASYNC);
Auch wenn du bei sndPlaySound zwar den Vorteil hast, daß dort Windows die Datei sucht, wenn es Diese nicht da findet, wo du es angegeben hast.
=> aktuelle Arbeitsverzeichnis <> Programmverzeichnis