Unsichtbares Label

[150gozilla]

Hallo @all.

Ich muss gerade rausfinden, ob ich mit der Maus auf einen "Unsichtbares Label" geklickt habe.

Wie könnte ich das am sinnvollsten lösen, meins sieht gerade so aus:

Delphi-Quellcode:

procedure TForm1.PanelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftstate; x, y: Integer);
var
 Control : TControl;
 i: integer;
begin
 for i := 0 to TPanel(Sender).ControlCount-1 do
 begin
  with TPanel(Sender).Controls[i] do
  begin
   If (x < left) or (x > Left+Width) and (y < top) or (y > Top+Height) then  exit else visible := true; // Überprüfung

  end;
 end;
end;

[150gozilla]

ERLEDIGT. Das

Delphi-Quellcode:

exit

hat alles kaputt gemacht. Nun gehts

So siehts nun aus:

Delphi-Quellcode:

procedure TForm1.PanelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftstate; x, y: Integer);
var
 Control : TControl;
 i: integer;
begin
 for i := 0 to TPanel(Sender).ControlCount-1 do
 begin
  with TPanel(Sender).Controls[i] do
  begin
   If ((x < left) or (x > Left+Width)) or ((y < top) or (y > Top+Height)) then else visible := true;

  end;
 end;
end;

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

[Klaus01]

Zitat:

Zitat von 150gozilla

Delphi-Quellcode:

 If ((x < left) or (x > Left+Width)) or ((y < top) or (y > Top+Height)) then else visible := true;

Delphi-Quellcode:

If not ((x < left) or (x > Left+Width)) or ((y < top) or (y > Top+Height)) then 
  visible := true;

Schaut vielleicht besser aus.

Grüße
Klaus

[freak4fun]

Wenn du aus der Schleife aussteigen willst benutze Break, nicht Exit; ;)