KeyPress numeric only

[RobYost]

I am trying to use the keypress event to disallow some keys in a TUniDateTimePicker.

 

But even if I use:

procedure TfraTIncome.edtDatePaidKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
    Key := 0;
end;

procedure TfraTIncome.edtDatePaidKeyPress(Sender: TObject; var Key: Char);
begin
    Key := #0;
end;

It still lets me type anything.

[Sherzod]

Hi,

 

Can you try this approach for now ?!:

http://forums.unigui.com/index.php?/topic/8377-how-to-keep-the-slash-mask-in-tunidatetimepicker-while-the-user-typing/&do=findComment&comment=42943

 

Best regards,

[RobYost]

Thanks that works, is there a way to pass the date format as an option?  Depending on the local format I would like this to change.

[GerhardV]

By the way Rob - since these are now web apps, you really don't want to go down the road of trapping a key-press event as it will require a trip to the server with every key pressed, for these kind of things it is best to do it on the browser side with JS. It takes some time to get the mindset right but I find myself thinking twice now before just putting some code behind a Delphi event.