超难的窗体的最小化问题 |
尚未結案
|
zhouying82
高階會員 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
有一个主FOMR1,另外FORM2,3,点击相关按钮弹出FORM2,FORM3.
form2,3的代码如下 [code delphi] procedure TForm1.ToolButton1Click(Sender: TObject); begin form2:=TForm2.Create(self); with form2 do begin top:=0 ; left:=Screen.Width -form2.Width ; FormStyle:=fsStayOnTop; Show; Timer1.Enabled :=true; end end procedure TForm2.Timer2Timer(Sender: TObject); begin if not assigned(Form3) then form3 := Tform3.Create(Self); form3.Top := Screen.Height -30; form3.Left := Screen.Width - form5.Width; form3.Timer1.Enabled := True; Form3.FormStyle :=fsStayOnTop; form3.Show; end; [/code] 现在的问题是,我在主界面(设为fsstaytop)打开的情况下,可以正常运行,但是当我让主界面最小化后,代码如下: [code delphi] procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose:=false; application.Minimize ; Application.MainForm.Visible := False; if IsWindowVisible(Application.Handle) then ShowWindow(Application.Handle, SW_HIDE ); form1.FormStyle:=fsNormal; [/code] 所有正在运行的form2,form3都会关闭,但是当我这时在重新做一遍,他又正常了,大大们,可否帮我看看,问题 出在哪里,应该怎么改?
------
断断续续的学了几年,还是一个初学者,永远支持Delphi ! |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |