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

Button 程式互相聯結或共用

尚未結案
SoEasy
一般會員


發表:2
回覆:5
積分:1
註冊:2006-09-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-10-04 17:26:28 IP:61.65.xxx.xxx 訂閱

請問如何在執行 Button 1 時, 可以共用 Button 2 內程式共用, 而再回傳結果資料回 Button 1 之後段程式繼續判斷執行?

Button 1 為下參數列表

Button 2 為主程式 (公用程式) 及回傳結果。

會有這樣的作法為不想將程式變成繁長且重覆同樣的動作, 想作為主程式及副程式呼叫的效果。

harrypp
中階會員


發表:7
回覆:124
積分:61
註冊:2006-08-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2006-10-04 17:45:30 IP:210.68.xxx.xxx 未訂閱
直接
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Button2Click(Sender);
}



不過為什麼不把兩個Button呼叫同個附程式?如下
Button1Click()
{
function();
}
Button2Click()
{
function();
}
SoEasy
一般會員


發表:2
回覆:5
積分:1
註冊:2006-09-05

發送簡訊給我
#3 引用回覆 回覆 發表時間:2006-10-04 19:07:52 IP:61.65.xxx.xxx 訂閱

請教前輩

不好意思, 請教一下有關您指的 "Function" 這部份要怎麼定義呢?

因為不知道該怎麼做這一段? 麻煩您, 謝謝!

daniel__lee
高階會員


發表:18
回覆:124
積分:113
註冊:2002-11-10

發送簡訊給我
#4 引用回覆 回覆 發表時間:2006-10-04 19:45:36 IP:59.120.xxx.xxx 未訂閱

在.h檔中加入

void __fastcall YourFunction();

在.cpp檔加入

void __fastcall TMainForm::YourFunction()
{

//..

}

------
~ 勿在浮沙上面築高塔 ~
SoEasy
一般會員


發表:2
回覆:5
積分:1
註冊:2006-09-05

發送簡訊給我
#5 引用回覆 回覆 發表時間:2006-10-05 07:53:20 IP:61.65.xxx.xxx 訂閱

謝謝前輩 harrypp 及 daniel__lee 的用心指導,

我會試試看的,

萬分感謝及感恩 !

SoEasy
一般會員


發表:2
回覆:5
積分:1
註冊:2006-09-05

發送簡訊給我
#6 引用回覆 回覆 發表時間:2006-10-05 11:08:09 IP:61.65.xxx.xxx 訂閱

很抱歉, 因為我學藝不精, 所以會問一些很淺顯的問題

再請教前輩, 依據您上述的內容新增後出現一段訊息問題,

E2090 Qualifier 'TMainForm' is not a class or namespace name

請問應該要怎麼解決這個問題? 再次麻煩您, 謝謝 !

aftcast
站務副站長


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

發送簡訊給我
#7 引用回覆 回覆 發表時間:2006-10-05 11:48:59 IP:61.229.xxx.xxx 未訂閱
void __fastcall TMainForm::YourFunction() // 把TMainForm這個字換成TForm1應該就可以。

那個地方就是要貼入你主form的名稱,預設叫TForm1,但樓上的應該習慣改成自己的名稱叫TMainForm。

總之,看你的情形如何,要自己判別,不能光是抄。最好還是理解一下原理~

蕭沖 qs.xiao@gmail.com
http://aftcast.blogspot.com/
生有涯而知無涯,以有涯隨無涯,殆矣
------


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

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


發表:2
回覆:5
積分:1
註冊:2006-09-05

發送簡訊給我
#8 引用回覆 回覆 發表時間:2006-10-05 11:53:57 IP:61.65.xxx.xxx 訂閱

感謝前輩的教誨

本人小弟由於不甚明白原理, 而會有如此下問

經前輩提起, 我應該要好好學習才是

SoEasy
一般會員


發表:2
回覆:5
積分:1
註冊:2006-09-05

發送簡訊給我
#9 引用回覆 回覆 發表時間:2006-10-05 13:58:33 IP:61.65.xxx.xxx 訂閱

不好意思, 小弟不才

是否有這方面的資訊可供參考及學習 ?

因為我做了, 但好像有問題, 會將我新增的 Function 自動移除 ?

似乎沒有定義到

再次麻煩各位前輩, 謝謝 !

系統時間:2024-11-23 11:52:45
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!