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

如何從Console開啟表單

答題得分者是:aftcast
hitler
一般會員


發表:3
回覆:4
積分:1
註冊:2003-09-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-07-26 00:42:51 IP:125.229.xxx.xxx 訂閱
請問如何能在Console下 
開啟專案中Unit1裡面的Form1
請高手賜教
謝謝!!
boss.tw
高階會員


發表:15
回覆:109
積分:194
註冊:2005-05-17

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-07-27 13:16:05 IP:60.250.xxx.xxx 訂閱
目的是什麼?
改成 Form1 開啟 Console 如何
hitler
一般會員


發表:3
回覆:4
積分:1
註冊:2003-09-16

發送簡訊給我
#3 引用回覆 回覆 發表時間:2011-07-27 14:37:28 IP:125.229.xxx.xxx 訂閱
為了程式改版時可以方便跟著改版
aftcast
站務副站長


發表:81
回覆:1485
積分:1763
註冊:2002-11-21

發送簡訊給我
#4 引用回覆 回覆 發表時間:2011-07-28 02:51:38 IP:122.126.xxx.xxx 訂閱

[code cpp]
#include "Unit2.h"
#include

int main(int argc, char* argv[])
{
std::auto_ptr frm(new TForm2(0));
frm->Show();

extern bool gClosed;

while (1)
{
Application->ProcessMessages();
if (gClosed) break;
Sleep(1);

}
system("pause");
return 0;
}

[/code]



[code cpp]
bool gClosed = false;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm2::_btn1Click(TObject *Sender)
{
ShowMessage("hello");
}
//---------------------------------------------------------------------------

void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
gClosed = true;
}
//---------------------------------------------------------------------------

[/code]




===================引 用 hitler 文 章===================
請問如何能在Console下
開啟專案中Unit1裡面的Form1
請高手賜教
謝謝!!
------


蕭沖
--All ideas are worthless unless implemented--

C++ Builder Delphi Taiwan G+ 社群
http://bit.ly/cbtaiwan
hitler
一般會員


發表:3
回覆:4
積分:1
註冊:2003-09-16

發送簡訊給我
#5 引用回覆 回覆 發表時間:2011-07-30 09:36:21 IP:125.229.xxx.xxx 訂閱
謝謝aftcast的回覆!!
系統時間:2024-04-24 16:28:58
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!