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;