[ApxaHGe1]

Уважаемые помогите решить 2 проблемы
1. Имеется любая база данных аксес, в ней есть столбцы типа DateTime, ДБГрид при клике на них, дает выбрать дату, но пишет туда как дату так и время (10.03.2016 20:03:01) а нужно (10.03.2016)

2. Вопрос

Имеются поля, в которых нужно открыть свой внутренний справочник, ок. нахожу данные поля, на них отображаю кнопку, методом (Column.ButtonStyle:=cbsEllipsis)
обрабатываю эту кнопку, открывается новая форма, теперь вопрос, как мне из этой новой формы вставить выбранное значение (скажем 2клик) в таблицу, открытую в форме_1

Раньше прям на форме 1 открывал ListBox1 и делал так

Код:

procedure TForm1.ListBox1DblClick(Sender: TObject);
Var
  Field: TField;
begin
Field := TField(ListBox1.Tag);
Field.DataSet.Edit;
Field.Value := ListBox1.Items[ListBox1.ItemIndex];
Field.DataSet.Post;
ListBox1.Hide;
end;

[Alegun]

По первой трабле, в поле типа DateTime можно вбить три варианта значений: DateTime, Date или Time, видимо выбран первый, чем набиваете - если с помощью DateTimePicker то можно просто выбрать у него источник как Date

[ApxaHGe1]

тип поля делал и Date и DateTime
Выбор открывается сам средствами DBGridEh.... так как видит что поле типа DateTime ....
Скрин прилагается

[ApxaHGe1]

Второй вопрос решен уже ) оказалось все просто, видимо просто уже устал ....

[Alegun]

Не пользую эту либу, посему могу только предположить что наверное у и этой сетки выскакивает при даблклике редактор полей, возможно следует задать у поля с датой свойство DisplayFormat как dd.mm.yyyy, у обычного DBGrid такое есть

[ApxaHGe1]

Сообщение от Alegun

Не пользую эту либу, посему могу только предположить что наверное у и этой сетки выскакивает при даблклике редактор полей, возможно следует задать у поля с датой свойство DisplayFormat как dd.mm.yyyy, у обычного DBGrid такое есть

А как задать ? Да это тот же DBGrid... Просто побольше воможностей у него.... DBGridEh....
количество полей тип Date я не знаю сколько пользователь создаст
есть такакя идея, при прорисовке, форматировать, но я не знаю как

Код:

procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
if Column.Field.DataType in [ftDate,ftDateTime] then
begin
//как
end;

end;