timer事件 if form1<>nil then begin form1.close; form2:=tform2.create(application); form2.show; end else begin form2.close; form1:=tform1.create(application); form1.show; end;
timer1.ontimer begin timer1.enabled:=fasle; end;form1.onactivate begin timer1.enabled:=true; while timer1.enabled do application.processmessages; hide; form2.show; end;给分吧:) end;
if form1<>nil then
begin
form1.close;
form2:=tform2.create(application);
form2.show;
end
else
begin
form2.close;
form1:=tform1.create(application);
form1.show;
end;
在form1的onhide属性打开form2就ok!
begin
timer1.enabled:=fasle;
end;form1.onactivate
begin
timer1.enabled:=true;
while timer1.enabled do application.processmessages;
hide;
form2.show;
end;给分吧:)
end;