关于父窗体获取子窗体 确定按钮的捕捉

[crazy_boom]

delphi 7
问题描述：
在父窗口中 创建了子窗口。 我在子窗口上的一个编辑框中输入文字后 按回车
后如何回到父窗口 并获取子窗口中的 编辑框中的文字内容。

var sss : string ;

frm_abc := Tfrm_abc.Create(application);
try
with frm_abc do
begin
mc.Text := cdsmx.fieldbyname('mc').AsString ;
edt1.text:='' ;
ShowModal;
if 在子窗口中的 edt1.text 中输入文字后按回车后 then
sss := edt1.text ; //
end ;
finally
frm_abc.free ;
frm_abc := nil ;
end ;

[lyhoo163]

在Edit的onchange事件中处理，当录入的字符是回车符时，收text保存粘贴板中，同时退出子窗口。

[ron_xin]

procedure TForm2.edt1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
  begin
    ModalResult :=mrOk;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var sss : string ;
begin
    Form2 := TForm2.Create(application);
    try
       with Form2  do
       begin
        mc.Text := 'test';
        edt1.text:='' ;
        if Form2.ShowModal=mrOk then
          sss :=  edt1.text ;  //
       end ;
    finally
       Form2.free ;
       Form2 := nil ;
    end ;
end;

[日月路明]

用回调函数实现

[lyhoo163]

procedure TMDI_1_Frm.DBEdit3KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 // 保存数据代码 
 if Key=13 then close;
end;

这样，可行。

[Mr Dang]

引用 2 楼 ron_xin 的回复:

procedure TForm2.edt1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
  begin
    ModalResult :=mrOk;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var sss : string ;
begin
    Form2 := TForm2.Create(application);
    try
       with Form2  do
       begin
        mc.Text := 'test';
        edt1.text:='' ;
        if Form2.ShowModal=mrOk then
          sss :=  edt1.text ;  //
       end ;
    finally
       Form2.free ;
       Form2 := nil ;
    end ;
end;

这个是对的，回车不是13 是#13

[lyhoo163]

回车作为字符是#13, 但作为Keyup事件的key值是13。

[cqzjb]

关闭子窗体时，把edit1的text赋值给主窗体的edit即可