События на Button

[Zaura]

есть кнопка ButtonImportFile на панеле управления, при нажатии на нее открывается окно ImportFile, куда можно импортировать документ эксел и после загрузки, нажимаем кнопку Ок и уже появляется новое окно INPUT, где создается TreeVier с названием открывшегося эксел документа . когда нажимаю второй раз на кнопку ButtonImportFile , создается второе окно(копия) ImportFile. Как сделать так, чтобы когда нажимаешь ButtonImportFile второй и последующие разы, не создавалось окно с новым TreeVier , а создавалось на старом окне под старым TreeVier , новый TreeVier

[Streletz]

Можно попробовать, например, проверять TreeView на наличие. Если имеется 1 или больше, добавлять на старую форму.

[Krok27]

Проверить, открыто ли окно с TreeView.
Было бы неплохо привести кусок кода ButtonImportFile.

[Zaura]

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

Проверить, открыто ли окно с TreeView.
Было бы неплохо привести кусок кода ButtonImportFile.

кнопка находитьмя в главном окне на панеле инструментов
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;

Буду благодарна за помощь)))

[Krok27]

procedure TFormInputdata.ButtonOkClick(Sender :TObject);
begin
FormInput:=TFormInput.Create(Applic ation);
FormInput.treeView1.Visible:=true;
end;

procedure TFormInputdata.ButtonOkClick(Sender :TObject);
begin
if not Assigned(FormInput) then 
begin 
 FormInput:=TFormInput.Create(Applic ation);
 FormInput.treeView1.Visible:=true;
end
else
begin
  FormInput.treeView // обновить значение в дереве
end;
end;

[Zaura]

Сообщение от Krok27;1370415[CODE

procedure TFormInputdata.ButtonOkClick(Sender :TObject);
begin
if not Assigned(FormInput) then
begin
FormInput:=TFormInput.Create(Applic ation);
FormInput.treeView1.Visible:=true;
end
else
begin
FormInput.treeView // обновить значение в дереве
end;
end;
[/CODE]

Извините,может мой вопрос покажется глупым, я просто недавно начала изучать Дельфи и не совсем могу понять как обновить значение в treeView. спасибо заранее за понимание и помощь)))

[Zaura]

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

Можно попробовать, например, проверять TreeView на наличие. Если имеется 1 или больше, добавлять на старую форму.

здравствуйте. не совсем могу понять как это сделать, если я отправлю вам прогу можете посмотреть?

[Zaura]

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

Можно попробовать, например, проверять TreeView на наличие. Если имеется 1 или больше, добавлять на старую форму.

вот программный код

программный код