Hallo,

ich verwende ein TMaskEdit mit einem kurzen Zeitformat. Nun kommt es doch tatsächlich vor, dass der Anwender nicht die gesamte Zeit reinschreibt. Also statt 10:00 nur 10:0_. Sobald man das Edit verlässt kommt eine Fehlermeldung, "ungültige Eingabe...". Das Dialogfenster verschwindet danach in den hintergrund. Obwohl es als StayOnTop definiert ist. Ich habe ein try-Block in dem Ereigniss OnExit definiert und keinen Erfolg gehabt. OnExit tritt NACH der Fehlermeldung "ungültige Eingabe..." auf.

Entweder ich finde eine Lösung, wie ich diese Fehlermeldung abfangen kann, oder wie das Dialogfenster nicht im Hintergrund verschwindet.

Danke für eure Hilfe, mexx

Ich weiß schon, warum ich kein TMaskEdit verwende.
Alternative wäre TDateTimePicker.

sorry, fehlpost.

-bitte löschen-

Also ich kann den DateTimePicker ja das Format hh:mm geben, um ein Zeitformat eintragen zu können. Leider nimmt er es nicht an. Ich möchte auch gerne, dass das Feld kein DropDown oder ComboBox ist. Und was heißt hier bitte löschen?

Also abfangen kannst Du sie wie folgt :

Delphi-Quelltext    ausgeblendet

markieren

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: type TMyMaskEdit = class(TMaskedit)      public        procedure ValidateEdit;override; end; ...... var myMaskEdit : TMyMaskEdit; ....... procedure TMyMaskEdit.ValidateEdit; var pos : Integer; begin    if (IsMasked) then      if not Validate(Text, pos) then        Showmessage('Falscheingabe !'); // Dies kannst Du auch weglassen, wenn Du keine                                         //Fehlermeldung willst                                            // inherited hier einfach weglassen, damit die Fehlermeldung nicht kommt ;   //musst dann allerdings das EditFeld selber leeren end; //und der Aufruf : MyMaskEdit := TMyMaskEdit.Create(self);   MyMaskEdit.Parent := self;   MyMaskEdit.EditMask := '!90:00;1;_'; //hier deine Maske eintragen

Ja, mir wäre fast lieber wenn die VCL dieses Ereignis mitbringen würde. Ich brauche viele MaskEdit und möchte nicht jedes auf diese weise erstellen.

Dann mach dir doch ne VCL-Komponente aus TMyMaskEdit.

Würde dann ungefähr so aussehen :

Delphi-Quelltext    ausgeblendet

markieren

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: unit MyMaskEdit; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, Mask; type   TMyMaskEdit = class(TMaskEdit)   public     procedure ValidateError;override;   end; procedure Register; implementation procedure TMyMaskEdit.ValidateError; begin   //hier eintragen, was passieren soll bei Falscheingabe end; procedure Register; begin   RegisterComponents('Additional', [TMyMaskEdit]); end; end.