Tabsheetwechsel mit Bedingung verknüpfen

[Ykcim]

Hallo Zusammen,

ich habe in meinem Programm ein PageControl mit mehreren TabSheets drauf. Wenn diese TabSheets geöfnet werden, werden auch ein paar Proceduren durchlaufen. Diese Proceduren benötigen Werte, die ans anderen Tabsheets ermittelt werden.

Jetzt kann es aber sein, dass ein Wert noch nicht verfügbar ist (warum auch immer). Ich möchte gerne, dass vor dem Wechsel der TabSheets geprüft wird, ob die erforderlichen Werte verfügbar sind. Wenn ja, soll der TabSheetwechsel durchgeführt werden, wenn nein, soll der TabSheetwechsel nicht durchgeführt werden.

Ich habe bei allem Suchen nichts gefunden...

Hat hier jemand einen Idee für mich?


Vielen Dank

Ykcim

[mkinzler]

Geht im Event onChanging

[guinnes]

Dafür hat das PageControl das Ereignis OnChanging

[Ykcim]

Hallo,

vielen Dank für die schnelle Hilfe!!!

Ich habe es schon versucht, im Event OnChanging. Die Prüfung findet auch vor der Wechsel statt.
Ich habe dann angegeben, dass das entsprechende TabSheet Enable:=true sein soll. Es wird aber dennoch geöffnet...

Wie würdet Ihr vorgehen?

Vielen Dank

Ykcim

[mkinzler]

Setzte AllowChanging auf False, wenn du einen Wechsel verhindern willst

[Ykcim]

Für das TabSheet oder für das PageControl?
ANdere Tabsheets sollen weiter erreichbar sein können, da nicht jedes TabSheet die gleichen Daten benötigt. Ich brauche eine Kontrolle vor dem Wechsel, ob die erforderlichen Daten für das Tabsheet, welches geöffnet werden soll, verfügbar sind. Wenn nicht, soll der Wechsel auf dieses Tabsheet nicht vollzogen werden.

[mkinzler]

Der Event feuert für jedes TabSheet

In ihm kannst du je nach TabSheet eitscheiden, welche überprüfungen durchgeführt werden sollen und ob gewechselt werden soll

[Ykcim]

Danke für die Erklärung!

Ich komme leider noch nicht ganz dahinter.

Delphi-Quellcode:

if Daten verfügbar then
  begin
    Tabsheetname.AllowChanging ???
    oder
    PageControlname.AllowChanging???
  end;

Beide Varianten werden nicht erkannt. Ich weiß nicht, wie ich das "AllowChanging" anwenden muss.

[Ykcim]

Sorry!!!

AllowChange ist ja eine mitgelieferte Variable der Procedure!

Wie kann ich diese auf ein bestimmtes TabSheet anwenden?

Ich habe gerade folgendes ausprobiert:

Delphi-Quellcode:

if Daten NICHT verfügbar then
  begin
    AllowChange:=false;
  end;

Aber wie kann ich abfragen, welches Tabsheet eigentlich geöffnet werden sollte?

[guinnes]

AllowChanging := Daten verfügbar; AllowChanging ist ein Var-Parameter des Events