Tabsheetwechsel mit Bedingung verknüpfen

[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