ошибся с областью видимости ?

[Иванчо]

ребята, есть две формы: Form8VedSelect и Form8VedQReport.
форма Form8VedSelect создана динамически:

var Child: TForm8VedSelect;
begin
Child:=TForm8VedSelect.Create(Appli cation);
Child.FormStyle:=fsMdiChild;
end;

форма Form8VedQReport - "Autocreate"

метод первой Form8VedSelect формы вызывает изменяет одно из свойств второй формы, и это приводит к выполнению метода QRLabel3Print второй формы. Так из этого метода переменная Form8VedSelect равна nil. И никак не удаётся получить значение её поля. Где я ошибся ?

[Stilet]

Ну код работы с переменой и ее описание в студию

[Иванчо]

простите, что ?

[Stilet]

Ну как ты описал ту переменку и как к ней обращаешся...

[Иванчо]

в
unit Vedomost8Select;

type
TForm8VedSelect = class(TForm)
///...
public
{ Public declarations }

ProizvID: Integer;
ProizvName: String;
ProizvPercent: currency;
mePercent: String;
end;
var
Form8VedSelect: TForm8VedSelect;



в Vedomost8QReport написано:

var
Form8VedQReport: TForm8VedQReport;
implementation
uses MainForm, Vedomost8Select;


procedure TForm8VedQReport.QuickRep1BeforePri nt(Sender: TCustomQuickRep; var PrintReport: Boolean);
begin
QRLabelProizv.Caption := '';
QRLabelProizv.Caption := Form8VedSelect.ProizvName; // здесь ругается access violationi at address in module ...
QRLabelProizv.Refresh;
QRLabel3.Caption:='';
QRLabel3.Caption:='Процент: ' + Form8VedSelect.mePercent;
QRLabel3.Refresh;
end;

[Maslan]

QRLabelProizv.Caption := Form8VedSelect.ProizvName; // здесь ругается access violationi at address in module ...

А форма Form8VedSelect в это время существует?
Может писать так?

QRLabelProizv.Caption := Child.ProizvName;

[Иванчо]

ещё один глюк, наверное связанный с тем же:


type
TForm8VedSelect = class(TForm)
public
{ Public declarations }
cmonth, cMonthMin : Integer;
// ...
// ----------------------------------------
procedure TForm8VedSelect.btnPrintClick(Sende r: TObject);
begin
cmonth := cbMonth.ItemIndex + cMonthMin;
// тоже ничего не видит ни cmonth ни cbMonth
// если этот метод из другой формы вызывается, а если из этой же, то видит
// ...
// ----------------------------------------

[Maslan]

Дай полный исходник, плз...

[Иванчо]

Ага. Установил для формы Form8VedSelect Autocreate.
Так нормально заработало.
А ещё, создавалась- то форма:
Child := TForm8VedSelect.Create(Application)
и поэтому имени Form8VedSelect в помине небыло.
А теперь если хочу из другой формы её трогать, то нужно глобальную переменную инициализировать ( := Create(Application) )

Спасибо, ребята.