5,928
社区成员




procedure TForm2.ShowForm(aform:TForm;aformClass:TFormClass);
begin
if assigned(self.ActiveForm) then self.ActiveForm.Destroy;
aform:= aformClass.Create(owner);
aform.Parent:= self.Panel1;
aform.Top:=0;
aform.Left:=0;
aform.Show;
self.ActiveForm:= aform;
end;
procedure TForm2.TreeView1DblClick(Sender: TObject);
var
form: TForm2;
begin
if TreeView1.Selected = nil then Exit;
if TreeView1.Selected.Text='注册' then
begin
ShowForm(form,TForm5);
end;
end;