Transparente Clicks

[Moombas]

@shebang: Gibt es für diese Kombination keine Logik mit der du es ansonsten herleiten könntest? Also mit FindComponent etc.

Hat jedes Image eine eigene OnClick Prozedur oder alle die Gleiche?

[Uwe Raabe]

Folgender Code im OnClick-Event der Labels sollte gehen. Dabei wird angenommen, daß die Labels und die darunter liegenden Images denselben Parent haben.

Delphi-Quellcode:

type
  TImageHack = class(TImage);

procedure TForm487.Label1Click(Sender: TObject);
var
  ctrl: TControl;
  lbl: TLabel;
begin
  lbl := Sender as TLabel;
  lbl.Enabled := False; // damit es bei ControlAtPos nicht gefunden wird
  try
    ctrl := lbl.Parent.ControlAtPos(lbl.ClientRect.CenterPoint, False, False, False);
    if ctrl is TImage then
      TImageHack(ctrl).Click;
  finally
    lbl.Enabled := True;
  end;
end;

[shebang]

Danke für die Antworten.

Die Images benutzen alle das gleiche OnClick, insofern sollte die Variante meines Vorposters funktionieren. Ich teste das sofort.

Edit:
Klappt einwandfrei, nur das ClientRect.CenterPoint hab ich durch BoundsRect.CenterPoint ersetzt, damit wir im richtigen Referenzsystem arbeiten.