Цитата:
|
Сообщение от Black Raider
в unit2 сделать так:
В разделе public
Код:
function NewLab(fm1:TForm; lc:String):boolean;
и
Код:
function TForm2.NewLab(fm1:TForm; lc:String):boolean;
begin
....
end; |
второй формы нет, есть еще один юнит и из него надо создать объект на единственную форм1...