В модальной форме не могу изменить заголовок окна

[Pervozurg]

Есть форма, которую я запускаю в модальном режиме. В тексте пишу
Form10.Caption:='Ввод данных';
а название не меняется. Почему?

А если пишу
If Form10.Active then Label1.Caption:='Активно';
вообще выдаёт ошибку "Active Inaccessible value ..."

[Аватар]

А где пишешь? Код

[Pervozurg]

Delphi 7
Пока не перевёл в модальные всё работало
Переводил по причине необходимость пробрасывать входные данные в другие формы и получать от них результат.
Нашёл http://www.delphisources.ru/pages/fa...s_to_form.html такой вариант, но пошли проблемы с работой уже отлаженных форм.
В окне переменных при отладке Form10.Active выдаёт Inaccessible value естественно при активной Form10. Родительская Form1 выдаёт как положено Form1.Active - True естественно при активной Form1.

[evg_m]

Form10.Caption:='Ввод данных';
а название не меняется. Почему?

Пока не перевёл в модальные всё работало

Весь фокус в том что код после ShowModal будет работать только ПОСЛЕ показа и после закрытия.

http://www.programmersforum.ru/showt...ight=showmodal

[Pervozurg]

При выполнении ShowModal открывается Form10. И при выполнении её кода полезли ошибки.
После ShowModal всё выполняется корректно.

Раньше она открывалась
Application.CreateForm(TForm10, Form10);
и всё нормально работало, а сейчас через ShowModal в ней происходят ошибки. Через Show она открывается, прогоняет FormCreate и сразу закрывается.

[Pervozurg]

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

Form10.Caption:='Ввод данных';

меняется на

Caption:='Ввод данных';

а

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

If Form10.Active then Label1.Caption:='Активно';

меняется на

If Active then Label1.Caption:='Активно';

и ... всё снова работает. Почему?!!!

Предполагаю, т.к. форма открывается кодом

function ExecuteDialog(FormClass: TExecFormClass;
  var Data): Boolean;
begin
  with FormClass.Create(Application) do
  try
    SetData(Data);
    Result := ShowModal = mrOK;
    if Result then
      GetData(Data);
  finally
    Release;
  end;
end;

with и делает такую "шутку"

[Аватар]

with и делает такую "шутку"

Нет. Скорее Handle окна еще не инициализировано. Обращение к Active его инициализирует

[Pervozurg]

Сообщение от Аватар

Обращение к Active его инициализирует

Пробовал. Не помогло.

[evg_m]

Раньше она открывалась
Application.CreateForm(TForm10, Form10);

А теперь как ?
так? (это единственный приведенный код).

 with FormClass.Create(Application) do

и где здесь задание Form10?
тода уж

form10:=FormClass.Create(Application);

[Pervozurg]

В начале Form10 была обычной формой и вызывалась

Application.CreateForm(TForm10, Form10);

По мере написания кода программы встала необходимость пробрасывать в эту форму данные и получать данные в ответ.

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

Нашёл http://www.delphisources.ru/pages/fa...s_to_form.html такой вариант, но пошли проблемы с работой уже отлаженных форм.

Суть данного кода в том, что создаётся новый класс TExecForm вместо TForm в классе прописываются методы SetData и GetData для обмена данными между формами. Описание класса, методов и функция ExecuteDialog в модуле ExecFrms.

unit ExecFrms;
interface
uses Forms, Controls;
type
  TExecForm = class(TForm)
  public
    procedure GetData(var Data); virtual; abstract;
    procedure SetData(var Data); virtual; abstract;
  end;
  TExecFormClass = class of TExecForm;

function ExecuteDialog(FormClass: TExecFormClass;
  var Data): Boolean;

implementation

function ExecuteDialog(FormClass: TExecFormClass;
  var Data): Boolean;
begin
  with FormClass.Create(Application) do
  try
    SetData(Data);
    Result := ShowModal = mrOK;
    if Result then
      GetData(Data);
  finally
    Release;
  end;
end;

end.

Эта функция часть подключаемого модуля. В ней новая форма вызывается модально. Я думал что дело в этом.
В тексте программы Form10 вызывается так:

if ExecuteDialog(TForm10 , Data) then
  begin
    ...
  end;

Суть проблемы заключалась в том, что в запускаемой форме перестали работать методы и свойства вызываемые

Form10.Caption:='Ввод данных';

которые до этого благополучно работали. В окне переменных Form10.Active выдавал Inaccessible value.
Решение свелось к тому, что пришлось убрать все префиксы "Form10." Новый вид кода стал таким:

Caption:='Ввод данных';

и программа снова заработала. В окне переменных Active (вместо Form10.Active) стал выдавать True.
Вот я и предполагаю что

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

with и делает такую "шутку"

так как в конечном счёте Form10 вызывается строчкой

Result := ShowModal = mrOK;

которая находится внутри with . Возможно я не прав, но другого объяснения у меня нет.