|
#1
|
|||
|
|||
События на Button
есть кнопка ButtonImportFile на панеле управления, при нажатии на нее открывается окно ImportFile, куда можно импортировать документ эксел и после загрузки, нажимаем кнопку Ок и уже появляется новое окно INPUT, где создается TreeVier с названием открывшегося эксел документа . когда нажимаю второй раз на кнопку ButtonImportFile , создается второе окно(копия) ImportFile. Как сделать так, чтобы когда нажимаешь ButtonImportFile второй и последующие разы, не создавалось окно с новым TreeVier , а создавалось на старом окне под старым TreeVier , новый TreeVier
|
#2
|
||||
|
||||
Цитата:
|
#3
|
|||
|
|||
Цитата:
Код:
procedure TForm1.ButtonImportFile(sender:TObj ect); var fr:TForm; begin fr:=TFormInputData.Create(Applicati on); fr.Show; end; Код:
procedure TFormInputdata.ButtonOkClick(Sender :TObject); begin FormInput:=TFormInput.Create(Applic ation); FormInput.treeView1.Visible:=true; end; сорри за вопрос, но куда и как нужно вставить if...then...else MAD: оформляйте код! Последний раз редактировалось M.A.D.M.A.N., 30.04.2014 в 09:45. |
#4
|
||||
|
||||
Цитата:
Вот пример для TFormInputData: Код:
var fr: TForm = nil; procedure TForm1.ButtonImportFileClick(Sender: TObject); begin // Если окно ещё не создано - создаём его if not Assigned(fr) then fr := TFormInputData.Create(Application); fr.Show; end; Аналогично и для TFormInputdata. |
#5
|
|||
|
|||
Цитата:
|
#6
|
||||
|
||||
Цитата:
|
#7
|
|||
|
|||
Цитата:
|
#8
|
||||
|
||||
Цитата:
|
#9
|
|||
|
|||
вот программный код
|
#10
|
||||
|
||||
Цитата:
Скорее всего ты не полностью мой код скопировал или вставил. Вот вырезка реализации модуля Unit1 с моим кодом: Код:
..... implementation uses Unit2, Unit3; {$R *.dfm} var fr: TForm = nil; procedure TForm1.ButtonImportFileClick(Sender: TObject); begin // Если окно ещё не создано - создаём его if not Assigned(fr) then fr := TFormInputData.Create(Application); fr.Show; end; end. |