Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Tabsheetwechsel mit Bedingung verknüpfen

   
    by Bbommel, 2. Feb 2011
  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...
• Forum: Programmieren allgemein

  AW: Tabsheetwechsel mit Bedingung verknüpfen

   
    by Bbommel, 2. Feb 2011
  Aus der Online-Hilfe von D2009:
  
  procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean);
  begin
  if ((Sender as TPageControl).ActivePage = TabSheet1) then
  AllowChange := (Edit1.Text <> '')
  else
  AllowChange := True;
  end;