Du kannst jedes (sichtbare) Objekt der
VCL verstecken und wieder anzeigen. Dazu gibt es die Property
Visible, oder auch die Methoden
Show und
Hide.
Beispiel:
Delphi-Quellcode:
procedure Change_colors;
begin
Shape1.Visible := not Shape1.Visible; // Wenn sichtbar, dann unsichtbar. Wenn unsichtbar, dann sichtbar
Shape2.Visible := not Shape2.Visible; // selbiges hier
end;
Du könntest es auch auf dem langen Wege machen:
Delphi-Quellcode:
procedure Change_colors_long_way;
begin
if (Shape1.Visible) then
Shape1.Hide
else
Shape1.Show;
if (Shape2.Visible) then
Shape2.Hide
else
Shape2.Show;
end;
Oder was meintest du?