一个奇怪的问题，真的狠奇怪

Question

procedure TDocTypeDlg.FormShow(Sender: TObject);
begin
   Button6.Enabled := false;
   ButtonAdd.Enabled := false;
   ButtonDel.Enabled := false;
   ButtonCancel.Enabled := false;
   ButtonUpdate.Enabled := false;
end;为什么   Button6.Enabled := false;只有这一句程序起作用？？？
其他的按钮仍然可以使用？！！！！！！！！！！！！
跟踪的时候，这几句程序都能执行到！！！！！！！！！！！1

Answer 1

你应该再加一句：  repaint;将窗体重画才行。

Answer 2

在什么位置加repaint；
？？？？？？？？？？？？？？？？？？？？？？？？？？？

Answer 3

procedure TDocTypeDlg.FormShow(Sender: TObject);
begin
   with self do
     begin
       Button6.Enabled := false;
       ButtonAdd.Enabled := false;
       ButtonDel.Enabled := false;
       ButtonCancel.Enabled := false;
       ButtonUpdate.Enabled := false;
     end;
end;

Answer 4

我就从来没遇到过,除非你在别的地方有重写了这些按钮的enabled属性

Answer 5

应该是在其它地方被重置了，你在工程中搜索一下ButtonAdd.Enabled，看看设成True的地方，打上断点，看看是否在FormShow后被执行了。