CanClose := false; end;
procedure TMainForm.N4Click(Sender: TObject); var child:TFormReport; begin
child := TFormReport.Create(Application); child.Show; end;
procedure TMainForm.N7Click(Sender: TObject); begin
formHelp.Show; end; end.
B:FormTable 设计界面:
运行界面: