Tabsheetwechsel mit Bedingung verknüpfen

[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?

[Bbommel]

Zitat von Ykcim:

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

Aus der Online-Hilfe von D2009:

Delphi-Quellcode:

procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean);
begin
  if ((Sender as TPageControl).ActivePage = TabSheet1) then
    AllowChange := (Edit1.Text <> '')
  else
    AllowChange := True;
end;

Das sollte dir die nötigen Ansätze geben.

[Bbommel]

Kleiner Nachtrag:

Ganz so geht das nicht. Ich habe gerade noch was gestest:

Im OnChanging hast du noch die alten Werte für TabIndex stehen, aber weißt nicht, wo die Reise hingehen soll.

Im OnChange (ohne -ing) hast du die neuenWerte für TabIndex stehen.

Du müsstest dir also in eine zusätzliche Variable im OnChanging den alten Wert von TabIndex merken, dann im OnChange deine Prüfungen durchführen, abhängig davon, was geöffnet werden soll (also abhängig vom dann gültigen Wert von TabIndex) und dann, falls die Prüfung fehlschlägt, den alten, zwischengespeicherten Wert von TabIndex wieder zuweisen.

Bis denn
Bommel

[guinnes]

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

[Bummi]

@mkinzler
er wird das Problem haben dass er das Zieltabsheet beim Klicken nicht kennt...

EDIT:
sorry Bbommel's Eintrag übersehen , mhhhh

[Ykcim]

@ Bummi
Genau das ist mein Problem!

@Bbommel
Das werde ich mal fix testen und melde mich dann gleich wieder!