Цитата:
|
Сообщение от poli-smen
Всё просто - по нажатию кнопки ButtonImportFile проверяешь (конструкцией if...then...else) если такого окна ещё нет - создаёшь, если же уже есть - используешь его вместо создания нового.
|
кнопка находитьмя в главном окне на панеле инструментов
Код:
procedure TForm1.ButtonImportFile(sender:TObj ect);
var fr:TForm;
begin
fr:=TFormInputData.Create(Applicati on);
fr.Show;
end;
после нажатия создается окно Inputdata куда, импортируется в StringGrid эксел документ и после нажатия кнопки ButtonOk(внизу код), создается окно FormInput, где появляется treeView с названием загруженного эксел дока
Код:
procedure TFormInputdata.ButtonOkClick(Sender :TObject);
begin
FormInput:=TFormInput.Create(Applic ation);
FormInput.treeView1.Visible:=true;
end;
сорри за вопрос, но куда и как нужно вставить if...then...else
MAD: оформляйте код!