//****************************************************************************//
// 日期:20040909
// 事件:TFormSpecific.ActFormCompareShowExecute(Sender: TObject);
// 功能:显示处理效果对比区域模块
// 备注:
//****************************************************************************//
procedure TFormMain.ActFormCompareShowExecute(Sender: TObject);
begin
FormCompare := TFormCompare.Create(nil); // 动态创建窗体 TFormCompare
FormCompare.ShowModal; // 显示窗体 TFormCompare
FormCompare.Release; // 释放内存资源,否则回引起内存外泻
end;
//----------------------------------------------------------------------------//
//****************************************************************************//
// 日期:20041009
// 事件:TFormMain.ActFormSlideShowExecute(Sender: TObject);
// 功能:显示幻灯片演示区域模块
// 备注:
//****************************************************************************//
procedure TFormMain.ActFormSlideShowExecute(Sender: TObject);
begin
Formslide := TFormSlide.Create(nil); // 动态创建窗体 FormSilde
Formslide.ShowModal; // 显示窗体 FormSilde
FormSlide.Release; // 释放内存资源,否则回引起内存外泻
end;
//****************************************************************************//
// 日期:20041015
// 事件:TFormMain.ActFormImageViewShowExecute(Sender: TObject);
// 功能:显示图像浏览区域模块
// 备注:
//****************************************************************************//
procedure TFormMain.ActFormImageViewShowExecute(Sender: TObject);
begin
FormImageView := TFormImageView.Create(nil); // 动态创建窗体 FormImageView
FormImageView.ShowModal; // 显示窗体 FormImageView
FormImageView.Release; // 释放内存资源,否则回引起内存外泻
end;
这样可以了吧!
快给分