关于FORM显示问题 有三个formform1为主窗体.form2中有个事件打开form3.我想要在form3中填完资料后点击按钮才能用form2.也就是form3要比较强制性显示.直到点击form3的完成按钮. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 不行的..关闭后回来form2后onactivate事件不能触发呀.? 不行的..关闭后回来form2后onactivate事件不能触发呀.?-------------------------------------------因为form2本来就是active的。你是不是要在form3关闭的时候在form2上执行一些代码,如果是这样的话,可以这样:form3 unit的interface部分定义一个event:type TYourEvent = procedure (Sender: TObject{;还可以加很多参数}) of object;Tform3定义的private部分定义一个变量: FOnYour: TYourEvent;public部分定义一个属性: property OnYour: TYourEvent read FOnYour write FOnYour;form3的OnClose过程中执行: if Assigned(FOnYour) then FOnYour(Sender{,还可以加很多参数});Tform2的private部分定义一个过程,过程的参数和上面的TYourEvent一致: procedure Form3Your(Sender: TObject{;还可以加很多参数});form2中调用form3的ShowModal之前(必须在form3创建后)给form3的OnYour属性赋值,指定你定义的过程: Form3.OnYour := Form3Your;然后你就可以在procedure TForm2.Form3Your(Sender: TObject{;还可以加很多参数})的过程中添加你的处理代码。procedure TForm2.Form3Your(Sender: TObject{;还可以加很多参数});begin //你的代码end;-------------------------------------------以上代码实际上就是定义了一个你自己的事件并处理。 我有些看不懂.但是第一句话讲到点了."因为form2本来就是active的"这就是问题的根源.我会慢慢地直到看懂你说的.谢谢了. 关于MP3文件信息的获取 郁闷,散分 一个Tclientdataset导入XML的问题,提示'Mismatch in datapacket' 这样的循环应该怎么写啊! RxRichEdit是否可以加入背景图? 有没有人知道类似netmeeting这样点对点视音频的控件或源码 爽!今天把所有的贴子都结完了!送出800分去!还欠WWWWA(aaaa) 60分!请进!再散40分! 谁有能力开发搜索工具条的进来看看。。。 64分求教渐变进度条的问题~ 谁知道哪里有免费的Zip格式的压缩控件! 这到底是怎么回事呀? 世界上有没有这种东西,万能打印!!!
-------------------------------------------
因为form2本来就是active的。你是不是要在form3关闭的时候在form2上执行一些代码,如果是这样的话,可以这样:form3 unit的interface部分定义一个event:
type
TYourEvent = procedure (Sender: TObject{;还可以加很多参数}) of object;Tform3定义的private部分定义一个变量:
FOnYour: TYourEvent;
public部分定义一个属性:
property OnYour: TYourEvent read FOnYour write FOnYour;form3的OnClose过程中执行:
if Assigned(FOnYour) then
FOnYour(Sender{,还可以加很多参数});Tform2的private部分定义一个过程,过程的参数和上面的TYourEvent一致:
procedure Form3Your(Sender: TObject{;还可以加很多参数});form2中调用form3的ShowModal之前(必须在form3创建后)给form3的OnYour属性赋值,指定你定义的过程:
Form3.OnYour := Form3Your;然后你就可以在procedure TForm2.Form3Your(Sender: TObject{;还可以加很多参数})的过程中添加你的处理代码。
procedure TForm2.Form3Your(Sender: TObject{;还可以加很多参数});
begin
//你的代码
end;
-------------------------------------------
以上代码实际上就是定义了一个你自己的事件并处理。
我会慢慢地直到看懂你说的.
谢谢了.