brauche ne kleine Hilfe zu Kniffel :)

[Chegga]

Zitat von delphman:

Moin,

hier mal ein kleines Beispiel:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
wuerfel : integer;
begin
case Wuerfel of
1 : Image1.visible := true;
2 : Image1.visible := true;
3 : Image1.visible := true;
4 : Image1.visible := true;
5 : Image1.visible := true;
6 : Image1.visible := true;
end
end;

Hoffe das ist das was du meinst.

Was habe ich gepostet?


MfG Marc

P.S.: Tolles Beispiel...
Ich glaube kaum, dass bei jedem Würfel das gleiche Bild angezeigt werden soll.
(Image1)