问题

Question

procedure DBGridRecordSize(mColumn: TColumn);
begin
  if not Assigned(mColumn.Field) then Exit;
    if mColumn.Field.Tag< TDBGrid(mColumn.Grid).Canvas.TextWidth(mColumn.Field.DisplayText) then
     mColumn.Width :=TDBGrid(mColumn.Grid).Canvas.TextWidth(mColumn.Field.DisplayText);
end;我自定义一个过程 然后在onDrawColumnCell事件中调用 可是执行的时候为什么dbgrid拼命的闪动另外tag属性有什么别的用处嘛 我只记得是tab的用处

Answer 1

1、procedure TForm1.FormCreate(Sender: TObject);begin  Self.DoubleBuffered := True;end;2、当窗口要复用的时候就有用了，这个是窗口的唯一标志