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);