Hi.
Hab für nen Klickspiel mal einen Code gefunden:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.L1Click(Sender: TObject); Var zeit:double;
begin
B11.Visible:=true;
Zeit:=now+1.0*(1.0/86400.0);
while (now<=Zeit) do Application.processMessages;
B11.Visible:=false;
end; |
Man clickt also den Startbutton, ein anderer Button wird sichtbar, drückt man auf diesen, würde er wieder unsichtbar werden, und ein neuer Button erscheint, usw.
Klickt man den erscheinenden Button nicht innerhalb
einer Sekunde an, verschwindet er wieder, und man muss wieder den Startbutton (L1) drücken.
Nun wollte ich den Button Variablenabhängig machen. Wenn man ein Level wählt, wird dementsprechend in dementsprechenden Editfeld eine '1' aktiv, und eine Variable (die eine Zeit angibt) wird abgefragt.
Das sollte nun so aussehen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| procedure TForm1.L1Click(Sender: TObject); Var zeit,a:double;
begin
if (Lev1Var.Text='1') then a:=strtofloat(Lev11.Text);
if (Lev2Var.Text='1') then a:=strtofloat(Lev12.Text);
if (Lev3Var.Text='1') then a:=strtofloat(Lev13.Text);
if (Lev3Var.Text='1') then a:=strtofloat(Lev14.Text);
B11.Visible:=true;
Zeit:=now+a*(1.0/86400.0);
while (now<=Zeit) do Application.processMessages;
B11.Visible:=false;
end; |
In den Lev11.Text (Editfelder), Lev12.Text, usw. stehen die Anzahl der Sekunden, die dann in der Variable a auftauchen sollen. Nur leider funktioniert der Code nicht. Wahrscheinlich liegts daran, dass "a" in der Rechnung nicht erkannt wird als sekundenanzahl=(
Wie soll der Code aussehen, damits funzt?
Moderiert von 
Gausi: Color-Tags durch Delphi-Tags ersetzt.
im Forum. Was mir aufgefallen ist:
