急.急.急----谁有打印图片的控件? (100分)

  • 主题发起人 主题发起人 细文
  • 开始时间 开始时间
begin

Application.CreateForm(TFmjspxdj, Fmjspxdj);
IF ...then

begin

....
end;

Fmjspxdj.Showmodal();
Fmjspxdj.Release;
 
使用Showmodal.(一定要关闭窗口才能往下执行)
 
//这样就可以了。
begin

GH:=FORM2.CREATE(APPLICATION);//在子窗口(FORM2)中输入数据后再向下执行
FORM2.SHOWMODAL;
Form2.Free;
Form2:=Nil;
end;
 
窗口(FORM2)是子窗口,"FORM2.SHOWMODAL"行不通.
 
呵呵,他缺了一个“T”
begin

FORM2:=TFORM2.CREATE(APPLICATION);//在子窗口(FORM2)中输入数据后再向下执行
FORM2.SHOWMODAL;
Form2.Free;
Form2:=Nil;
end;
 
ShowModal;
晚了。
 
同意楼上的!!!!
 
FORM2:=TFORM2.CREATE(APPLICATION);//在子窗口(FORM2)中输入数据后再向下执行
try
FORM2.SHOWMODAL;
if form2.ModalResult=mrOk then

begin

//your code
end;

finally
Form2.Free;
end;

form2的确定按钮中加modalresult:=mrok;
关闭按钮中close;
 
来晚了!见者有分哦
 
将子窗体的formstyle设置为dialog模式
 
各个大侠.
我说过多遍窗口(FORM2)是子窗口,"FORM2.SHOWMODAL"行不通.我试过很多遍都不行.
难道中间有什么问题?.
子窗口的formstyle只有四种模式(FSMDICHILD FSMDIFORM FSNORAL FSSTAYONTOP).
没有dialog模式.

 
你可以不用MDI子窗体嘛,单单是设置borderstyle为bsdialog就可以嘛!
 
>>我说过多遍窗口(FORM2)是子窗口,"FORM2.SHOWMODAL"行不通.我试过很多遍都不行.
不对呀,我的很多窗口都是showmodal的,子窗口的子窗口都行,而且在showmodal之前我
还调用了子窗口的函数,并对其中一些变量赋值,都没问题呀(至少在D5下没问题)。你
是怎么实现的,把代码贴出来看看
 
我在 PROJECT OPTIONS 中 FORMS页将 FORM2 移到 AVAILABLE FORMS中.
然后在 BUTTON1 单击:
procedure TForm1.Button1Click(Sender: TObject);
begin

FORM2:=TFORM2.CREATE(APPLICATION);//在子窗口(FORM2)中输入数据后再向下执行
IF .... then

begin
//处理 FORM2 的数据
......
......
end;

end;

 
莫名其妙!!
怎么求一个打印图片的控件,变成了讨论form2.showmodal
 
控件我没有,不过我写过一个很详细的打印图片的模块。
 
netkk 能将代码发给我学习以下吗?
wzs4743@sina.com
 
后退
顶部