子窗体不能接受回车按键??
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按键??
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按键??
然后在子窗体的keydown中写:
if key=13 then
showmessage('按下回车就等于执行按下Tab键');
Shift: TShiftState);
begin
if key=13 then
showmessage('ok');end;
我将子窗体的keyview设为:true
还是不行??
Shift: TShiftState);
begin
showmessage(inttostr(key));
if key=65 then
showmessage('ok');end;
把 key=65 等键就可以执行!!]
把key=13 (回车键)就没有反应?? 怎么回事??
如何解决??
Shift: TShiftState);
begin
if key=13 then
SelectNext(TWinControl(sender),true,true);
end;
var
Child:TForm3;
begin
Child:=TForm3.Create(self);
end;procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
CreateMDIChild;
end;
end.我先把这个设为不自动建立.然后
这个子窗体是按下主窗体的speedbutton按钮后,创立的.我觉得原因就来自这个问题。
但是不知道怎么解决??