Wie stelle ich fest ob ein Control nur halb sichtbar ist?

[Uwe Raabe]

Geht auch etwas stylischer :

Delphi-Quellcode:

function TControlHelper.isClipped(): Boolean;
begin
   if(not Assigned(parent)) then
      Exit(False);  
   Result := not Parent.ClientRect.Contains(BoundsRect);
end;

[venice2]

Zitat von Uwe Raabe:

Geht auch etwas stylischer :

Delphi-Quellcode:

function TControlHelper.isClipped(): Boolean;
begin
   if(not Assigned(parent)) then
      Exit(False);  
   Result := not Parent.ClientRect.Contains(BoundsRect);
end;

[Delphi.Narium]

Ginge nicht auch

Delphi-Quellcode:

function TControlHelper.isClipped(): Boolean;
begin
  Result := Assigned(Parent) and Parent.ClientRect.Contains(BoundsRect);
end;

Ok, geht nicht, wenn boolsche Ausdrücke vollständig ausgewertet werden

[himitsu]

Zitat von Delphi.Narium:

Ok, geht nicht, wenn boolsche Ausdrücke vollständig ausgewertet werden

Wer sowas macht, muß eben mit den Konsequenzen leben.


Also WENN überhaupt, dann sollte man Dieses eh nur begrenzt einsetzen.

Aber stattdessen kann man oft auch einfach mit der Reihenfolge spielen, um sowas zu beeinflussen.
VARIABLE and/or FUNKTION versus FUNKTION and/or VARIABLE

[Delphi.Narium]

Na klar, dashier wäre dann eher suboptimal Result := Parent.ClientRect.Contains(BoundsRect) and Assigned(Parent);

Oder etwas flacher formuliert:

Wenn rechts was steht, was scheitern kann, dann muss links davon was stehen, dass sicherstellt, dass das zum Scheitern verurteilte nie erreicht wird.

Oder aber auch: Assigned steht zuerst, wenn das ok ist, kann man rechts davon problemlos auf das per Assigned geprüfte zugreifen. Scheitert Assigned, kommt man dort erst garnicht an.