線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1397
推到 Plurk!
推到 Facebook!

如何在程式執行中改Timer裡面的lnterval值??

答題得分者是:hipig
鴻760121
一般會員


發表:8
回覆:10
積分:3
註冊:2008-06-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-07-26 20:02:11 IP:125.231.xxx.xxx 未訂閱
我有一個影像抓圖的程式 他裡面有用一個Timer 是用來抓圖的間格

我想用Timer去控制 抓圖的時間

想在程式跑的時候 控制 lnterval 的值

用Edit 可以控制嗎??要怎麼寫??

hipig
高階會員


發表:31
回覆:75
積分:111
註冊:2007-01-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-07-28 01:45:22 IP:220.133.xxx.xxx 未訂閱

[code cpp]
void __fastcall TForm1::Button1Click(TObject *Sender)
{
bool TryKeyIn = false;
try
{
StrToInt(Edit1->Text);
TryKeyIn = true;
}
catch(Exception &E)
{
TryKeyIn = false;
AnsiString Message = "Only input number...\nCant input \" " Edit1->Text " \"";
Application->MessageBox(Message.c_str(), Caption.c_str(),
MB_OK MB_ICONSTOP MB_TOPMOST);
return;
}

if(TryKeyIn)
{
Timer1->Enabled = false;
Timer1->Interval = StrToInt(Edit1->Text);
Timer1->Enabled = true;
}
}

[/code]
鴻760121
一般會員


發表:8
回覆:10
積分:3
註冊:2008-06-15

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-07-28 09:25:34 IP:125.231.xxx.xxx 未訂閱
不知道 可否請這位高手 解釋一下程式

我好多東西看不懂 真糟糕@@
tomoi
初階會員


發表:2
回覆:30
積分:41
註冊:2008-07-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-07-31 16:22:34 IP:59.120.xxx.xxx 訂閱

===================引 用 hipig 文 章===================

[code cpp]
void __fastcall TForm1::Button1Click(TObject *Sender)
{
bool TryKeyIn = false;
try//先看Edit1裡是不是輸入數字,如果不是StrToInt會失敗而跳到catch
{
StrToInt(Edit1->Text);
TryKeyIn = true;
}
catch(Exception &E)//就是跳出一個警告訊息囉
{
TryKeyIn = false;
AnsiString Message = "Only input number...\nCant input \" " Edit1->Text " \"";
Application->MessageBox(Message.c_str(), Caption.c_str(),
MB_OK MB_ICONSTOP MB_TOPMOST);
return;
}

if(TryKeyIn)
{
Timer1->Enabled = false;
Timer1->Interval = StrToInt(Edit1->Text);//你要問的答案就在這
Timer1->Enabled = true;
}
}

[/code]

防呆也是很重要的: )
------
Tomo
鴻760121
一般會員


發表:8
回覆:10
積分:3
註冊:2008-06-15

發送簡訊給我
#5 引用回覆 回覆 發表時間:2008-07-31 17:07:32 IP:125.231.xxx.xxx 未訂閱
謝謝~!
我就是 只看的懂 最下面那三行 其它都看不懂
tomoi
初階會員


發表:2
回覆:30
積分:41
註冊:2008-07-14

發送簡訊給我
#6 引用回覆 回覆 發表時間:2008-07-31 21:47:34 IP:220.139.xxx.xxx 訂閱
我本來也看不懂
貼到自己的程式用debug mode跑一次就看懂了 : )

===================引 用 鴻760121 文 章===================
謝謝~!
我就是 只看的懂 最下面那三行 其它都看不懂
------
Tomo
系統時間:2024-03-29 9:16:51
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!