[DOR]

Добрый вечер. Форму создаю так:

Код:

procedure Tf_Main.sbt_SchetClick(Sender: TObject);
var
  foo: Tf_Schet;
begin
  foo := Tf_Schet.Create(Application);
  Try
    foo.ShowModal;
  Finally
    foo.Free;
  end;
end;

На форме есть кнопка, которая таким же образом создает и вызывает форму с именем f_xxx. Когда я с формы f_xxx пытаюсь записать в f_Schet какую либо информацию, то ничего не происходит. НО если формы создать при старте программы, то все работает. Что я не так делаю, что нужно поправить? Помогите пожалуйста.

[BBBCat]

А наверняка потому что foo - локальная переменная. Хотя с уверенностью не скажу. Код в студию!

[DOR]

какой именно? создания формы или записи данных в созданную форму?

[BBBCat]

Как f_xxx пытается записать в f_Schet. И ещё - обе эти формы просто наследники TForm с приколоченными к ним компонентеми? Во ещё, спрошу на всякий случай: не в курсе как SetString работает?

[DOR]

Код:

procedure Tf_xxx.sbt_SelectClick(Sender: TObject);
begin
  f_Schet.Edit1.Text := '123';
end;

И ещё - обе эти формы просто наследники TForm с приколоченными к ним компонентеми?

Я не очень в этом разбираюсь(((( На формах так же есть компоненты которые связаны с БД (Акцесс) через запросы. Если это может влиять.

[BBBCat]

А uses кто-кого? Что-то так по обрывкам кода тяжко всё охватить. Сейчас просто попробую смоделировать по своему подобную ситуёвину. Т.е. главная форма вызывает вторую форму, а та в свою очередь вызывает третью. И третья должна чёй-то написать во второй. Так?

[DOR]

Да, Uses подключены, формы друг друга видят. И не просто вызывает, а создает. т.е. в начале формы не созданы

Код:

begin
  Application.Initialize;
  //Application.CreateForm(Tf_xxx, f_xxx);
  //Application.CreateForm(Tf_Shet, f_Shet);
  Application.Run;
end.

[BBBCat]

Чё-та или я задачи не понял, или магнитные бури У меня всё работает. Вот проект

[DOR]

дело видимо во мне, убрал переменные, как у Вас, и все заработало.