Unsichtbares Label

[uligerhardt]

Oder etwas einfacher und IMHO lesbarer:

Delphi-Quellcode:

procedure TForm1.PanelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Control: TControl;
  i: Integer;
  pt: TPoint;
begin
  pt := Point(X, Y);
  for i := 0 to TPanel(Sender).ControlCount - 1 do
  begin
    Control := TPanel(Sender).Controls[i];
    if PtInRect(Control.BoundsRect, pt) then
      Control.Visible := True;
  end;
end;

Uli.