procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean); begin if PageControl1.ActivePageIndex := 0 then begin AllowChange := (ComboBox1.Text <> '请选择') and (ComboBox2.Text <> '请选择') and (ComboBox3.Text <> '请选择'); end; end;
----------------------------------------------
我没办法只有这样写了: procedure TfrmLocale.PageControl1Change(Sender: TObject); begin if (ComboBox1.Text = '请选择') or (ComboBox2.Text = '请选择') or (ComboBox3.Text = '请选择') then begin Application.MessageBox('基本信息不全,请检查!',',mb_OK); PageControl1.ActivePageIndex := 0; Exit; end; 这里还是要谢谢BIOS大哥和zsredmoon ,sephil 大哥(或大姐),多谢你们,我会努力!!!!
----------------------------------------------
-