Sender 的應用:所有Edit共用一個過濾格式 (轉)
Sender 的應用:所有Edit共用一個過濾格式 (轉)[@more@]
1. 所有的Edit 都只允許輸入數字,即只可以輸入一次小數點
2. 不想對多達幾十個的Edit 都寫onKeyPress 事件
那你就寫一個,其它的全部在 Inspector 中指向這一個:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
IntCompIdx: Integer;
stText: string;
begin
if (Ord(Key) = 46) then
begin
IntCompIdx := (Sender as TEdit).ComponentIndex;
stText := TEdit(Components[IntCompIdx]).Text;
if Pos('.', stText) > 1 then
Key := #0;
end;
end;
如果不覺得難看的話也可以不用變數:
if (Ord(Key) = 46) and
(Pos('.', TEdit(Components[(Sender as TEdit).ComponentIndex]).Text) > 1)then
Key := #0;
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752019/viewspace-982747/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 過濾器應用【編碼、敏感詞、壓縮、轉義過濾器】過濾器
- 一個過濾重複資料的sql語句(轉)SQL
- Redis 應用-布隆過濾器Redis過濾器
- 布隆過濾器的原理及應用過濾器
- 如何快速過濾出一次請求的所有日誌?
- 一個行轉列的應用
- 如何用一個 Excel 過濾另一個 ExcelExcel
- 一個使用snap的Web應用 (轉)Web
- 微軟的一個補丁,讓所有的應用當機,可怕微軟
- 多個model共用一個service可以嗎
- 協同過濾在推薦系統中的應用
- 如何一鍵退出所有應用程式?
- ADO & ADO.NET中使用儲存過程的兩個共用的函式 (轉)儲存過程函式
- 一個檔案系統過濾驅動的demo
- Android鬼點子 一個帶指示的EditAndroid
- 一個金融應用專案的總結 (轉)
- 一個Flask應用執行過程剖析Flask
- 去掉Query無用的過濾InfoObjectObject
- 推薦一個markdown格式轉html格式的開源JavaScript庫HTMLJavaScript
- 一個殺死終端所有程式的 Shell(轉)
- FreeBSD上用IP Filter進行橋過濾(轉)Filter
- WAD通過行選擇過濾另一個ITEM的資料
- 用 tr 過濾檔案
- 能不能兩張表共用一個INDEXIndex
- 具有edit功能的combobox (轉)
- 刪除所有格式不符合的檔案(轉)
- TableTools Export Excel前Table內容格式的轉換應用ExportExcel
- Shell的五個小應用(轉)
- 用Tcpdump過濾資料包TCP
- 開源了一個 JavaScript 版敏感詞過濾庫JavaScript
- BCB高手進階 (十)用Sender引數實現程式碼重用 (轉)
- vue 透過過濾器格式化時間ios出現NaN的問題Vue過濾器iOSNaN
- Owner,Parent,Self,Sender,Clientheight,Height(轉)client
- 過濾Servlet--過濾器Servlet過濾器
- struts中配置過濾檔案! (轉)
- 矩陣分解在協同過濾推薦演算法中的應用矩陣演算法
- 【轉】設計一個iOS應用的本地快取機制iOS快取
- 檢視一個User所有物件佔用的空間大小物件