Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

In this Discussion

TLMDDBDateTimePicker question

STUDIO CENTRO SRL
edited January 2018 in LMD IDE-Tools Vote Up0Vote Down
Hello,
i have a question about this component.
Is there a way to cancel the date? I mean, not when you have just selected the date, but when you want, for example, to blank a date that was already saved in the connected field.
I tried to press cancel or delete but nothing happens.
Thank you.

Comments

  • 6 Comments sorted by Votes Date Added
  • Eugene Balabuev (LMD)
    Posts: 0Vote Up0Vote Down
    There no such possibility. If something is stored in db-field, you can canel editing only for the whole row.
  • STUDIO CENTRO SRL
    Posts: 38Vote Up0Vote Down
    Maybe i didn't explain well.
    I made this video where you can see the problem.

    At the beginning of the video i use the combobox and the dbdatetimepicker (there is an error in the videorecording, you cannot see the drop down menu but it is working correctly)
    Then i save my data, and i try to blink the fields that i've filled before. In the combobox I press "Canc" and the data disappear, on the contrary in the datetimepicker i am not able to delete the data. I've tried to press canc, backspace etc, but nothing works.
  • Eugene Balabuev (LMD)
    Posts: 0Vote Up0Vote Down
    What is "I press Canc"? If you just want to beable to empty data field by pressing Escape, Backspace, ect, you can do this by writing OnKeyDown event handler and clearing the corresponding data field value directly in data-set.
  • STUDIO CENTRO SRL
    Posts: 38Vote Up0Vote Down
    Hi,

    I tried to write this event:

    procedure TfrmAnaEmittenti.dtpDataFatKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
      inherited;
      if (Key = VK_DELETE) or (Key = VK_BACK) then
      begin
        dtpDataFat.Field.DataSet.Edit;
        dtpDataFat.Text := '';
        dtpDataFat.Field.Value := Null;
      end;
    end;

    After this event, the text visible in dtpDataFat (TLMDDBDateTimePicker) is Today date.
    What am I doing wrong?

    Thanks


  • Eugene Balabuev (LMD)
    Posts: 0 Accepted Answer Vote Up0Vote Down
    The following code works (you should add Key := 0 to prevent futher default processing):

    procedure TForm2.LMDDBDateTimePicker1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
      if (Key = VK_DELETE) then
      begin
        ClientDataSet1.Edit;
        ClientDataSet1F1.Clear;
        Key := 0;
      end;
    end;
  • STUDIO CENTRO SRL
    Posts: 38Vote Up0Vote Down
    Thank you, now it works.

Sign In or Register to comment.