Bei TImage OnClick Event auf das geklickte Image schliessen.

[wtf123]

Hallo,

ich habe mehrere TImages so erstellt:
var
bilder: array[0..zahl - 1] of TImage;
x: integer;
begin
for x := 0 to high(bilder) do begin
bilder[x] := TImage.create(self);
bilder[x].parent := self;
bilder[x].autosize := true;
end;

Wie kann ich jetzt, wenn alle Bilder das selbe OnClick Event haben,
auf das Image schliessen auf welches gelickt wurde?

Danke

[Neutral General]

Hi,

Ganz einfach: Im Parameter Sender bekommst du das Image geliefert das angeklickt wurde

Delphi-Quellcode:

procedure TForm1.ImageClick(Sender: TObject);
begin
  TImage(Sender).Visible := false;
end;

Gruß
Neutral General

[wtf123]

Funzt! Vielen Dank!

[Deep-Sea]

Zitat von wtf123:

[...] Wie kann ich jetzt, wenn alle Bilder das selbe OnClick Event haben,
auf das Image schliessen auf welches gelickt wurde?

Was meinst du mit "schließen"? ...
PS: Verwende lieber eine TComponentList (oder ähnliches) anstatt ein Array