Tabsheetwechsel mit Bedingung verknüpfen

[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

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

[Ykcim]

Auf diese Weise funktionierte es. Das einzige, was ich schöner gefunden hätte, wenn der Wechsel garnicht erst erfolgen würde, statt wie jetzt erst erfolgt und dann wieder zurückgeht...

Delphi-Quellcode:

  if Listen.ActivePageIndex=4 then
    if WAAUNR.Caption='' then
      Listen.ActivePageIndex:=StartTab;

Aber das Wichtigste funktioniert erst einmal - der Rest ist Kosmetik.

Vielen Dank!!!

Ykcim