Связь между формами

[NikLik]

Посмотри, может это поможет

[KiberJo]

Спасибо за совет, попробовал ошибка стала выходить другая теперь пишет Invalid class typecast Скорее всего опять делаю что-то неправильно.
Опять прикрепляю весь проект, ну и листинг части кода.

Странно но почему то я могу считать какие-либо атрибуты самого MDIChild но не могу прочитать ничего из его элементов.

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

unit Unit3;

interface
...
type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
...
var
  Form3:TForm3;
implementation
{$R *.dfm}
  Uses Unit1,Unit2;
procedure TForm3.Button1Click(Sender: TObject);
Var
  i:Integer;
  txt:String;
begin
for i:=0 to Form1.MDIChildCount -1 do begin
  if(Pos('Form2',Form1.MDIChildren[i].Caption) <> 0) then
    Break;
End;
if(i = MdiChildCount) then Dec(i);
if(Pos('Form2',Form1.MDIChildren[i].Caption) <> 0) then Begin
  with (Form1.MDIChildren[i] as TForm3).Edit1 do
    txt := Text;
  ShowMessage(txt);
End;
//Form2.Label1.Caption := Edit1.Text;
end;
...
end.

[KiberJo]

Сообщение от Манжосов Денис :)

А зачем у тебя обе формы имеют MdiChild, одну из них сделай FormStyle := fsNormal/

Если не найду способа заставить это все работать то так и сделаю и похороню MDIChild

[Ring0Sn]

KiberJo, пробуй указывать в таких ситуациях тип явно, а не через оператор AS
смотри аттач

[MAKEDON]

KiberJo, тебе надо чтобы при вводе в 3 форму и нажатии на клавишу чтобы текст в форме 2 менялся, а следовательно в форме 1 тоже?

[KiberJo]

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

KiberJo, тебе надо чтобы при вводе в 3 форму и нажатии на клавишу чтобы текст в форме 2 менялся, а следовательно в форме 1 тоже?

Это вопрос или резюме?
Если вопрос то нет ненужно.

[alexBlack]

2KiberJo
Создание окон:
unit1:
Form2 := TForm2.Create(Application);
unit2:
Form3 := TForm3.Create(Application);

Тогда в unit3:TForm3.Button1Click можно делать
Form2.Label1.Caption := Edit1.Text;

invalid typecast из-за того, что Вы ищете Form2, а приводите к Form 3.
Исправьте:

if(Pos('Form2',Form1.MDIChildren[i].Caption) <> 0) then Begin
  with (Form1.MDIChildren[i] as TForm2).Edit1 do

И еще маленькое замечание. После выхода из цикла For значение счетчика неопределено. На мой взгляд лучше использовать while.

[KiberJo]

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

KiberJo, пробуй указывать в таких ситуациях тип явно, а не через оператор AS
смотри аттач

Спасибо да действительно все заработало
стоило указать

 with TForm3(Form1.MDIChildren[i]).Edit1 do

вместо

 with (Form1.MDIChildren[i] as TForm3).Edit1 do

и все изменилось...

Правда появилась другая трудность.Как заметил MAKEDON Мне нужно

чтобы при вводе в 3 форму и нажатии на клавишу чтобы текст в форме 2 менялся

Но у меня почему-то если я говорю что нужно поменять Edit1.Text то у меня меняется Button1.Caption Странно не правда ли? Жаль программу аттачить не могу. Хотя в том примере который прикреплял, как ни извращался все работает. Я конечно попробую написать отдельные фрагменты кода с нуля(может в ходе различных действий что-то куда не так и вписал), Но все-же может быть у кого была такая ситуация?

[KiberJo]

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

2KiberJo
Создание окон:
unit1:
Form2 := TForm2.Create(Application);
unit2:
Form3 := TForm3.Create(Application);

Тогда в unit3:TForm3.Button1Click можно делать
Form2.Label1.Caption := Edit1.Text;

invalid typecast из-за того, что Вы ищете Form2, а приводите к Form 3.
Исправьте:

if(Pos('Form2',Form1.MDIChildren[i].Caption) <> 0) then Begin
  with (Form1.MDIChildren[i] as TForm2).Edit1 do

И еще маленькое замечание. После выхода из цикла For значение счетчика неопределено. (Или уже что-то изменилось ? Это я себе - нужно посмотреть документацию). На мой взгляд лучше использовать while.

Спасибо за помощь я это не сам придумал, велосипед изобретен не мной я лиш прочитал то что посоветовал мне NikLik смотри выше. и сдалал все так как там описано...

[Ring0Sn]

Жесткач, все перепутали! плюнь лутче на все аттачи и напиши с нуля, ошибки походу просто в правильности применения рук!