переменные form2 на form1

[W0LF]

Использовал тоже D2009 и все норм работает, ЕСЛИ:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2;                           // ПОДКЛЮЧАЕМ FORM2 

procedure TForm1.FormActivate(Sender: TObject);
begin
ShowMessage(Form2.s);         //ИСПОЛЬЗУЕМ ПЕРЕМЕННУЮ ИЗ FORM2 C ПАБЛИК'a
end;

end.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    s:string;                              // НАДО В ПАБЛИК ПИСАТЬ, А НЕ В VAR ПЕРЕД implementation
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
s:='ТЕКСТ СО ВТОРОЙ ФОРМЫ';
end;

end.

[spamer]

У меня просто Делфи 7, то работает даже без указания Form2.s

[W0LF]

spamer:

привычка, да, можно и без Form2 =)

[motaro]

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

Использовал тоже D2009 и все норм работает

сделал все в точности с showmessage(s) и showmesage (form2.s), и выводит это

[motaro]

я пытался также сделать на delphi 7, но мой план провалился, что-же делать?

[motaro]

W0LF, я вот сделал все в точности, все запускает но не выводит сообщение (не видит значение переменой s), также если написать в коде form1 например label1.caption:=form2.s вместо showmessage тоже не видит.
А если на form2 сделать так:

 public
 { Public declarations }
   const s='TEKCT';
  end;

то на form1 удается вывести переменную s так

showmessage (form6.s);

и почему на form1 - procedure TForm1.FormActivate(Sender: TObject); вместо - procedure TForm1.FormCreate(Sender: TObject); ?

[Simply-Art]

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

и почему на form1 - procedure TForm1.FormActivate(Sender: TObject); вместо - procedure TForm1.FormCreate(Sender: TObject); ?

Вероятно потому что форма 2 у вас создается позже и когда вы только создали форму 1, процедура TForm1.FormCreate обращается к форме 2 которой еще не существует.