Projekt anhängen funzt net-> zu groß sowie
DB-Einbindung.
Hier mal die Zuweisungen:
Delphi-Quellcode:
procedure TMainForm.EKL_EntnChange(Sender: TObject);
var x : string;
begin
Table1.Filtered:=false;
x:=EKL_Entn.Text+'*';
if EKL_Entn.Text='' then Table1.Filter:=''
else Table1.Filter:='TS05='+chr(39)+x+chr(39);
Table1.Filtered:=true;
end;
procedure TMainForm.EKL_EntnKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var s:string;
begin
Str(Key,s);
if s='13' then PKom_Lager_vergleich(sender)
end;
Sobal ich die EKL_EntnChange entferne, kommt hier:
Delphi-Quellcode:
if typ='admin' then
Begin;
try
mainform.Panel_SQL.Visible:=true;
except
end;
end;
die Fehlermeldung.
Selbst wenn ich "//mainform.Panel_SQL.Visible:=true;" draus mache...
MFG
Steffen