procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
if TreeView1.Selected.Text = '입고정보' then
Form2.Show;
end
else if TreeView1.Selected.Text='출고입력' then
Form6.Show;
end
else if TreeView1.Selected.Text='제품별조회'then
Form8.Show;
end
else if TreeView1.Selected.Text='창고별조회' then
Form9.Show;
end;
end.
이게 아닐까 합니다.
각각의 form은 모두 create 상태 겠지엽?
procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
if TreeView1.Selected.Text = '입고정보' then
Begin
Form2.Show;
end
else if TreeView1.Selected.Text='출고입력' then
Begin
Form6.Show;
end
else if TreeView1.Selected.Text='제품별조회'then
Begin
Form8.Show;
end
else if TreeView1.Selected.Text='창고별조회' then
Begin
Form9.Show;
end;
end;
또는...
procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
if TreeView1.Selected.Text = '입고정보' then Form2.Show
else if TreeView1.Selected.Text='출고입력' then Form6.Show
else if TreeView1.Selected.Text='제품별조회'then Form8.Show
else if TreeView1.Selected.Text='창고별조회' then Form9.Show;
end;