Ich habs jetzt mal so versucht, plus x andere Versuche, aber irgendwie krieg ich noch nicht hin.
Delphi-Quellcode:
procedure TForm1.Label1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to 2 do/////hab z.B auch 0-1 1-2 probiert
if Components[i] is TMImage then
with TControl(Components[i]) do
if PtInRect(Rect(0, 0, Width, Height), ScreenToClient(Mouse.CursorPos)) then
MI[i].click;
end;
Hier iist mal der Link zum Orginal -Scourecode
http://home.pages.at/dbr-software/delphi/mimage.htm