How to resize OleContainer?

Return to index

Author

Message

Ok J.M.

Posted: 12/20/2004 11:29:53

I inserted TOleContainer in this way, but I can't resize it.

void __fastcall TFom1::Button1Click(TObject *Sender)

{

    TOleContainer *oc = new TOleContainer((TComponent*)NULL);

    oc->Visible = false;

    oc->BorderStyle = bsNone;

    oc->Parent = rve;

    oc->SizeMode = smAutoSize;

    if(oc->InsertObjectDialog()) {

        rve->InsertControl("", oc, rvvaBaseline);

        oc->OnResize = OnOLE_Resize;

        oc->OnActivate = OnOLE_Activate;

        oc->OnDeactivate = OnOLE_Deactivate;

        oc->Visible = true;

        oc->DoVerb(ovShow);

    }

    else

        delete oc;

}

Any ideas ok.

Thanks for giving me your attention.