procedure TForm2.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if (not (Key in ['0'..'9'])) then Key := #0;
end;

我下了此段程式碼是為了只能輸入數字，但卻發現BACKSPACE的功能還有CTRL V的功能也消失了不知道有什麼方法可以開啟

改用keydown或keyup
這兩個才能取得Ctrl , Shift , Alt的訊息

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

case Key of
#0..#31:Result :=Key;
#48..#57:Result:=Key;
else
Result :=chr(0);
end;

下面這段代碼可以消除從剪貼板帶來非法輸入字符:

<textarea class="delphi" rows="10" cols="60" name="code"> uses ClipBrd; procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var Mgs: TMsg; procedure EatKey; begin PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE); end; begin if (ssCtrl in Shift) then case key of 86: begin if Clipboard.HasFormat(CF_TEXT) then try StrToInt(Clipboard.AsText); except EatKey end; end; 67: else EatKey; end else if not (Char(Key) in [#8, #13, #46, #48..#57, #96..#105]) then EatKey; end;</textarea>

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------