S
siso
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if chr(key)=#13 then begin
Edit1.text:=Edit1.text+#13#10; //我用这方法可得到回车符
end;
if chr(key)=#9 then begin
Edit1.text:=Edit1.text+#9; //可是却得不到TAB符，一按TAB就跳到别的控件了～
end;
end;
谢谢！
Shift: TShiftState);
begin
if chr(key)=#13 then begin
Edit1.text:=Edit1.text+#13#10; //我用这方法可得到回车符
end;
if chr(key)=#9 then begin
Edit1.text:=Edit1.text+#9; //可是却得不到TAB符，一按TAB就跳到别的控件了～
end;
end;
谢谢！