Einzelnen Beitrag anzeigen

Benutzerbild von MarcoWarm
MarcoWarm

Registriert seit: 10. Sep 2003
Ort: Großhennersdorf
532 Beiträge
 
Delphi 10.1 Berlin Professional
 
#7

Re: mit PageUp/PageDown Tabsheets wechseln

  Alt 3. Mär 2004, 05:41
Ein Tipp für eine kleine Plausibilitätskontrolle:

Überprüfe einfach, vor dem Pagewechsel, ob das EditFeld etwas enthält.

OnChanging Event des PageControls:

Delphi-Quellcode:
procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  if trim(Edit1.Text)='then
    AllowChange:=false
  else
    AllowChange:=true;
end;
Ciao

Marco
Marco Warm
  Mit Zitat antworten Zitat