Einer Variable nen Wert zuweisen je nachdem wo die Maus ist!

**Quick_silver**

Ich will der Variable vBild den Wert '1' zuweisen wenn die Maus über Image1 ist und ne '2' wenn die Maus über Image2 ist...

Geht das? Ich würde das gerne mit nur einer Prozedur machen und nicht für Jedes Bild eine!

**sakura**

Speichere in der Tag-Eigenschaft der Bilder den Wert, welchen Deine Variable erhalten soll und nutze folgenden Code. Funktioniert für beliebig viele Bilder/Komponenten.

markieren

Delphi-Quellcode:

			procedure TForm1.ImagesMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

  if Sender is TImage then

    vBild := TImage(Sender).Tag;

end;

...

**Quick_silver**

Thx, Danke, Supi, Cool, Ihr seid die Besten

*Close*

Quick_silver Registriert seit: 2. Jan 2003 78 Beiträge Delphi 6 Enterprise	#1 Einer Variable nen Wert zuweisen je nachdem wo die Maus ist! 15. Jan 2003, 19:39 Ich will der Variable vBild den Wert '1' zuweisen wenn die Maus über Image1 ist und ne '2' wenn die Maus über Image2 ist... Geht das? Ich würde das gerne mit nur einer Prozedur machen und nicht für Jedes Bild eine!
	Zitat

Quick_silver Registriert seit: 2. Jan 2003 78 Beiträge Delphi 6 Enterprise	#3 15. Jan 2003, 19:54 Thx, Danke, Supi, Cool, Ihr seid die Besten Close
	Zitat

Einer Variable nen Wert zuweisen je nachdem wo die Maus ist!

Einer Variable nen Wert zuweisen je nachdem wo die Maus ist!

Forumregeln