我用Mainmenu设计的一个窗体Form1,当我点击MENU比如N8时候,我想让系统显示另一窗体Form2,并且选中Form2中的一个Radiobutton,我的代码是这样写的
procedure Tmanage.N8Click(Sender: TObject);
begin
    guijiguanli.ShowModal;
    guijiguanli.RadioButton1.Checked :=true ;
  end;
但不知道为什么不选中Radiobutton

解决方案 »

  1.   

    procedure Tmanage.N8Click(Sender: TObject);
    begin
        guijiguanli.RadioButton1.Checked :=true ;//倒一下
        guijiguanli.ShowModal;
    end;
      

  2.   

    因为如果先调用showmodal的话在guijiguanli窗口关闭之前该语句是不会结束的,当然也不会执行下面的语句了。
      

  3.   

    guijiguanli:=TGuijiguanli.create(self);
    guijiguanli.visible:=false;
    guijiguanli.RadioButton1.Checked :=true ;
    guijiguanli.ShowModal;