Delphi的TWebBrowser如何觸發Enter鍵 |
尚未結案
|
space
一般會員 發表:7 回覆:5 積分:2 註冊:2004-07-13 發送簡訊給我 |
各位大大您們好:
首先,很感謝版主給我機會在此留言。這網站真的很好~~~!
今天敝人有2個關於Delphi的TWebBrowser之問題想請教大家一下,就是: ●第一:
敝人設計一程式,使用Delphi的TWebBrowser,連結開啟到自己的網頁,如下圖:
為何當密碼打完後,卻無法觸發Enter鍵呢?而在IE瀏覽器看開自己網頁是可以的。
其實這問題,我有自己事先找過,是否有其他大大也有此問過。結果,沒錯,大家都有這問題,且大家都說是Delphi的TWebBrowser本身之問題,且有其他大大會解決之,但很可惜的是,我看到的解決方式是在C++ Builder語言之解決方法,所以我想請教大家的是若為Delphi語言的話,該如何解決呢???先謝謝大家囉! ●第二:
同樣問題,也有其他大大提過,但也是C++ Builder語言之解決方法,但我想知道的是Delphi語言的話,該如何解決呢???如下圖:
就是,我想複製其網頁內容,但卻無法複製成功,聽大家講又是Delphi的TWebBrowser本身之問題,但如何做才可以複製呢??? 最後,很感謝大家的回覆,希望會的大大幫幫我一下,萬分感激,我是Delphi的初學者,而請大家用Delphi的語法教我,因為上面這些答案我都有找到解決之道,到都是C++ Builder語法,可是我不知道Delphi的語法該如何做?再拜託大家囉!感激不盡!再次謝謝站長給我密碼加入!這網站真的good~~~!
|
RedSnow
版主 發表:79 回覆:1322 積分:845 註冊:2003-12-15 發送簡訊給我 |
space 您好: 幫您找到幾篇 Delphi 的相關討論與範例,您參考看看:
使用twebbrowser 內的網頁按 enter 無法觸發?
http://delphi.ktop.com.tw/topic.php?topic_id=52347 關閉Copy,paster,cut 選單
http://delphi.ktop.com.tw/topic.php?topic_id=18503 关于TWebbrower
http://delphi.ktop.com.tw/topic.php?topic_id=37404
7 天天敲鍵盤 v 時時按滑鼠 8 發表人 - RedSnow 於 2005/06/15 21:52:22
|
space
一般會員 發表:7 回覆:5 積分:2 註冊:2004-07-13 發送簡訊給我 |
RedSnow大大您好: 真的很謝謝您喔!只是講真的,我還是不知道要如何做呢?因為大家寫得有點不懂!我現在簡單寫個程式連結到奇摩的字典裏,網址:http://tw.dictionary.yahoo.com/
程式在這:↓
http://delphi.ur-solution.com/delphi_download/upload/73361_123.rar RedSnow大大您可方便幫我改嗎?非常謝謝您喔!
我希望如下:
●當我打完this字後,可直接按鍵盤觸發查詢:
●當選了【請輸入查詢字】,可直接按CRTL+C複製,並貼上於記事本等軟體:
再次感謝RedSnow大大囉!因為我真的不會改呢!謝謝囉~~~! 發表人 - space 於 2005/06/16 21:22:50
|
space
一般會員 發表:7 回覆:5 積分:2 註冊:2004-07-13 發送簡訊給我 |
|
RedSnow
版主 發表:79 回覆:1322 積分:845 註冊:2003-12-15 發送簡訊給我 |
space 您好: 我試著將資料整理如下,但是我沒有做過測試 (我使用的是 BCB4),因此不能確定是否有誤?請您自己試一下吧:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, ActiveX; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; procedure FormShow(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } public { Public declarations } procedure MsgHandle(var Msg :TMsg; var Handled :Boolean); end; var Form1: TForm1; str : WideString; FOleInPlaceActiveObject :IOleInPlaceActiveObject; implementation {$R *.dfm} procedure TForm1.FormShow(Sender: TObject); begin str := 'http://tw.dictionary.yahoo.com/'; WebBrowser1.Navigate(str); end; procedure TForm1.MsgHandle(var Msg :TMsg; var Handled :Boolean); var iOIPAO :IOleInPlaceActiveObject; Dispatch :IDispatch; begin if WebBrowser1 =nil then begin Handled :=False; Exit; end; Handled :=(IsDialogMessage(WebBrowser1.Handle, Msg) =True); if (Handled) and (not WebBrowser1.Busy) then begin if FOleInPlaceActiveObject =nil then begin Dispatch :=WebBrowser1.Application; if Dispatch <>nil then begin Dispatch.QueryInterface(IOleInPlaceActiveObject, iOIPAO); if iOIPAO <>nil then FOleInPlaceActiveObject :=iOIPAO; end; end; end; if FOleInPlaceActiveObject <>nil then if ((Msg.message =WM_KEYDOWN) or (Msg.Message =WM_KEYUP)) and ((Msg.wParam =VK_BACK) or (Msg.wParam =VK_LEFT) or (Msg.wParam =VK_RIGHT)) then else FOleInPlaceActiveObject.TranslateAccelerator(Msg); end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage :=MsgHandle; end; procedure TForm1.FormDestroy(Sender: TObject); begin FOleInPlaceActiveObject :=nil; end; initialization OleInitialize(nil); finalization OleUninitialize; end.7 天天敲鍵盤 v 時時按滑鼠 8 |
space
一般會員 發表:7 回覆:5 積分:2 註冊:2004-07-13 發送簡訊給我 |
|
space
一般會員 發表:7 回覆:5 積分:2 註冊:2004-07-13 發送簡訊給我 |
對了~~~
RedSnow大大
像我是新手
學過以前的BASIC及C++語言(非視窗化程式語言,我有一些最原始的語法基礎,但物件導向沒基礎)
現在想學Delphi,還是學BCB4比較好啊??? 我希望能學一種比較好的視窗化程式語言
因為我覺得微軟VB或VC真的比較難寫又難懂,功能語法又複雜 而又聽人家說Delphi一直有再進步改良跟上微軟平台之作業系統規格
但BCB4好像比較慢Delphi一步 所以一直困擾我
不知學什麼比較好???(Delphi或BCB4)
另外
不知道可否推薦幾本比較好的書學嗎?(要中文書,我英文很爛) 最後,真的很感謝RedSnow大大您這次的幫忙喔~~~十分謝謝您(對於陌生的我.....感謝)
|
RedSnow
版主 發表:79 回覆:1322 積分:845 註冊:2003-12-15 發送簡訊給我 |
space 您好:
引言:學過以前的BASIC及C 語言(非視窗化程式語言,我有一些最原始的語法基礎,但物件導向沒基礎) 現在想學Delphi,還是學BCB4比較好啊??? 我希望能學一種比較好的視窗化程式語言 因為我覺得微軟VB或VC真的比較難寫又難懂,功能語法又複雜 而又聽人家說Delphi一直有再進步改良跟上微軟平台之作業系統規格 但BCB4好像比較慢Delphi一步 所以一直困擾我 不知學什麼比較好???(Delphi或BCB4) 另外 不知道可否推薦幾本比較好的書學嗎?(要中文書,我英文很爛)如果您已經決定在 Delphi 與 BCB 之間選擇一樣來使用的話,那麼我會建議您使用 Delphi 會比較好,雖然我自己是使用 BCB 來寫程式,但是同為 Borland 的產品,BCB 顯然不如 Delphi 受寵,Delphi 在網路上的資源是非常的豐富,BCB 則較為貧乏,單是從 BCB 的 VCL 原始碼是使用 Delphi 撰寫的,就可以知道 Borland 對 Delphi 的重視程度了,因此您若不選用 Borland 的開發工具則已,否則就選用 Delphi 吧。 對於書本的推薦,我大概是幫不上忙了,因為我已經很久沒逛書店了,而且我用的是 BCB 而不是 Delphi,我碰過不少網友要求我提供一些書目供他們參考,通常我都會建議網友們自己到書店跑幾趟,如果跑了幾趟下來,您都是翻某幾本書,而且感到該書的講解方式很容易讓您瞭解,而您想要知道的一些內容,該書也大都有涉及,那麼我覺得那本書大致上就很適合您買來參考了,您也不妨花點時間去逛逛書局吧。 7 天天敲鍵盤 v 時時按滑鼠 8 |
space
一般會員 發表:7 回覆:5 積分:2 註冊:2004-07-13 發送簡訊給我 |
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |