Einzelnen Beitrag anzeigen

Papaschlumpf73

Registriert seit: 3. Mär 2014
Ort: Berlin
435 Beiträge
 
Delphi 12 Athens
 
#2

AW: Dynamischer Zugriff auf Datenmodul

  Alt 29. Sep 2020, 10:04
Du könntest zuerst eine Variable für die aktuell sichtbare Tabelle deklarieren. Vorzugsweise im private-Abschnitt des Formulars, damit du in allen Prozeduren des Formulars darauf zugreifen kannst.


Delphi-Quellcode:
{ Private-Deklarationen }
AktuelleTabelle: TADOTable; (oder welche Komponenten du auch für Tabellen benutzt)
Im OnChange-Ereignis des PageControls kommt dann:

Delphi-Quellcode:
if PageControl.ActivePage=TabSheet1 then AktuelleTabelle:=Datenmodul1.TTeile else
 if PageControl.ActivePage=TabSheet2 then AktuelleTabelle:=Datenmodul1.TIrgendwas else
  …
Und dann:
Delphi-Quellcode:
procedure TVorlage.AnfangClick(Sender: TObject);
begin
AktuelleTabelle.First;

end;
  Mit Zitat antworten Zitat