1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
| Bboese1: TImage;
TimerBboese1: TTimer;
IMerledigt1: TImage;
procedure TForm1.Bboese1Click(Sender: TObject);
begin
if IMerledigt1.Visible=false then begin
IMerledigt1.visible:=true;
Bboese1.visible:=false;
end
else if IMerledigt1.Visible=true and Imerledigt2.Visible=false then begin
Imerledigt2.Visible:=true;
Bboese1.Visible:=false;
end
else if Imerledigt1.Visible=true and Imerledigt2.Visible=true and Imerledigt3.Visible=false
then begin
Imerledigt3.Visible:=true;
Bboese1.Visible:=false;
end
else if Imerledigt1.Visible=true and Imerledigt2.Visible=true and Imerledigt3.Visible=true and Imerledigt4.Visible=false then begin
Imerledigt4.Visible:=true;
Bboese1.Visible:=false;
end
else if Imerledigt1.Visible=true and Imerledigt2.Visible=true and Imerledigt3.Visible=true and Imerledigt4.Visible=true and Imerledigt5.Visible=false then begin
Imerledigt5.Visible:=true;
Bboese1.Visible:=false;
end;
TimerBboese1.enabled:=false;
Zaehler:=Zaehler+1;
Panel2.caption:='erledigt: '+inttostr(Zaehler);
end; |
[2. Beitrag]
Außerversehen auf „Absenken“ geklickt.
….
Wenn ich jetzt auf Image „Bboese1“ klicke soll die Visible:=false gehen und Image „Imerledigt1“ soll auf Visible:=true gehen. … das geht auch …
Na ja ich hab jetzt 5 Image, also 5 „Bboese1“ …
Wenn ich jetzt das Programm starte, dann werden Automatisch 2 „Bboese“ erledigt direkt nach 2 sekunden erledigt, dass soll aber nicht passieren, sonst erst wenn man die anklickt???
Moderiert von 
raziel: Beiträge zusammengefasst und Delphi-Tags hinzugefügt.
