窗口间的互相调用。

發文回覆瀏覽次數：981

推到 Plurk!

推到 Facebook!

答題得分者是：st33chen

zhouying82
高階會員

發表：150
回覆：272
積分：189
註冊：2004-03-16

發送簡訊給我

#1 引用回覆回覆

發表時間：2009-04-21 14:25:35

IP:218.80.xxx.xxx 訂閱

程序一共有3个窗体，form1(主窗体),form2,form3，其中form1上有个BUTTON1，作用是动态创建FORM3.代码如下：

[code delphi]

procedure TForm1.ToolButton2Click(Sender: TObject);

var CLeft,CTop:integer;

begin

CLeft:=self.Left Toolbutton2.Width 8;

CTop:= self.Top Toolbutton2.top 28;

with form3 do

begin

left:=CLeft;

Top:=CTop;

showmodal;

end;

ToolBar1.CustomHint:=nil;

end;

[/code]

另外，(form1上面右键BUTTON1,显示FORM3,用的是form3.showmodal),

而在Form2和Form3上面分别有一个BUTTON,分别代码分别为

FORM2下面，

Form2.hide;

Form3.showmodal;

FORM3下面，

Form3.hide;

Form2.showmodal;

Form2和form3在DELPHI的project菜单中都设置为auto-create.

现在的问题就是，我在FORM3上面单击后，不能进行切换，总会出现“can’t setfcus visible form”错误

各位大大知道是什么原因吗？

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

st33chen
尊榮會員

發表：15
回覆：591
積分：1201
註冊：2005-09-30

發送簡訊給我

#2 引用回覆回覆

發表時間：2009-04-21 16:48:56

IP:122.116.xxx.xxx 未訂閱

您好,

要先 free 掉才能 showmodal 很多次

程序應是 : 以 form2 為例
1. hide 本身 --> form2.hide;
2. create form3 --> form3 := tform3.create(application);
3. show form3 --> form3.showmodal;
4. free 本身 --> form2.free;

------
IS IT WHAT IT IS
我是李慕白請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

st33chen 重新編輯於 2009-04-21 16:51:43，註解無‧

系統時間：2025-02-27 5:20:31

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！