Цитата:
|
Сообщение от Zazazu
кнопка находитьмя в главном окне на панеле инструментов
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
|
А какое окно не должно создаваться более одного раза? TFormInputData или TFormInput ?
Вот пример для TFormInputData:
Код:
var
fr: TForm = nil;
procedure TForm1.ButtonImportFileClick(Sender: TObject);
begin
// Если окно ещё не создано - создаём его
if not Assigned(fr) then fr := TFormInputData.Create(Application);
fr.Show;
end;
Аналогично и для TFormInputdata.