请教delphi开发中两 个简单问题…….

Question

请教delphi开发中两 个简单问题…….
1 :如何设置edit控件的掩码﹐即 输入密码 ﹐以*来代替 。
2 .﹐在一个窗体中﹐如何设置使按<回车键>后﹐光标按taborder的顺序自动跳入下一下控件。
我的另一张贴没结﹐有兴趣的请看一下。
http://community.csdn.net/Expert/topic/4244/4244137.xml?temp=.3025934
谢谢

Answer 1

1 .如何设置edit控件的掩码﹐即 输入密码 ﹐以*来代替 。
  edit1.PasswordChar:= '*';2 .在一个窗体中﹐如何设置使按<回车键>后﹐光标按taborder的顺序自动跳入下一下控件。  先设置form1的KeyPreview为True;
  再在form1的onkeypress事件中写：
  procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
  begin
   SendMessage(Form1.Handle,WM_NEXTDLGCTL,0,0);
  end;  

Answer 2

form的keypreview设置为true,然后在form的onkeypress里面写
if key=#13 then
  begin
    SetFocusedControl(FindNextControl(ActiveControl,true,true,true));
  end;

Answer 3

1、设置Edit的passwordchar属性为*
2、
procedure TForm1.editKeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key = #13 then
  begin
    Key := #0;
    Self.Perform(WM_NEXTDLGCTL,0,0)
  end;
end;

Answer 4

回復樓上﹕我是要求在按下<enter 后>按 tab order 順序跳到下個輸入窗口 ﹐這樣就不用用mouse 了﹐但你的是一按鎪磐就跳動﹐ 如何來檢測該按下的鍵是enter 呢 ﹖請指教 .........謝謝.....

Answer 5

上面漏了if key=#13;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
  begin
    if key=#13 then SendMessage(Form1.Handle,WM_NEXTDLGCTL,0,0);
  end;

Answer 6

procedure TF_Main.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    perform(CM_DialogKey,VK_tab,0)  
end;这样可以实现

Answer 7

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
  perform(WM_NEXTDLGCTL,0,0);
end;