全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1975
推到 Plurk!
推到 Facebook!

為何讓Form1隱藏不能用Form1.Visibel := false;或Form1.hide;

答題得分者是:小傑克
pcboy
版主


發表:177
回覆:1838
積分:1463
註冊:2004-01-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-05-04 09:14:30 IP:210.241.xxx.xxx 訂閱

為何讓程式主要Form隱藏必須用下面方法

[code delphi]
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
// Application.ShowMainForm := False;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
[/code]

而不能用
Form1.Visibel := false;

Form1.hide;
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案!

子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問!
小傑克
資深會員


發表:5
回覆:209
積分:357
註冊:2009-02-16

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-05-04 17:52:33 IP:59.112.xxx.xxx 訂閱
不是主form 問題, 是不能在on show 的時候去hide 這是矛盾的
而app 在一開始執行的時候會自動show 主form , 所以造成衝突

舉例來說, 可以放一個按鈕 ,on click 時 form1.hide 這就不會有問題
或者 on Click 時呼叫第二個form , form2.show ; 而在form2 on show 裡面寫 form2.hide 一樣會出錯
主要delphi 在執行 show , activate 這種讓畫面出現的 mothed 的同時 , 沒辦法執行 hide 指令
------
額有朝天骨,眼中有靈光
編輯記錄
小傑克 重新編輯於 2009-05-04 17:53:32, 註解 無‧
jow
尊榮會員


發表:66
回覆:751
積分:1253
註冊:2002-03-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-05-04 20:04:31 IP:123.193.xxx.xxx 未訂閱
[code delphi]
procedure TApplication.Run;
begin
FRunning := True;
try
AddExitProc(DoneApplication);
if FMainForm <> nil then
begin
case CmdShow of
SW_SHOWMINNOACTIVE: FMainForm.FWindowState := wsMinimized;
SW_SHOWMAXIMIZED: MainForm.WindowState := wsMaximized;
end;
if FShowMainForm then
if FMainForm.FWindowState = wsMinimized then
Minimize else
FMainForm.Visible := True;<<----HERE

repeat
try
HandleMessage;
except
HandleException(Self);
end;
until Terminated;

end;
finally
FRunning := False;
end;
end;

[/code]

另外,也可以在Trace TCustomForm.SetVisible()
為何無法以Visible := False; 來隱藏MainForm...

謹供參考...
編輯記錄
jow 重新編輯於 2009-05-04 20:15:18, 註解 無‧
系統時間:2024-03-29 5:35:28
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!