[quote="Thorben77"]
Zitat von
glkgereon:
das erste konnte ich nicht feststellen
Nicht? Hm, also wenn ich ein Wort erraten habe, kommt "You won", das Wort verschwindet aus dem Edit, aber der Galgen nicht.
[quote="Thorben77"]
Ooops, jetzt seh ichs auch...gefixed
Zitat von
Thorben77:
Zitat von
glkgereon:
hmm, in dem Fall reicht Close wohl nicht...
aber ein Application.Terminate ist vielleicht nicht so elegant, aber es funktionier
Das könntest du schon in der Projektdatei machen, bevor das Fenster überhaupt erstellt wir, dann brauchst du auch kein Terminate:
Delphi-Quellcode:
program HangMan;
uses
Forms,
SysUtils,
YourUnit in 'YourUnit.pas' {YourForm};
begin
if FileExists(ExtractFilePath(ParamStr(0)) + 'Draw.txt') then
begin
Application.Initialize;
Application.CreateForm(TYourForm, YourForm);
Application.Run;
end
else
// Die Fehlermeldung...
end.
stimmt....ginge auch
Zitat von
Thorben77:
Mir ist noch aufgefallen, dass nach den Start unten keine Unterstriche in dem Edit sind
stimmt, bei der rumbastelei mit der Fehlermeldung wegen der Dateien hab ich da weas vertauscht...wird gefixt...