1樓：匿名使用者
給我郵箱。我給你，我有函式
delphi中 怎麼設定 edit 文字框只允許輸入阿拉伯數字?輸入其它字元時,內容輸入不上
2樓：見習書生
procedure tform1.edit1keypress(sender: tobject; var key: char);
begin
if (not (key in ['0'..'9', #8]) or (leftstr(edit1.text + key, 1)= '0') then
begin
key:= #0;
end;
end;
只允許輸入數字, 且第一位不能為零..
delphi裡的edit框中如何讓數字從右往左輸入啊
3樓：匿名使用者
edit本身沒有這個功能，可以變通一點，設定edit右對齊，然後每次輸入後把游標移動到最左則，然後通過keypress控制只允許輸出數字，**如下：
procedure tform1.formcreate(sender: tobject);
varchargerstyle:integer;
begin
chargerstyle:=getwindowlong(remark.handle,gwl_style);
chargerstyle:=chargerstyle and(not es_left)and(not es_center)or es_right;
setwindowlong(remark.handle,gwl_style,chargerstyle);
end;
procedure tform1.remarkkeypress(sender: tobject; var key: char);
begin
if not(key in['0'..'9',#8]) then begin
key:=#0;
end;
end;
procedure tform1.remarkchange(sender: tobject);
begin
remark.selstart:=0;
end;
效果如下：
delphi怎麼控制edit中只能輸入數字？？
4樓：匿名使用者
你可以先將你抓到的包儲存到檔案 主要**： /* **函式，用來處理資料報 */ void packet_handler(u_char *dumpfile, const struct pcap_pkthdr *header, const u_char *pkt_data) { /* 儲存資料報到堆檔案 */ pcap_dump(dumpfile, header,
5樓：龍氏風采
首先，在delphi裡面控制edit只能輸入數字的方法如下：
if not (key in ['0'..'9',#8]) then key := #0;只能輸入漢字，而不能輸入數字或其他字元.
在edit的onkeypress事件中
procedure tform1.edit1keypress(sender: tobject; var key: char);
begin
if (ord(key)127) then
key:=#0;
end;
擴充套件一下回答：如果要使一文字框中只可輸入數字,而且當輸入的數字錯誤時還可以通過backspace鍵來修改.
由於backspace的ascii值是8，所以像以下這樣即可
if (key>#46) and ((key #48) or (key > #57)) and (key > #8) then
//如果輸入不是數字或小數點（#46代表小數點）
begin
key:=#0; //取消輸入的內容（#0代表空值）
showmessage('輸入錯誤!請輸入數字!'); //發出提示資訊
end;.
6樓：匿名使用者
在除錯執行的時候是delphi捕獲的異常，會有提示框，執行exe檔案的時候就不關delphi的事了，所以就沒有提示框了。
這樣寫最簡單：
procedure tform1.edit1keypress(sender: tobject; var key: char);
begin
if not (key in ['0'..'9', #8, #13]) then
begin
key := #0;
showmessage('只能輸入數字');
end;
end;
delphi edit只輸入數字
7樓：匿名使用者
你可以先將你抓到的包儲存到檔案 主要**： /* **函式，用來處理資料報 */ void packet_handler(u_char *dumpfile, const struct pcap_pkthdr *header, const u_char *pkt_data) { /* 儲存資料報到堆檔案 */ pcap_dump(dumpfile, header,
8樓：匿名使用者
我用的是delphi7.
在tedit的onkeypress事件寫上
if not (key in ['0'..'9',#13]) then key :=#0;
9樓：匿名使用者
我用的是delphi 2007+delphi 2009(僅看看而已-_-)
其實delphi 2009 的tedit控制項裡已經有這個屬性了，就是edit1屬性欄中的 numbersonly 屬性改為true就可以了。
delphi 如何製作個可以針對某個程式的edit框傳送資料
10樓：匿名使用者
兩個方法
通過先找窗體控制代碼，再一層一層直到找到edit控制代碼
有edit框的程式啟動後，自動把自己所有edit的控制代碼寫到乙個配置檔案中，後面那個程式去讀配置檔案好了
在DELPHI中怎麼讓edit輸入的只能是中文
這個用正規表示式比較好！對於限制使用者輸入最好是採用正規表示式來限制。以上的答案根本不能正確的驗證身份證的正確如否！在keypress下寫 判斷長度不能大於18 if length edit1.text 18 thenkey 0 if length edit1.text 18 thenif not ...
delphi中如何讓edit1tet只能輸入數字和字母
你可以先將你抓到的包儲存到檔案 主要 函式，用來處理資料報 void packet handler u char dumpfile,const struct pcap pkthdr header,const u char pkt data 儲存資料報到堆檔案 pcap dump dumpfile,h...
delphi中，如何在SQL中使用編輯框中輸入的引數
一般來說有兩種方式 qry 為tquery 型別 1 拼接字串方式 qry.sql.clear qry.sql.add select from aa where id trim edit1.text 假定edit1.text是數字 qry.prepared qry.open 2 傳參方式 qry.s...
在Delphi中如何實現資料的更新，更新結果在dbgrid中
和連線sqlserver 是一樣的寫法，只是資料連線控制項是用adoquery var userid,password string begin userid edit1.text password edit2.text with adoquery1 do begin edit adoquery1u...
在平時如何在家保養自己的頭髮，如何在家自己護理頭髮
乾性頭髮應該怎麼護理，你知道嗎？1 洗頭髮的時候最好是順著頭髮洗，必須照顧到頭皮 髮根，透過手指對頭皮進行按壓，以促進頭部的血液迴圈，改善皮脂的分泌。2 洗髮後最好先用幹毛巾將頭髮包住或輕拍將水分擠乾，切記千萬不要用力搓揉頭髮，這樣會使頭髮互相摩擦，傷害髮質。使用吹風機的方式是，將吹風機高舉，順著頭...