delphi輸入焦點問題,delphi中的窗體怎麼取得焦點

時間 2022-09-12 23:25:18

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,讓他率...