TDBOleContainer (in verbindung mit DBCtrlGrid)

[doctor-x]

Hab die richtige anzeige dann letztendlich auch noch hin bekommen, aber jetzt gibt es ein problem wenn ich den inhalt es Containers bearbeiten will

Delphi-Quellcode:

procedure TDBOleContainer.WMPaint(var Msg: TWMPaint);
var
  FieldStream: TStream;
  MemStream: TMemoryStream;
begin
  inherited;
  if FDataLink.Field <> nil then begin
    if not FDataLink.Field.IsNull then begin
      try
        MemStream := TMemoryStream.Create;
        FieldStream := FDataLink.Field.DataSet.CreateBlobStream(Field, bmRead);
        MemStream.LoadFromStream(FieldStream);
        LoadFromStream(MemStream);
      finally
        FieldStream.Free;
        MemStream.Free;
      end;
      Modified := False;
    end;// else CreateObject('ChemDraw.Document.6.0', False);
  end;
end;