Image soll durch darüber liegendes Label angeklickt werden.

[BrunoT]

Hallo Thomas,

tut mir ja leid, dass mein Beitrag dich nicht inspiriert hat, das so zu lösen.
ich glaube. dass das nur so lauten muss:

Delphi-Quellcode:

if  (FindComponent('Image'+(iString)) as TImage) is  TImage then
    begin
      with (FindComponent('Image'+(iString)) as TImage)  do
        if PtInRect(Rect(0, 0, Width, Height), ScreenToClient(Mouse.CursorPos)) then
        OnClick(self);
    end;

denn mit der with-Klausel wird ja schon auf den sender gezeigt, also reicht self.

mfg

brunoT