移動物件焦點的流程迷思 PART-II |
|
|
|
039917
一般會員   發表：9 回覆：16 積分：5 註冊：2003-09-14 發送簡訊給我 |
移動物件焦點的流程迷思 PART-II procedure TForm1.ApdTapiDevice1TapiDTMF(CP: TObject; Digit : Char;
ErrorCode: Integer);
Begin
s := s key;
if Edit1.Focused then
begin
if length(s) = 2 then
begin
s := '';
edit2.SetFocus;
end;
end
else
if Edit2.Focused then
begin
if length(s) = 4 then
begin
s := '';
edit3.SetFocus;
end;
end
else
if Edit3.Focused then
begin
if length(s) = 9 then
begin
s := '';
edit4.SetFocus;
end;
end
else
if Edit4.Focused then
begin
if length(s) = 7 then
begin
s := '';
edit5.SetFocus;
end;
end
else
if Edit5.Focused then
begin
if length(s) = 4 then
begin
s := '';
end;
end;
end; 如果各位大人有更好的解決方式也請不吝告知
P.S. 也感謝Chance36 .pedro.兩位大人指導
|
|
pedro
尊榮會員  發表：152 回覆：1187 積分：892 註冊：2002-06-12 發送簡訊給我 |
|
|
039917
一般會員 發表：9 回覆：16 積分：5 註冊：2003-09-14 發送簡訊給我 |
發表時間：2004-07-08 02:27:12
IP:61.30.xxx.xxx 未訂閱
系統時間：2024-06-29 17:47:44
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |