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! :coder:

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

Delphi-Quellcode:

procedure TForm1.ImagesMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Sender is TImage then
    vBild := TImage(Sender).Tag;
end;

...:cat:...

[Quick_silver]

Thx, Danke, Supi, Cool, Ihr seid die Besten
:bouncing4: :bounce1: :bounce2: :bouncing4: :bounce1: :bounce2:
:hello: :hello: :coder: :hello: :hello:

*Close*