キャンバスを子プロシージャに渡すには？ (ID:40124)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 proceder Form1.test00(..); var MCanvas:TMetafileCanvas; .. begin .. MCanvas:= TMetafileCanvas.Create(MergeMF, 0); try test01(MCanvas,iTitle,listSt); .. end; proceder Form1.test01(MCanvas:TMetafileCanvas;iTitle,listSt:String); begin .. with MCanvas do begin .. ExportText := listSt; .. end; .. end; で動きますかね。