Перейти к содержанию
Fire Monkey от А до Я

AlexM

Пользователи
  • Постов

    4
  • Зарегистрирован

  • Посещение

Сообщения, опубликованные AlexM

  1. Win10
    Delphi 10.3.1
    необходимо реализовать редактирования ячейки TGrid, на котором есть LiveBindings
    нужна маска редактирования и шрифт

    пробовал OnCreateCustomEditor

    procedure TForm1.Grid1CreateCustomEditor(Sender: TObject;
      const Column: TColumn; var Control: TStyledControl);
    var
      tmpEdit: TEdit;
    begin
      tmpEdit := TEdit.Create(self);
      tmpEdit.MaxLength := 3;
      tmpEdit.Font.Style := tmpEdit.Font.Style + [TFontStyle.fsUnderline];
      Control := tmpEdit;
    end;

    MaxLength работает ок, но хотелось бы всё-таки маску
    жирный шрифт не устанавливается
    введенное значение не сохраняется, по окончании редактирования восстанавливается старое значение, даже если tmpEdit в LiveBindings привязать к LinkFillControlToField

  2. Добрый день!

    ListBox с LiveBindings, Click мыши на ListBoxItem автоматом вызывает DataSourceDataChange, а также установку в необходимый DataSet значения SelectedValue из Listbox согласно настройкам LiveBindings
    как добиться того же при нажатии клавиши Enter?
    пробовал ListBoxItem.SetIsSelectedInternal(true, true) - не лечит

×
×
  • Создать...