Последняя версия DataExpress 3 beta от 15 сентября 2020 года.

Изображение Скачать | Изображение Что нового?



Объявление:

Если вам понравилась программа и вы ее интенсивно используете - замолвите словечко о ней на вашем сайте (блоге, форуме, твитере, краской на подъезде, ютуб-канале и т.д.) с активной (по-возможности) ссылкой на сайт программы/форум. Тем самым вы можете внести небольшой вклад в seo-карму проекта в виде входящих ссылок.
Спасибо! Администрация :)


>> Обсудить <<

как выбрать существующую запись из формы

Все о том как сделать что-то с помощью скриптов.
kok80
Эксперт
Сообщения: 352
Зарегистрирован: 02 июл 2018, 21:45
Благодарил (а): 3 раза
Поблагодарили: 34 раза

как выбрать существующую запись из формы

Сообщение kok80 » 14 сен 2020, 12:13

Мне нужно выбрать существующую запись из формы. Диалог выбора запускается кнопкой на гланой панели.

Раньше просто вешал TdxLookupComboBox на форму и выбор делал через него. Сейчас это не очень удобно, тк новую запись формы не нужно создавать.
Как правильно сделать ? Только через создание вручную TFormView?

Аватара пользователя
admin
Разработчик
Сообщения: 5165
Зарегистрирован: 14 мар 2016, 11:32
Откуда: Ленинградская
Благодарил (а): 41 раз
Поблагодарили: 334 раза

как выбрать существующую запись из формы

Сообщение admin » 14 сен 2020, 13:55

Можно TFormView + TWindow или TListWindow.

kok80
Эксперт
Сообщения: 352
Зарегистрирован: 02 июл 2018, 21:45
Благодарил (а): 3 раза
Поблагодарили: 34 раза

как выбрать существующую запись из формы

Сообщение kok80 » 14 сен 2020, 17:35

Почему на ShowModal всё виснет, а на show нет ? Базу приложил, кнопка без картинки слева на главной панели

Код: Выделить всё

  ListWindow:=TListWindow.create('форма 2',vtGridOnly);
  ListWindow.parent:=Mainwindow;
  ListWindow.FormView.form.open;
  ListWindow.showmodal;
  //ListWindow.show; 
Вложения
BASE.zip
(48.95 КБ) 11 скачиваний

Аватара пользователя
admin
Разработчик
Сообщения: 5165
Зарегистрирован: 14 мар 2016, 11:32
Откуда: Ленинградская
Благодарил (а): 41 раз
Поблагодарили: 334 раза

как выбрать существующую запись из формы

Сообщение admin » 14 сен 2020, 18:35

Уберите строчку с parent.

kok80
Эксперт
Сообщения: 352
Зарегистрирован: 02 июл 2018, 21:45
Благодарил (а): 3 раза
Поблагодарили: 34 раза

как выбрать существующую запись из формы

Сообщение kok80 » 15 сен 2020, 11:23

оставлю тут, чтобы было

Код: Выделить всё

var RecID:integer;

procedure ListWindow_OnDblClick(sender:TObject);
begin
  RecID:=TdxForm(TdxGrid(sender).form).RecID;
  TListWindow(TControl(sender).parent.parent.parent).close;
end;

procedure click(sender:TObject);
var ListWindow:TListWindow;
begin
  RecID:=0;
  ListWindow:=TListWindow.create('форма 2',vtGridOnly);
  ListWindow.FormView.form.open;
  ListWindow.FormView.form.grid.OnDblClick:=@ListWindow_OnDblClick;
  ListWindow.ShowModal;
  if RecID>0 then
    msgbox('выбран',IntToStr(RecID))
  else
    msgbox('не выбран','не выбран');
end;
Вложения
BASE (2).zip
(49.34 КБ) 12 скачиваний


Вернуться в «Общие вопросы.»