引言: 各位好 小弟初學BCB 遇到一個問題 我在一個Form Onshow的事件中 做了一些判斷 如果判斷沒有過 我要把這Form給Close 可是 訊息顯示 無法在Onshow Onhide 下Close()的指令 請問我該怎麼做呢?! 發表人 - jimmyliu97 於 2004/10/22 11:08:29

jimmyliu97你好： 應該是可以的： < class="code"> void __fastcall TForm1::FormShow(TObject *Sender) { if (!FileExists("C:\\test.txt")) Close(); } 不曉得你的問題？還是你要post一下你的source code?

引言: 剛剛忘記說的詳細些 我是做了個TrayIcon的程式 在點選Menu選單後 會Show其中一個Form 在Form的OnShow事件中 加上這段判斷 會出現下面的訊息 而Form依然會顯示出來 我的目的是要將其Close PS:不好意思 圖案上傳不了 他會秀出 Cannot change Visible in Onshow or OnHide.

// Unit1.cpp
#include 
#pragma hdrstop    #include "Unit1.h"
#include "Unit2.h"    #pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;    __fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}    void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Form2 = new TForm2(this);
  Form2->Visible = TRUE;
}    ///////////////////////////////////////////////    // Unit2.cpp    #include 
#pragma hdrstop    #include "Unit2.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;    __fastcall TForm2::TForm2(TComponent* Owner)
  : TForm(Owner)
{
}    void __fastcall TForm2::FormShow(TObject *Sender)
{
  Close();
}    void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
  Action = caFree;
}    

引言: 會發生這種錯誤是因為你所關閉的form不是主form, 若是主form則m8815010所用的方法就可以了, 所以你的程式可以改為如下:

// Unit1.cpp
#include 
#pragma hdrstop    #include "Unit1.h"
#include "Unit2.h"    #pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;    __fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}    void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Form2 = new TForm2(this);
  Form2->Visible = TRUE;
}    ///////////////////////////////////////////////    // Unit2.cpp    #include 
#pragma hdrstop    #include "Unit2.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;    __fastcall TForm2::TForm2(TComponent* Owner)
  : TForm(Owner)
{
}    void __fastcall TForm2::FormShow(TObject *Sender)
{
  Close();
}    void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
  Action = caFree;
}    

其中主form 為 Form1, 而Form1上的Button1按下後會動態產生 Form2, 若用上方的寫法就可以在Form2 的 OnShow 下Close().

引言: jimmyliu97你好： 應該是可以的： < class="code"> void __fastcall TForm1::FormShow(TObject *Sender) { if (!FileExists("C:\\test.txt")) Close(); } 不曉得你的問題？還是你要post一下你的source code? < face="Verdana, Arial, Helvetica"> m8815010 謝謝您的回應 我用您的這段Code也是會發生相同的問題 就用您這段Code吧 我只是很簡單的判斷 if (!FileExists("C:\\test.txt")) Close(); } 剛剛忘記說的詳細些 我是做了個TrayIcon的程式 在點選Menu選單後 會Show其中一個Form 在Form的OnShow事件中 加上這段判斷 會出現下面的訊息 而Form依然會顯示出來 我的目的是要將其Close PS:不好意思 圖案上傳不了 他會秀出 Cannot change Visible in Onshow or OnHide. [/quote] jimmyliu97你好： 不是很瞭解你的程式，可能要全部> >!