Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Prism TextBox Validierung / Form schliessen (https://www.delphipraxis.net/59392-textbox-validierung-form-schliessen.html)

eddie11 21. Dez 2005 18:12


TextBox Validierung / Form schliessen
 
Hi, ist wahrscheinlich 'ne blutige Anfänger-Frage....

ich habe in einer Form mehrere TextBoxen die nach der Eingabe auf Plausibilität geprüft werden sollen. Ich habe also bei den Ereignissen in das Ereignis "Validating" die Prüfung eingebaut z.B.:

Delphi-Quellcode:
procedure TWinForm.TextBox1_Validating(sender: System.Object; e: System.ComponentModel.CancelEventArgs);
begin
  if TextBox1.Text <> 'richtige Eingabe' then
  begin
    MessageBox.show('Falsche Eingabe!!');
    e.Cancel := True;
  end;
end;
Das funzt auch prima, immer wenn die Textbox den Focus verliert und eine Eingabe nicht richtig ist, dann bleibt der Focus auf diesem Eingabefeld bis der User eine korrekte Eingabe gemacht hat. Jetzt mein Problem: Wenn der User das Form schliessen will, dann ist das nur möglich, wenn er eine korrekte Eingabe ins aktuelle Feld macht - das ist unschön. Wie kann ich Delphi dazu bewegen ein Form zu schliessen obwohl eine TextBox keinen korrekten Inhalt hat, d.H. die Validating-Procedure überspringen?

eddie11 22. Dez 2005 14:02

Re: TextBox Validierung / Form schliessen
 
habe jetzt einen Button mit dem ich das Form schliessen kann, da habe ich 'CausesValidation' auf false gesetzt und mache dann self.close, nachdem ich bei allen TextBoxen 'causesValidation' auf false gesetzt habe. Das hilft mir nur ein bisschen weiter, ich möchte dass das Form über den Close-Button oben rechts geschlossen werden kann - das klappt leider nur, wenn alle TextBoxen mit korrektem Inhalt gefüllt sind. Gibt es vielleicht eine Möglichkeit für die CloseBox oben rechts die Validierungs-Eigenschaft abzuschalten?


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:04 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz