name von Timage herausfinden

[G G]

hi,

okay also ich hab hier grad ein echtes problem. ich habe 225 bilder die wenn man sie clickt alle auf eine prozedure gehen. Nun muss aber diese prozedure erkennen welcher der bilder eigentlich gedrückt wurde zb jetzt wird image125 gedrückt, dann soll die prozedure die zahl 125 in eine variable tun

geht den sowas überhaupt?

sonst müsst ich halt für die 255 bilder jeweils ne eigene prozedure machen und des stinkt mir ziemlich

[SirThornberry]

über den Sender der OnClick procedure kannst du das doch rausfinden welches image geklickt wurde

[G G]

hm und wie geht des, aknnst du mal den code hergeben der erkennt welches image gedrückt wurde und des in nem string ausgibt

[SirThornberry]

Delphi-Quellcode:

procedure TForm1.ImageOnClick(Sender: TObject);
var LImage: TImage;
begin
  if Sender = Timage then
  begin
    LImage := TImage(Sender);
    showmessage(LImage.Name);
  end;
end;

[Nikolas]

Wie alle Komponenten (?) hat auch Timage einen Tag. Da kannst du einfach alle Images durchnummerien und dann beim Aufruf der Prozedur mitübergeben. Du könntest alle Images 'img1',img2'... nennen und den passenden Tag vergeben. Wenn du dann nachher das übergebende Image bearbeiten willst, kannst du das dann über findcomponent machen.

TOX

[G G]

ah vielen dank euch allen, habs jetzt hinbekommen

[Nicodius]

das mit dem if Sender = Timage then geht nicht ^^

[fkerber]

Hi!

Dann mach es so:

showmessage((Sender as TImage).Name); Ciao fkerber

[MrKnogge]

Die variable Sender ist ja auch nicht vom Typ TImage

[Nicodius]

ich weiß ich habs mit Tobject(TImage)) gemacht