用F1Book做的ACTIVEX在IE8中的问题
procedure TActiveFormX.SetCellsBorder(startRow, startCol, endRow, endCol: Integer);var cellfrmt :F1CellFormat ;begin F1Book61.SetFocus; ShowMessage('aaa'); try F1Book61.DefaultInterface.SelStartRow:=3; F1Book61.DefaultInterface.SelStartCol:=3; F1Book61.DefaultInterface.SelEndRow:=6; F1Book61.DefaultInterface.SelEndCol:=6; cellfrmt := F1Book61.CreateNewCellFormat;//上句出问题：canves does not drawing ShowMessage('1'); cellfrmt.MergeCells:=True;//有时上句也出问题 ShowMessage('2'); cellfrmt.BorderStyle[F1RightBorder] := F1BorderThin; cellfrmt.BorderStyle[F1LeftBorder] := F1BorderThin ; cellfrmt.BorderStyle[F1TopBorder] := F1BorderThin ; cellfrmt.BorderStyle[F1BottomBorder] := F1BorderThin ; ShowMessage('3'); cellfrmt.BorderColor[F1RightBorder] :=clBlack; cellfrmt.BorderColor[F1LeftBorder] := clBlack; cellfrmt.BorderColor[F1TopBorder] :=clBlack; cellfrmt.BorderColor[F1BottomBorder] :=clBlack; ShowMessage('4'); F1Book61.SetCellFormat( cellfrmt); except on E:Exception do ShowMessage(e.Message); end;// F1Book61.DefaultInterface.SelStartCol:=1;// F1Book61.DefaultInterface.