引用调用问题 DBGrid DrawColumnCell

Question

我在Form1里有个
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);我想在Form2里的TForm2.DBGrid1DrawColumnCell
引用Form1里的 TForm1.DBGrid11DrawColumnCell应该怎么写啊
过路的告诉知道的一定要告诉下我这个菜鸟哦

Answer 1

procedure TForm2.FormCreate(Sender: TObject);
begin
DBGrid1.OnDrawColumnCell:=Form1.DBGrid1DrawColumnCell;
end;