N
nakoka
Unregistered / Unconfirmed
GUEST, unregistred user!
同上，谢谢！
Z
zhihuali
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = '.' then
begin
Key := #0;
Edit2.SetFocus;
end;
end;
begin
if Key = '.' then
begin
Key := #0;
Edit2.SetFocus;
end;
end;
Y
YNTW
Unregistered / Unconfirmed
GUEST, unregistred user!
TO zhihuali：
老大动作真快[
]
老大动作真快[
]
D
dadabox
Unregistered / Unconfirmed
GUEST, unregistred user!
唉﹐被先來的撿了便宜﹐就是照上面的來。
I
IUPRG
Unregistered / Unconfirmed
GUEST, unregistred user!
...
...
if Key = '.' then
begin
Key := #0;
Edit2.SetFocus;
edit1.text:=copy(edit1.text,1,length(edit1.text)-1);//edit1.text 去掉'.'
end;
end;
...
if Key = '.' then
begin
Key := #0;
Edit2.SetFocus;
edit1.text:=copy(edit1.text,1,length(edit1.text)-1);//edit1.text 去掉'.'
end;
end;
C
coolbaby
Unregistered / Unconfirmed
GUEST, unregistred user!
first is best!
Z
zhihuali
Unregistered / Unconfirmed
GUEST, unregistred user!
To : IUPRG
edit1.text:=copy(edit1.text,1,length(edit1.text)-1); // 画蛇添足 Key := #0 就是这个功能。
edit1.text:=copy(edit1.text,1,length(edit1.text)-1); // 画蛇添足 Key := #0 就是这个功能。
V
vine
Unregistered / Unconfirmed
GUEST, unregistred user!
是的
：）
先来的已经够了
还是标准答案！
：）
先来的已经够了
还是标准答案！
大
大智
Unregistered / Unconfirmed
GUEST, unregistred user!
在Edit1的KeyDown中，If Chr(Key)='.' Then Key=#0;设置如果为.则不显示,
H
hp_wang
Unregistered / Unconfirmed
GUEST, unregistred user!
onkeypree事件
B
bubble
Unregistered / Unconfirmed
GUEST, unregistred user!
第一个是最标准的答案,正是我想说的.习习.
Z
zyy04
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.