|
こんにちは
暑い日が続きますね。
どうぞご自愛くださいませ。
さて、本題。
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でプレビューできませんか？
|