Habs mal kurz umgebaut. (Klar, dass Visible nie false sein wird, ist mir auch klar, aber es geht um die Theorie und das sieht man gut...)
Nurmal um den Unterschied bei der vorhanden Version klar zu machen, vielleicht hilft es ja jemanden, wenn der das mal liest:
Delphi-Quellcode:
with (Sender as TPanel) do
begin
if Visible = true then
Visible := false
else
Visible := true;
end;
Macht was es soll, löst z.B. ein Button aus irgendeinem Grund das ganze aus, gibts eine
Exception.
[EDIT] Mit Deddy's Variante lässt sich diese verhindern, indem man vorher überprüft, ob der Typ stimmt, ob das sinnvoll ist hängt von der Situation ab, z.B. wenn man eine Prozedur mehrere Ereignisse für verschiedene Komponenten bereit hält. Jedoch verhindert das Ganze auch das man die
Exception zu sehen bekommt und so eventuell nicht erfährt, dass aus irgend einem Grund falsche Komponenten der Auslöser sind.[/EDIT]
Delphi-Quellcode:
with TPanel(Sender) do
begin
if Visible = true then
Visible := false
else
Visible := true;
end;
Macht zunächst auch was es soll, würde aber auch für den Button funktionieren und keinen Fehler produzieren (was hier nicht gewollt ist, sonst würde man einen entsprechende Vorfahren nehmen und das auch besser mit
as).
Delphi-Quellcode:
with (Sender) do
begin
if Visible = true then
Visible := false
else
Visible := true;
end;
Funktioniert nicht, tut aber auch etwas, bloß nicht das was man wollte. Das Form wird dies in diesem Fall auswerten und verschwinden.
Und wie genannt, ist es hier eleganter gleich das OnClick Ereignis entsprechend zu setzen (geht übrigens auch zur Laufzeit noch).