dbgrid控件隐藏或显示标题栏dbgrid控件隐藏或显示标题栏

Question

 dbgrid控件隐藏或显示标题栏dbgrid控件隐藏或显示标题栏1、 新建一个带两个参数的过程(第1个参数是菜单对象，第2 个是dbgrid控件):
    procedure viewtitle(sender:tobject;dbgcolumns:tdbgrid);
    //隐藏或显示dbgrid标题栏  2、 然后按ctrl+shift+c组合键,定义的过程会在实现部分出现。
    procedure frmstock.viewtitle(sender:tobject;dbgcolumns:tdbgrid);
    begin
      with (sender as tmenuitem) do
      begin
        checked:=not checked;
        dbgcolumns.columns[tag].visible:=checked;
      end;
    end;  3、 把菜单子项的tag设置成跟dbgrid的columns值相对应,比如:
    dbgrid有一个标题栏是‘日期‘在第0列,然后把要触法该列的菜单的tag设置成0。  4、 把菜单的onclick事件选择viewtitle该过程。//这个不明白.    这样 ViewTitle(Sender,DBGrid1); 有错误 请问viewtitle放哪呢? 

Answer 1

你那所謂的“4、   把菜单的onclick事件选择viewtitle该过程。”是指將事件指針指向這個過程？如果是這樣，當然不對了，
因為原先的事件類型是procedure(Sender: TObject) of object;而你的則有兩個參數，類型不一樣麻!你就把這個放在他的click事件裡面好了。然後其他的menuitem事件指向這個menuitem事件就可以了。
另外，你都沒有把錯誤訊息給出來，大家怎麼幫你？