1 Topic by vit007 (edited by vit007 2020-03-29 14:30:56)

  • Registered: 2018-03-04
  • Posts: 377

Topic: А есть условие на открытую форму?

Мне надо открыть просмотр записи из таблицы с отключенными кнопками и полями. А т.к. у меня на форму просмотра установленно действие при открытии, то думаю, если можно будет условием проверить из подкакой формы был открыт просмотр, то такие и настройки использовать...

if (frmClient.Show) then

2 Reply by vit007 (edited by vit007 2020-03-29 14:35:21)

  • Registered: 2018-03-04
  • Posts: 377

Re: А есть условие на открытую форму?

нашел такое, но не работает здесь

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Form2.Showing then
    ShowMessage('Форма 2 oткрыта')
 else
    ShowMessage('Форма 2 закрыта')
end;
  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: А есть условие на открытую форму?

можно использовать  TagString

Form2.TagString:='Form1';
  • Registered: 2018-03-04
  • Posts: 377

Re: А есть условие на открытую форму?

Не много не понял о применении, мне надо сюда...

//if (frmNote.TagString:='frmClient') then
    begin
        //Подготовка формы для просмотра
        frmNote.Edit7.Enabled := False;
        frmNote.Edit8.Enabled := False;
        frmNote.Edit9.Enabled := False;
        frmNote.Edit10.Enabled := False;
        
    end else
  • Registered: 2014-02-14
  • Posts: 10,294

Re: А есть условие на открытую форму?

У формы есть свойство CalledForm, которое ссылается на форму, которая ее открыла с помощью кнопок с действием Новая запись, Показать запись, Показать форму


Form2.CalledForm.Name // получаем имя форма, которая вызвала открытие формы Form2
Dmitry.
  • Registered: 2018-03-04
  • Posts: 377

Re: А есть условие на открытую форму?

Спасибо...

if (frmNote.CalledForm.Name = 'frmClient') then