お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"RE^2:プリンター名の取得"

この発言は
#00035 らせん企画 さんのRE:プリンター名の取得
に対するコメントです

#35 らせん企画 さん、こんにちは(^^)/ Athenaです。 > 直接 Printer.Printers を参照したほうが簡単ではないでしょうか。 ありゃりゃん(・・) ほんとだ、そのままでできちゃう。 と言うことで、らせん企画さん添削のすっきりコードをお届けします(^0^) //Form1にPrinterSetupDialogコンポ(PrinterSetupDialog1)を追加しておく //uses 節にPrintersを追加しておく //Button1Clickでプリンター名をShowMessage ---------------------------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); begin PrinterSetupDialog1.Execute ;//デフォルトプリンター名の場合、省略する ShowMessage('プリンター名:'+ Printer.Printers[Printer.PrinterIndex]); end; ---------------------------------------------------------------------- ひとつ、勉強になりましたm(_ _)m _/_/ Athena ( VYH00522 ) _/_/ Original document by Athena 氏 ID:(VYH00522)



ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。

Copyright 1996-2002 Delphi Users' Forum