名前 題名 ▼ Mr.XRAYさん > バルーン型のヒントウィンドウ，つまりツールチップの表示です． > Delphi 2009 以降でしたら，以下の記事で可能です． > > [ヒントとメッセージ - Delphi 2009 特集] > http://www.watercolor-city.net/ct_delphi/delphi_tiburon/doc_vcl/vcl_balloonhint.htm > > Delphi 2007 以前の場合は，以下のコードを参考にして， > > http://lupin.client.jp/delphi/#32 > > 例えば，次のコードでテストできます． > 動作確認は Windows 7 U64(SP1) + Delphi 7, 2007-R2 ですが， > Delphi 6 でも使用可能だと思います． > > implementation > > uses CommCtrl; > > {$R *.dfm} > > //----------------------------------------------------------------------------- > // バルーン型のツールチップの表示(Delphi 2007 以前用) > // TToolInfoの使用にはusesにCommCtrlが必要 > //----------------------------------------------------------------------------- > procedure ShowBalloonTip(hWnd: THandle; Text: String); > const > TTS_BALLOON = $40; > var > hWndTip : THandle; > TI : TToolInfo; > MaxWidth : Integer; > begin > hWndTip := CreateWindow( > TOOLTIPS_CLASS, > nil, > WS_POPUP or TTS_NOPREFIX or TTS_BALLOON or TTS_ALWAYSTIP, > 0, > 0, > 0, > 0, > hWnd, > 0, > HInstance, > nil); > > if hWndTip <> 0 then begin > TI.cbSize := SizeOf(TI); > TI.uFlags := TTF_CENTERTIP or TTF_TRANSPARENT or TTF_SUBCLASS or TTS_NOPREFIX; > TI.hwnd := hWnd; > MaxWidth := 200; > > TI.lpszText := PChar(Text); > Windows.GetClientRect(hWnd, ti.rect); > > SendMessage(hWndTip, TTM_ADDTOOL, 0, LParam(@TI)); > SendMessage(hWndTip, TTM_SETMAXTIPWIDTH, 0, Integer(MaxWidth)); > end; > end; > > //----------------------------------------------------------------------------- > // フォーム表示開始時の処理 > // Button1のヒントウィンドウを設定 > //----------------------------------------------------------------------------- > procedure TForm1.FormShow(Sender: TObject); > var > StrHint : String; > begin > StrHint := '複数行のヒント文字列' + sLineBreak + 'テストヒント'; > ShowBalloonTip(Button1.Handle, StrHint); > end; > > > [参考リンク] > > [Tooltip (Windows)] > http://msdn.microsoft.com/en-us/library/windows/desktop/bb760246%28v=vs.85%29.aspx > [Tooltip (Windows)] ウェブ翻訳 > http://www.microsofttranslator.com/bv.aspx?from=en&to=ja&a=http%3A%2F%2Fmsdn.microsoft.com%2Fen-us%2Flibrary%2Fwindows%2Fdesktop%2Fbb760246%2528v%3Dvs.85%2529.aspx > > [How to Implement Multiline Tooltips (Windows)] > http://msdn.microsoft.com/en-us/library/windows/desktop/hh298403%28v=vs.85%29.aspx > [How to Implement Multiline Tooltips (Windows)] ウェブ翻訳 > http://www.microsofttranslator.com/bv.aspx?from=en&to=ja&a=http%3A%2F%2Fmsdn.microsoft.com%2Fen-us%2Flibrary%2Fwindows%2Fdesktop%2Fhh298403%28v%3Dvs.85%29.aspx > GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link