View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0005017JEDI VCL04 Feature Requestpublic2009-11-14 12:412011-09-21 14:10
ReporterchickenrudiAssigned ToAHUser 
PrioritynormalSeverityfeatureReproducibilityN/A
Status resolvedResolutionfixed 
Product Version3.38 
Target VersionFixed in Version3.45 
Summary0005017: TJvMaskEdit: Don't validate on exit
DescriptionI am currently using TJvMaskEdit and was wondering why the validation already happens when just leaving focus.

In a dialog for entering a registration number (or activation number or similar) if there is a cancel button no validation should happen.

The validation already happens in the Borland sources. TJvMaskEdit at the end is derived from Borland's TMaskEdit.

I solved this problem by writing a new WindowProc:

<code>
TForm1 = class(TForm)
...
FOldWindowProc: TWndMethod;
...
procedure ExitProc(var Msg: TMessage);
...
end;

procedure TForm1.ExitProc(var Msg: TMessage);
begin
  if (Msg.Msg <> CM_EXIT) then
    FOldWindowProc(Msg);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  FOldWindowProc := JvMaskEdit1.WindowProc;
  JvMaskEdit1.WindowProc := MyWindowProc;
end;
</code>

It would be fine if the component had a property like "ValidateOnExit" that would do exactly what I did in my form.

Ruediger
TagsNo tags attached.

Activities

obones

2009-12-04 15:12

administrator   ~0016935

Thanks for this. I'm not sure that using a new window proc is desirable, someone will review that change

AHUser

2010-11-30 22:21

developer   ~0018235

Fixed in svn revision 12947.

There is now a new published property CheckOnExit: Boolean default True.

Issue History

Date Modified Username Field Change
2009-11-14 12:41 chickenrudi New Issue
2009-12-04 15:12 obones Note Added: 0016935
2009-12-04 15:12 obones Status new => acknowledged
2010-11-30 22:21 AHUser Note Added: 0018235
2010-11-30 22:21 AHUser Status acknowledged => resolved
2010-11-30 22:21 AHUser Fixed in Version => Daily / SVN
2010-11-30 22:21 AHUser Resolution open => fixed
2010-11-30 22:21 AHUser Assigned To => AHUser
2011-09-21 14:10 obones Fixed in Version Daily / SVN => 3.45