新手问题,如何在我的子窗口中向父窗口返回一个值,比如mbOK

Question

新手问题,如何在我的子窗口中向父窗口返回一个值,比如mbOK,我不想用已经
做好的mbOK按钮.而用自己的按钮.程序如下:
Tform2...click(...)
begin    close ;
    //??如何返回值呢?只能用公共变量吗?返回mbOK
end;

Answer 1

在你的子窗口中，把modalresult属性赋值就可以了，如：Tform2...click(...)
begin    {close;这条语句可以省掉了}  
    modalresult := mrOk;
    {or :ModalResult :=100;}
end;

Answer 2

主窗口：with Tform2.Create(self) do 
          ..
         SHowModal;
         if ModalResult = mrOK then begin
           ...'
         end;
        end;子窗口:  tform2..click(...)中
          ModalResult := mrOK;