Explorer einblenden und ausblenden

[Nils_13]

Hi,

ich habe einen kleinen Explorer in meinem Programm. Das Problem: Ich habe ein Menüitem, das 'Einblenden' heißt (muss ich dann noch später abändern). Das Menüitem hat beim Start des Programms den Checked-Wert 'True'. Wenn ein Haken da ist, soll der Explorer angezeigt sein/werden und wenn nicht, soll er ausgeblendet sein/werden. Im Klartext: Ich habe normalerweise zwei Items: Einblenden und Ausblenden. Bei Einblenden wird es eingeblendet, beim Ausblenden ausgeblendet. Ich möchste diesen Effekt mit einem Item erzielen. Bisheriger Code:

Delphi-Quellcode:

procedure TForm1.Einblenden1Click(Sender: TObject);
begin
if Einblenden1.Checked = True then
begin
  if Panel2.Visible = True then
  begin
    Panel2.Visible := False;
  end;
end;
if Einblenden1.Checked = False then
begin
if Panel2.Visible = False then
begin
  Panel2.Visible := True;
end;
end;
end;

[Neutral General]

Delphi-Quellcode:

procedure TForm1.Einblenden1Click(Sender: TObject);
begin
Panel1.Visible := not Einblenden1.Checked; 
end;

Ich glaube das würde es auch tun oder ? ;)