procedure tform1.edit1keypress(sender: tobject; var key: char); //控制edit1的輸入數字
varp:integer;
begin
//限制只能輸入數字，小數點，負號
if not (key in ['0'..'9', '.','-',#8, #13]) then
begin
key := #0;
end;
//如果是小數，小數點前面只能輸入乙個零
if key = '0' then
begin
if (leftstr(edit1.text,1) ='-') and (midstr(edit1.text,2,1) = '0') and (length(edit1.text) = 2) then
begin
key:=#0;
end//如果第一位是零，則零只能輸入一次
else if (leftstr(edit1.text,1) = '0') and (length(edit1.text) = 1) then
begin
key:=#0;
endend
//限制只能輸入乙個小數點,且只能在第二個位置開始
else if key = '.' then
begin
if edit1.selstart = 0 then
key := #0;
p := pos('.', edit1.text);
if p > 0 then
key := #0;
end//限制只能在第乙個，且只能輸入乙個負號
else if key = '-' then
begin
if edit1.selstart > 0 then
key := #0;
p := pos('-', edit1.text);
if p > 0 then key := #0;
end;
end;
Delphi中限制文字框 TEdit 只能輸入數字
delphi中限制文字框 tedit 只能輸入數字 軟體技術 procedure tform1.edit1keypress sender tobject var key char varedt tedit str,strl,strr string p integer begin 獲取當前文字內容,注...
如何去掉delphi中的輸入法
在使用delphi開發程式時，經常會不注意的將edit或者memo等一些可以設定輸入法的控制項新增上自己電腦安裝的輸入法資訊，此時如果使用者的機器上沒有此輸入法則會產生意外的問題，所以及時的將輸入法資訊消除才可以。如何消除輸入法資訊呢？有兩種方法一種是使用鉤子的方法，一種是將最後的所有檔案中的 df...
用Delphi模擬鍵盤輸入
在windows大行其道的今天，windows介面程式受到廣大使用者的歡迎。對這些程式的操作不外乎兩種，鍵盤輸入控制和滑鼠輸入控制。有時，對於繁雜的，或重複性的操作，我們能否通過編制程式來代替手工輸入，而用程式來模擬鍵盤及滑鼠的輸入呢？答案是肯定的。這主要是通過兩個api函式來實現的。下面以delp...