PrintDialogのタイトルを変更したいのですが

解決

aaa  2018-05-02 11:00:09  No: 49130  IP: 192.*.*.*

お世話になります。

PrintDialogのタイトルを変更したいのですが、どのように変更できる

のでしょうか？デフォルトですと「印刷」のままですが、

この部分を「これは・・・・印刷です。」等に変更をしたいのですが、

Delphiではどのようにするのでしょうか？

C＋＋では以下のサイトのような記述がありますが・・・

Delphiの場合に翻訳出来ないものですから・・


下記のサイトからの引用ですが
http://www.gesource.jp/programming/bcb/108.html

印刷ダイアログ(TPrintDialog)のタイトルを変更する

印刷ダイアログ(TPrintDialog)にはタイトルを示すプロパティがありません。

しかし、次のコードを記述することで、印刷ダイアログ(TPrintDialog)のタイトルを変更することができます。

印刷ダイアログ(TPrintDialog)のOnShowイベントに次のコードを記述します。
void __fastcall TForm1::PrintDialog1Show(TObject *Sender)
{
  SetWindowText(PrintDialog1->Handle, "プリンタを設定して下さい。") ;
}

編集 削除
通りすがり  2018-05-02 13:13:58  No: 49131  IP: 192.*.*.*

SetWindowText(PrintDialog1.Handle,PChar('ほにゃらら'));

編集 削除
aaa  2018-05-02 15:38:23  No: 49132  IP: 192.*.*.*

通りすがりさん  ありがとうございます。

下記①②で試してみましたが、タイトルが「印刷」のままですね。

なにか情報が不足しているのでしょうか？

エラーにはならずコンパイルは出来ています。

①-----------------------------------------------
  if PrintDialog1.Execute then
     begin
         SetWindowText(PrintDialog1.Handle,PChar('ほにゃらら'));
                      ・
                      ・
                      ・
②---------------------------------------------

SetWindowText(PrintDialog1.Handle,PChar('ほにゃらら'));
   if PrintDialog1.Execute then
     begin
--------------------------------------------

編集 削除
aaa  2018-05-02 15:38:24  No: 49133  IP: 192.*.*.*

通りすがりさん  ありがとうございます。

下記①②で試してみましたが、タイトルが「印刷」のままですね。

なにか情報が不足しているのでしょうか？

エラーにはならずコンパイルは出来ています。

①-----------------------------------------------
  if PrintDialog1.Execute then
     begin
         SetWindowText(PrintDialog1.Handle,PChar('ほにゃらら'));
                      ・
                      ・
                      ・
②---------------------------------------------

SetWindowText(PrintDialog1.Handle,PChar('ほにゃらら'));
   if PrintDialog1.Execute then
     begin
--------------------------------------------

編集 削除
通りすがり  2018-05-02 17:26:07  No: 49134  IP: 192.*.*.*

引用元のページに『印刷ダイアログ(TPrintDialog)のOnShowイベントに』と書いてあります。

編集 削除
aaa  2018-05-02 20:33:48  No: 49135  IP: 192.*.*.*

通りすがりさん

>引用元のページに『印刷ダイアログ(TPrintDialog)のOnShowイベントに』と書いてあります。 

上記の部分見逃していました。

おかげさまで出来ました。ありがとうございました。

編集 削除