Две формы в Delphi

[Kotlyar562]

Есть две формы FVibor и FTest. Причем FTest создается при нажатии на кнопку формы FVibor.

tmp:string;
...
var Forma:TForm;
begin
  if not Assigned(FTest) then
    Forma:=TFTest.Create(Self);
  Forma.Show;

  FTest.label1.Caption:=tmp;
end;

При присваивании label1.Caption выдает ошибку. В чем может быть причина?
Ошибка не при компиляции, а при запуске программы и нажатии на кнопке.

[maxflint]

вот этой строкой
Forma:=TFTest.Create(Self);
Ты же создал форму Forma...


Forma.label1.Caption:=tmp;

скорей всего так

[Vaigard]

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

[maxflint]

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

твой код более, чем скромный, и лично я по нему определил немного.

на самом деле,
выкладывай весь текст модуля

[Kotlyar562]

unit UVibor;

interface

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

type
  TFVibor = class(TForm)
    Label1: TLabel;
    edOut: TEdit;
    btP: TButton;
    Label2: TLabel;
    btRun: TButton;
    lbTem: TListBox;
    procedure btRunClick(Sender: TObject);
    procedure lbTemClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FVibor: TFVibor;
  tmp: string;

implementation

uses UEnter, UTest;

{$R *.dfm}

procedure TFVibor.btRunClick(Sender: TObject);
var Forma:TForm;
begin 
  tmp:='Название';
  if not Assigned(FTest) then
    Forma:=TFTest.Create(Self);
  Forma.Show;
 FTest.lbVopros.Caption:=tmp;
end;

Заметил, что при обращении к свойствам формы FTest (которая создается по клику) все норм, а вот при обращении к свойствам компонент, которые на ней находятся выдает ошибку.

Тмп не пустой и ссылки на модули есть 100%.
Хотя нет, ошибка в любом случае(( Из-за чего она может быть??

[VadikV]

Тебе уже ответили выше. Вот правильный код:
Forma.lbVopros.Caption:=tmp;

[Kotlyar562]

Тебе уже ответили выше. Вот правильный код:
Forma.lbVopros.Caption:=tmp;

Как я понял, через переменную Forma можно обращаться только к свойствам созданной формы. Компоненты она почему-то "не видит".
[Error] UVibor.pas(50): Undeclared identifier: 'lbVopros'

[maxflint]

Можно, вот посмотри



maxflint,
У Вас Delphi заражена вирусом "Индюк".
Рекомендую немедленно приступить к лечению!
Вам сюда - Delphi-“вирус” проверьте свою установленную Delphi!

[Kotlyar562]

maxflint, спасибо, понял. Я Forma объявлял типа TForm, а надо было TFTest. Поэтому она и не видела компонентов формы.
Спасибо.

[maxflint]

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

maxflint, спасибо, понял. Я Forma объявлял типа TForm, а надо было TFTest. Поэтому она и не видела компонентов формы.
Спасибо.

Отлично, молодец