Transparente Clicks

[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;