子窗体不能接受回车按键??
procedure TForm3.LabeledEdit1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
  if key=13 then
    showmessage('按下回车就等于执行按下Tab键');
end;end.我在窗体上放了一个panel1,algin:=alLeft,
其它的labledEdit控件就是放在这个panel1上面,是不是这个panel引起不能触方按键的事件。
keydown和keypress(只要是回车 key=13 都没有反应)????是不是这个原因。
如果是这个原因,怎么解决??  
问题:
1.子窗体不能接受回车按键??(一点反应也没有)
2.如何实现按下回车之后就相当于按于Tab按键??

解决方案 »

  1.   

    將窗體的keypreivew屬性設為true
      

  2.   

    子窗体keypreivew:=true
    然后在子窗体的keydown中写:
    if key=13 then
        showmessage('按下回车就等于执行按下Tab键');
      

  3.   

    procedure TForm3.LabeledEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
       if key=13 then
          showmessage('ok');end;
    我将子窗体的keyview设为:true
    还是不行??
      

  4.   

    procedure TForm3.LabeledEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
      showmessage(inttostr(key));
      if key=65 then
         showmessage('ok');end;
    把 key=65 等键就可以执行!!]
    把key=13 (回车键)就没有反应?? 怎么回事??
    如何解决??
      

  5.   

    procedure TForm3.LabeledEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
       if key=13 then
          SelectNext(TWinControl(sender),true,true);
    end;
      

  6.   

    大哥,key=13,一点反应也没有??
      

  7.   

    procedure TForm1.CreateMDIChild;
    var
     Child:TForm3;
    begin
     Child:=TForm3.Create(self);
    end;procedure TForm1.SpeedButton1Click(Sender: TObject);
    begin
       CreateMDIChild;
    end;
    end.我先把这个设为不自动建立.然后
    这个子窗体是按下主窗体的speedbutton按钮后,创立的.我觉得原因就来自这个问题。
    但是不知道怎么解决??