Procedure in Procedure aufrufen klappt nicht

[hoika]

Hallo,
habe gerade ein Delphi da.

Beim Wechsel des TabSheets folgendes aufrufen

Dbf2Bestand.Filtered:=false;
Dbf2Bestand.Filtered:=true;

und dann

procedure TForm1.Dbf2BestandFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
if PageControl.ActivePage=P1 then
begin
Accept := (Dbf2Bestand.FieldByName('SCHUBLADE').AsString = 'ALLE') or
end;

if PageControl.ActivePage==P2
(Dbf2Bestand.FieldByName('SCHUBLADE').AsString = 'BE');


usw.

d.h. du filterst immer neu beim Wechseln des TabSheets.

Willst Du es etwas mehr "on yout finger tips" -> werf das TDBGrid weg und nimm das normale TStringGrid.

[Luckie]

Mit case wird es in diesem Fall übersichtlicher.