Panel

[polarwolf]

Ups ich hab das alles auf integern gemacht damals. aber jetzt sollte es richtig sein

Ich verwalte in der selben Art ein DB Programm von mir. Vieleicht hilft es dir ja weiter.

Delphi-Quellcode:

function TForm1.Panelanzeige(Neuepanel: string):boolean;
begin

  //Das gewünschte Panel anzeigen
  Case Neuepanel of
    'blume': blumepanel.Visible:=true;
    'luft': luftpanel.Visible:=true;
    'wasser': wasserpanel.Visible:=true;
  else
    showmessage('Programmfehler Panel NR '+inttostr(Neuepanelnummer)+' nicht verfügbar.');
    result:=false;
  end;

  //Alle anderen Panel ausschalten
  if Neuepanel <> 'blume' then blumepanel.Visible:=false;
  if Neuepanel <> 'luft' then luftpanel.Visible:=false;
  if Neuepanel <> 'wasser' then wasserpanel.Visible:=false;

  application.ProcessMessages;
  result:=true;
end;

aufgerufen wird es dann so

Panelanzeige(Edit1.text);