掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Delphi2005で欧文の文字（UTF-8）をTEditに表示 (ID:43020)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
WebBrowserを使った方法で、右クリックの内容を変更したいなら以下のコードで可能です。 PopupMenu1: TPopupMenu; を追加したら、右クリックメニューを自由にカスタマイズすることが可能です。 ただし、クリップボードへのコピーを可能にしたいなら以下を参照して下さい https://www.petitmonte.com/bbs/answers?question_id=4744 procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('D:\中身がUNICODE.txt'); Application.OnMessage := HookWndProc; end; procedure TForm1.HookWndProc(var Msg: TMsg; var Handled: Boolean); //var // Pos: TPoint; begin with msg do begin if (message = WM_CONTEXTMENU) or (message = WM_RBUTTONUP) then begin if GetParent(GetParent(hwnd)) = WebBrowser1.Handle then begin // GetCursorPos(Pos); // PopupMenu1.Popup(Pos.x, Pos.y); Handled := true; Exit; end; end; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.