TImage im Hintergrund, Onklick Ereignis im Vordergrund

[Khabarakh]

So sollte es funktionieren:

Delphi-Quellcode:

procedure TForm1.LabelXClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to Components.ComponentCount - 1 do
    if Components[i] is TMyButtonDingens then
      with TControl(Components[i]) do
        if PtInRect(Rect(0, 0, Width, Height), ScreenToClient(Mouse.CursorPos)) then
          Click;
end;