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

在edit中限定長度

尚未結案
suntao008
一般會員


發表:70
回覆:38
積分:21
註冊:2003-10-19

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-10-20 13:24:19 IP:61.155.xxx.xxx 未訂閱
在form中設定edit1、edit2、edit3,設定edit1為10時,edit2andedit3只能輸入10字符,敬請指教!!! sos!!!
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-10-20 14:05:37 IP:210.243.xxx.xxx 未訂閱
引言: 在form中設定edit1、edit2、edit3,設定edit1為10時,edit2andedit3只能輸入10字符,敬請指教!!! sos!!!
在edit1的onchange事件寫 edit2.maxlength:=strtoint(edit1.text); edit3.maxlength:=strtoint(edit1.text); 發表人 - hahalin 於 2003/10/20 16:30:55
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-10-20 14:10:43 IP:63.84.xxx.xxx 未訂閱
您好﹗    不知道有沒有誤解您的問題﹗ 先設定Edit1的maxLength為10﹐然后只需要在Form的OnActivate事件中加入以下程式碼即可﹕
procedure TForm1.FormActivate(Sender: TObject);
begin
  Edit2.MaxLength := Edit1.MaxLength;
  Edit3.MaxLength := Edit1.MaxLength;
end;
參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟
------
忻晟
guohua_fu
一般會員


發表:44
回覆:50
積分:18
註冊:2003-06-19

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-10-20 14:34:53 IP:211.96.xxx.xxx 未訂閱
在Edit1的Properties內將MaxLength的默認0改為10即可; jacky
------
jacky
系統時間:2024-05-19 14:42:18
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!