名前
題名
▼ Syakeさん > こんにちは > 暑い日が続きますね。 > どうぞご自愛くださいませ。 > > さて、本題。 > Formを一つ（Form1）。 > plPrevFormを継承して一つ(plPrevForm2)。 > plPrevForm2はTplPrevを一つ追加、それと自動生成から外して > OnCloseでAction := caFree。 > > Unit1（Form1） > procedure TForm1.Button1Click(Sender: TObject); > begin > plPrevForm2 := TplPrevForm2.Create(Self); > with plPrevForm2 do > begin > plPrev1.plSetPrinter.PrinterNumber := DMPAPER_A4; > plPrev1.plSetPrinter.Orientation := poLandscape; > with plPrev1 do > begin > BeginDoc; > with Canvas do > begin > FontSize(72); > TextRectCC(100,2100,500,1400,'マスターは神様！！'); > end; > EndDoc; > end; > Show; > end; > end; > > Buttom1クリック！ > 当然のこと、プレビューが表示されます。 > > 次に、Form1のFormStyleをfsMDIFormに、plPrevForm2のFormStyle > をfsMDIChildにします。 > Buttom1クリック！ > 今度はプレビューは表示されません。 > > 次に、Form1とplPrevForm2のFormStyleをfsNomalに戻します。 > Buttom1クリック！ > あれ、今度もプレビューは表示されません。 > 何をやって（プロジェクトの再起動など）も永遠に表示されません。 > > な〜ぜじゃ？？？ > 一体この間にDelphiは何をやってるのでしょうか？ > > あれ、本題がずれとる。 > 継承フォームをMDIChildでプレビューできませんか？
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link