AW: Procedure in Procedure aufrufen klappt nicht
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. |
AW: Procedure in Procedure aufrufen klappt nicht
Mit case wird es in diesem Fall übersichtlicher.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:22 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz