close

form開始前先設定地圖的大小位置。

void __fastcall TForm1::FormShow(TObject *Sender)
{
        Map1->ScrollBars = false;
        IMoRectanglePtr rec;
        rec = (IDispatch*)CreateOleObject("MapObjects2.Rectangle");
        rec->Left=246034;
        rec->Right=257148;
        rec->Top=2745620;
        rec->Bottom=2738197;
        Map1->ControlInterface->Extent = rec;
}

arrow
arrow
    全站熱搜

    chen412 發表在 痞客邦 留言(0) 人氣()