1 Procedur für um viele bilder Unsichtbar zu machen?

[Quick_silver]

Ich will das man über ein bild mit der Maus kommt und es verschwindet. Das will ich mit ca. 80 aber ich will nicht 80 Prozeduren.

Code:

procedure TForm1.weg(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Image1.visible:=false;
end;

So geht Image1 Weg.

aber kann ich das Image1 nicht durch ne Variable ersetzen die sich einstellt sobald man über Image1,Image2,... mit der Maus geht so das ich nur diese Prozedur habe?

[RomanK]

Such mal nach FindComponent hier im Forum

[Daniel B]

Ich verschieb das mal nach Object ascal/Delphi Language.
Hat ja was mit Delphi zutun.

Die Sparte Programmieren Allgemein ist nur für andere Sprachen.
@F***Racism:

Grüsse, Daniel

[Quick_silver]

Ok THX soweit sogut ne Variable ist drinne

Code:

TImage( Form1.FindComponent(sBild) ).visible:= false;

Jetzt muß ich der Variablen nurnoch den Namen des Bildes zuweisen über dem sich die Maus gerade befindet! Geht das in einer Prozdur oder brauche ich für Jedes bild eine?

[RomanK]

Okay, stimmt aber was hat diese Sparte dann unter Programmieren mit Delphi zu suchen

[Quick_silver]

Sorry das ich nicht weiß wo es hingehört ich versuche mich zu bessern. Aber was ist den nun Brauche ich für jedes bild ne Prozedur oder läst sich das umgehen?

[Daniel B]

Zitat von FuckRacism:

was hat diese Sparte dann unter Programmieren mit Delphi zu suchen

Ich versteh Dich nicht.
Die Frage war in "Programmieren Allgemein" und die Sparte ist nur für andere Sprache da. Er hat aber ein Frage zu Delphi. Eigentlich eine Schleifen-Frage. Oder eher zu OP.

Grüsse, Daniel

[Quick_silver]

Das ist mir so egal wo das hingehört ich will nur ne Antwort

Geht das mit ner Schleife? Oder was? Also ich mache ein Rubbellos und da sollen die Felder (Bilder) über die Man mit der Maus geht unsichtbar werden. Und ich will wissen ob sich vermeiden Lässt für jedes Bild eione Procedur zu machen.

Und noch fragen? Geht das oder nicht?



<Edit>
Kann man nicht sowas machen wie:
If Maus über Image1 then sBild:=Image1
If Maus über Image2 then sBild:=Image2
.
.
.

</edit>

[RomanK]

@Daniel B:
Jo, aber diese Board Programmieren Allgemein ist eben unter der Kategory Programmieren mit Delphi.

[RomanK]

Zitat von Quick_silver:

Das ist mir so egal wo das hingehört ich will nur ne Antwort

Das sollte es dir aber nicht!! Wir wollen doch alle ein ordentliches Forum.