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: :warn:

Grüsse, Daniel :hi:

[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]

:oops: :oops: :pale:

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

[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:

Zitat von FuckRacism

was hat diese Sparte dann unter Programmieren mit Delphi zu suchen :roll:

:?:
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 :hi:

[Quick_silver]

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

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? :dancer:



<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. :wink:

[RomanK]

Zitat:

Zitat von Quick_silver

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

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

[Quick_silver]

Könntet ihr einen eigenen Thread für euren Strit nehmen? :wink:

Bitte verschiebt mich zum Richtigen Board :!:
:bounce1: :bounce2: :bouncing4:

[Daniel B]

@F***Racism:
[ ] Du hast die Beschreibung der Sparte gelesen

"die jedoch nichts! mit Delphi zutun haben". Da gehört auch ASM, oder VB, oder sonst was rein. Da schreib ich auch mein Zeugsel zu Excel usw..

[X] Hier streitet niemand!

Grüsse, Daniel :hi:

[Marco Haffner]

@Quick_silver

Probier's mal hiermit:

Delphi-Quellcode:

TImage(Sender).Visible := False;

[sakura]

@Daniel B und F...Racism: :warn: - Die Diskusion geht etwas weit - unter fast vööliger Ignoranz des ursprünglichen Problems.

@quickl_silver: zum einfachen Zuweisen des Bildes nach sBild folgenden Code nutzen

Delphi-Quellcode:

if Sender is TImage then
  sBild := TImage(Sender);

...:cat:...