Ereigniss Sender feststellen ?

[schaak]

Hallo.

Ich möchte auf Mausdruck(onClick) ein Picture in ein Image laden.
Das wäre ja an sich kein Problem, aber ich habe hier mehrere Images und
möchte nur eine Prozedur benutzen um den Quelltext übersichtlich zu halten.
Ich müßte also irgendwie den Namen des angeklickten Images zwischenspeichern oder sowas, damit die Prozedur weiß, welchem Image
das Picture zugewiesen werden soll.
Etwas schwer zu beschreiben, da ich im Moment gar keine Idee habe

[Jens Schumann]

Hallo Shaak,<br>Ich vermute mal, dass Du das OnClick Ereignis von TImage meinst. Dann sieht es wie folgt aus:<br> Weise allen TImage dasselbe OnClick Ereignis zu. Im Parameter Sender wird das immer das richtige TImage übergeben.

<pre>

procedure TForm1.Image1OnClick(Sender : TObject);
begin
If Sender is TImage then
begin
With Sender as TImage do
Picture.LoadFromFile('Bild.bmp');
end;
end;

</pre>
<br>:-) Jens Schuman

[Thomas Melchert]

<p>Hallo Shaak,<br>
<br>
dafür gibt es mehrere Möglichkeiten. Folgend 2 Beispiele:<br>
<br>
1. Das Tag-Property des Images durchnummerieren:<br>
<pre>
procedure TForm1.Image1OnClick(Sender : TObject);
begin
if (Sender is TImage) then
with (Sender as TImage) do
Picture.LoadFromFile('Bild'+IntToStr(Tag)+'.bmp');
end;
</pre>
<br>
2. Über den Namen der Image-Komponente:<br>
<pre>
procedure TForm1.Image1OnClick(Sender : TObject);
begin
if (Sender is TImage) then with (Sender as TImage) do
begin
if (name='Image1') then Picture.LoadFromFile('Bild1.bmp')
else if (name='Image2') then Picture.LoadFromFile('Bild2.bmp')
end;
end;
</pre>
<br>
Gruß Thomas</p&gt