請問各位大大..

目前有4個form分別為frMain,formA,formB,formC,
frMain 的 formSytle = fsMDIForm
formA,formB,formC formSytle = fsMDIChild
為什麼執行後,formA,formB,formC全部一起秀出起來..
另外,我如何分別呼叫formA,formB,formC..
我試過利用 formA.Show..都沒什麼反應..

麻煩大家..告訴我..thks

編輯記錄

1.將formA,formB,formC 原本為 auto-create 設為 available
設定地方：點選 project→options→form
2.在frMain使用Button開起formA
procedure TfrMain.Button1Click(Sender: TObject);
begin
TFormA.Create(self); //開起formA;
end;

3.關閉formA
procedure TFormA.FormClose(Sender: TObject; var Action: TCloseAction); //
begin
Action:=caFree;//關閉formA
end;





===================引 用 t0288542 文 章===================
請問各位大大..

目前有4個form分別為frMain,formA,formB,formC,
frMain 的 formSytle = fsMDIForm
formA,formB,formC? formSytle = fsMDIChild
為什麼執行後,formA,formB,formC全部一起秀出起來..
另外,我如何分別呼叫formA,formB,formC..
我試過利用 formA.Show..都沒什麼反應..

麻煩大家..告訴我..thks

------
學藝不精 謝多多指教

編輯記錄

esp_pzj 您好:

謝謝，剛剛問題已經解決。
但是如果，formA有個查詢button要秀formA_01
formA_01.Create(self);

這個formA_01查詢後按確定button，會將formA作整理。
formA.Show;
formA.PageControl1.ActivePage:=formA.TabSheet2;
formA.StatusBar1.Panels[1].Text := '瀏覽模式';
formA_01.Close;
發生一個錯誤訊息，如下。
Acess violation at address 00403231 in module 'CStock01.exe',Read of address 00000370

麻煩大家。thks

改用下列方式開起可以使用FormA上的元件

2.在frMain使用Button開起formA
procedure TfrMain.Button1Click(Sender: TObject);
begin
FormA:= TFormA.Create(self); //使用此方法就可以使用FormA上的元件
end;



===================引 用 t0288542 文 章===================
esp_pzj?您好:

謝謝，剛剛問題已經解決。
但是如果，formA有個查詢button要秀formA_01
formA_01.Create(self);

這個formA_01查詢後按確定button，會將formA作整理。
??????? formA.Show;
??????? formA.PageControl1.ActivePage:=formA.TabSheet2;
????????formA.StatusBar1.Panels[1].Text := '瀏覽模式';
??????? formA_01.Close;
發生一個錯誤訊息，如下。
Acess violation at address 00403231 in module 'CStock01.exe',Read of address 00000370

麻煩大家。thks

------
學藝不精 謝多多指教

 謝謝您。OK。
如果，frMain之前加上frlogin的登入畫面。
那可行嗎。
在frlogin中button如何去呼叫frMain呢。

麻煩大家。

這就要看的 main form   是那一個 form  及 frMain 和 frlogin 的「auto-create」、「 available 」怎麼設定。
設定不一樣 程式寫法就不一樣。

我的寫法是
main form 設 frMain
frMain 設 auto-create
frlogin 設 auto-create

開起 frMain 時 以 frlogin .ShowModal; 取得焦點
輸入 正確的 帳號 及 密碼 關閉 frlogin
輸入 錯誤的 帳號 及 密碼 無法關閉 frlogin 這個就達到 登入的功能了

以這種 方式設計 frlogin中button就可以呼叫frMain，不用特別設定。




===================引 用 t0288542 文 章===================
?謝謝您。OK。
如果，frMain之前加上frlogin的登入畫面。
那可行嗎。
在frlogin中button如何去呼叫frMain呢。

麻煩大家。

------
學藝不精 謝多多指教

thks。程式一執行出現錯誤訊息。如下，
Acess violation at address 00404577 in module
'CStock01.exe'.Read of address 00000000

請問frMain中呼叫frLogin是不是如下。
procedure TfrMain.FormCreate(Sender: TObject);
begin
frlogin.ShowModal;
end;

其他部份，我有依照您說方法去做。
thks。

這個錯誤因該是   frlogin  還沒建立 就被呼叫，我用下列方式解決：

1.先宣告一個全域 var log:Boolean; 判斷是否登入
2.
procedure TfrMain.FormCreate(Sender: TObject);
begin
log:=false;//初始設定，還沒登入
end;

3.
procedure TfrMain.FormActivate(Sender: TObject);
begin
if not log then
begin
frlogin.ShowModal; //show登入畫面
log:=true;// 已登入
end;
end;

我覺得這種方式不是很聰明，不過還是可以決解問題，不知有沒有其他高手有更好的寫方




===================引 用 t0288542 文 章===================
thks。程式一執行出現錯誤訊息。如下，
Acess violation at address 00404577 in module
'CStock01.exe'.Read of address 00000000

請問frMain中呼叫frLogin是不是如下。
procedure TfrMain.FormCreate(Sender: TObject);
begin
? frlogin.ShowModal;
end;

其他部份，我有依照您說方法去做。
thks。

------
學藝不精 謝多多指教

您好。還是發生相同錯誤訊息。
利用追踪發現錯誤出現在
procedure TfrMain.FormActivate(Sender: TObject);
begin
if not log then
begin
frlogin.ShowModal; //show登入畫面 －＞ 這一行
log:=true;// 已登入
end;
end;

麻煩您。thks

我將範例 貼上來 你下載 試看看吧！ http://delphi.ktop.com.tw/board.php?cid=31&fid=130&tid=89135

------
學藝不精 謝多多指教

esp_pzj 您好：

我將程式碼放上去。
我的環境是Delphi 2006 不知是否有差。

http://delphi.ktop.com.tw/board.php?cid=31&fid=130&tid=89138

麻煩您。thks

因該是版本的問題吧，我也不確定，我是用 delphi6，
我用別的方式 改寫 ，一樣也得到 登入的 功能 ，你參考看看吧！

http://delphi.ktop.com.tw/board.php?cid=31&fid=130&tid=89140


===================引 用 t0288542 文 章===================
esp_pzj?您好：

我將程式碼放上去。
我的環境是Delphi 2006 不知是否有差。

http://delphi.ktop.com.tw/board.php?cid=31&fid=130&tid=89138

麻煩您。thks

------
學藝不精 謝多多指教

謝謝esp_pzj。OK，辛苦您。