用intraweb開發程式中的iwDbedit中如何控制keypress事件 |
|
尚未結案
|
|
wuherong2000
一般會員   發表：26 回覆：21 積分：9 註冊：2003-06-16 發送簡訊給我 |
用intraweb寫的程式如何在iwDbedit中控制輸入即我要實現在iwDbedit中輸入0800或080000自動變成08:00:00請問要怎麼寫呢，在html中可以用如下方法實現
iwedttime.keypress=fill(value);
function fill(value);
{
if (value.length=2)
{
f1.iwedttime.value=f1.iwedttime.vlaue ":";
}
if (value.length=5)
{
f1.iwedttime.value=f1.iwedttime.vlaue ":";
}
if (value.length=8)
{
f1.iwedtother.focus
}
return true
}
但我用這種方法寫在iwedttime的scriptEvent屬性的onKeyPress中時卻腳本產生錯誤，不能執行，請問要如何寫呢
|
|
kakene
一般會員 發表：22 回覆：52 積分：19 註冊：2003-01-07 發送簡訊給我 |
我都是用下面這種方法,請參考看看,
不知道其他大大有沒有更好的方法可以參考
procedure TDataModule1.ADOQ_TimeGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if Sender.AsString <> '' then
Text := (copy(Sender.AsString,1,2) ':' copy(Sender.AsString,3,2)
':' copy(Sender.AsString,5,2));
end; procedure TDataModule1.ADOQAfterOpen(DataSet: TDataSet);
begin
DataSet.FieldByName('Time1').OnGetText := ADOQ_TimeGetText;
end;
|
|
code6421
版主  發表：43 回覆：223 積分：208 註冊：2002-08-16 發送簡訊給我 |
|
|
kakene
一般會員 發表：22 回覆：52 積分：19 註冊：2003-01-07 發送簡訊給我 |
|
|
wuherong2000
一般會員 發表：26 回覆：21 積分：9 註冊：2003-06-16 發送簡訊給我 |
|
|
Ktop_Robot
站務副站長 發表：0 回覆：3511 積分：0 註冊：2007-04-17 發送簡訊給我 |
發表時間：2004-05-03 13:11:52
IP:61.145.xxx.xxx 未訂閱
系統時間：2024-05-04 8:55:19
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |