procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
inherited;
If (DataCol<>0) and (Not Column.Field.IsNull) then
begin
If Column.Field.AsString = '0' then //或其它判斷條件
DBGrideh1.Canvas.FillRect(Rect);
end;
end;
如何在另一個procedure中呼叫上述的程序,我試過很方式,總是說引數不對,怎么指定引數,還需要定義引數嗎?
uj5u.com熱心網友回復:
直接呼叫這個事件就可以了啊。怎么會不對轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/123461.html
標籤:語言基礎/算法/系統設計
