1樓:
onchange事件
procedure tform1.edt1change(sender: tobject);
vars:string;
i,len:integer;
begin
s:=trim(edt1.text);
len:=length(s);
for i:=0 to len do
begin
if s[i] in ['0','1','2','3','4','5','6','7','8','9'] then
begin
end else
begin
showmessage('');
edt1.text='';
edt1.setfocus;
end;
end;
end;
2樓:匿名使用者
在button『確定』的button1click事件裡寫procedure tform1.button1click(sender: tobject);
varstr:string;
i,len:integer;
begin
str:=trim(edit1.text);
len:=length(str);
if len > 0 then
for i:=1 to len do
begin
if not (str[i] in ['0'..'9']) thenbegin
edit1.text :='';
showmessage('請輸入數字');
edit1.setfocus;
break;
end;
end;
end;
3樓:匿名使用者
if not (key in ['0'..'9',#13,#8]) then
begin
showmessage('您輸入的是非數字');
tedit(sender).setfocus;
tedit(sender).clear;
end;
delphi中的窗體怎麼取得焦點
4樓:匿名使用者
窗體名.active:=true;
delphi 中焦點問題: 使用者名稱:密碼: 我要實現焦點的切換,就是滑鼠點選哪個,焦點在**,**等
5樓:匿名使用者
在資料編輯元件中,焦點就是那個閃動的小豎線,可以通過**來轉移如edit.setfouce,也可以通過滑鼠點選來轉移.,你要通過滑鼠點來轉移焦點,這就不需要寫**了.
excel文件中的單元格,你用滑鼠點選那一個單元格,那個單元格就可以輸入字元,是一樣的.
6樓:知道凸凹
應該不是點選,而是移動吧。
如果是這樣,就應該跟蹤edit的mousemove事件(記不清了),在這個事件裡寫
edit.setfouce。
7樓:艾三毛
我也沒明白,因為你滑鼠點哪個,焦點本來就會自動跳到哪個啊?
8樓:匿名使用者
預設就是點選就自動指定焦點的,你是不是要獲取焦點啊?
delphi使焦點固定到一個button上
9樓:至少讓我看一眼
請問你是否是指當使用者按下回車時執行button2的onclick事件。
如果是這樣的話。你只需要將button2的default屬性設定為true即可。
如果你是要讓button2一直獲取焦點可以在button2的onexit事件中這樣寫:
procedure tform1.button2exit(sender: tobject);
begin
activecontrol := button2;
end;
並且在formcreate中
procedure tform1.formcreate(sender: tobject);
begin
activecontrol := button2;
end;
不過不建議這樣做.因為這樣會讓視窗上的文字框無法輸入文字的。
10樓:眾口說車
button2的onexit 事件裡寫入
button2.setfocuse;
在form的oncreate事件裡寫入
button2.setfocuse;
11樓:匿名使用者
在所有的edit控制元件的onkeypress事件中寫上
if key=#13 then button1.setfocus;
delphi的焦點問題
12樓:匿名使用者
edit2.setfocus本身沒有錯誤;但是要記住:edit2所在的視窗必須先顯示出來,這句**就不會出錯.
比如:form2.show;
edit2.setfocus;按這個順序就不會出錯;
而edit2.setfocus;
form2.show;這個順序肯定報錯.
13樓:匿名使用者
在設計階段:
選 project -> view source將 form2 拖到 form1 的 前面(讓它在 form1前建立),然後:
form1:
procedure tform1.formshow(sender: tobject);
begin
form2.show;
form1.hide;
end;
form2:
procedure tform2.formshow(sender: tobject);
begin
edit1.setfocus;
end;
delphi7中IF語句的使用,請教 delphi的if語句中的or或and語句怎麼用啊?
if strtoint edit6.text 5 then begin messagedlg edit3.text 已達到借閱上限 mterror,mbok 0 endelse begin trywith adoquery1 do begin sql.clear sql.add insert int...
delphi的函式問題,delphi 語言
leftstr a 改。var x,a string x leftstr a,3 看你用這個函式肯定是從vb轉過來的,delphi必須在使用變數前用var定義,vb可以不用通過dim而自動定義的。請大家解釋一下delphi的 函式 你去這個地址看一下 推薦答案已經很好的,只對最後一句說說咱的認識 常...
android EditText焦點問題
根據你的描述,思路如下 首先你要有資料存放,以便首次記錄edittext1的資料後,再次登入能知曉edittext1已經有輸入值,以此作判定是否給edittext1焦點。資料操作有很多,無論是用資料庫還是xml都行。最簡單的辦法是在edittext前面放置一個看不到的linearlayout,讓他率...