限制TEdit內只能輸入數字值
----KeyPress事件------
if not (key in['0'..'9',#8]) then key:=#0; //(#8爲BackSpace鍵)
彈出式對話框
--------------------
if Application.MessageBox('確認操作?', '提示',MB_YESNO+MB_ICONINFORMATION)=IDYES then
begin
xxxxxxxxxxxxxxxxxx;
end;
2009-11-04