線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1657
推到 Plurk!
推到 Facebook!

Delphi的TWebBrowser如何觸發Enter鍵

尚未結案
space
一般會員


發表:7
回覆:5
積分:2
註冊:2004-07-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-06-15 15:11:00 IP:220.134.xxx.xxx 未訂閱
各位大大您們好: 首先,很感謝版主給我機會在此留言。這網站真的很好~~~! 今天敝人有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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-06-15 21:04:19 IP:219.137.xxx.xxx 未訂閱
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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-06-16 20:37:45 IP:220.134.xxx.xxx 未訂閱
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

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-06-16 21:16:57 IP:220.134.xxx.xxx 未訂閱
如果有請他大大會改得話 再麻煩您們將程式下載回去改 並最後將修正好之程式給於上傳上來 再次麻煩大家囉 謝謝大家囉~~~ 我真的搞不懂如何用 我Delphi摸沒很久~~~
RedSnow
版主


發表:79
回覆:1322
積分:845
註冊:2003-12-15

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-06-16 22:25:49 IP:219.137.xxx.xxx 未訂閱
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

發送簡訊給我
#6 引用回覆 回覆 發表時間:2005-06-16 23:06:06 IP:220.134.xxx.xxx 未訂閱
第一次使用網站還有打分數的ㄋ 有點給它不知道如何用~~~ 應該是直接打要給誰吧? 呵呵~~~ 當然是
space
一般會員


發表:7
回覆:5
積分:2
註冊:2004-07-13

發送簡訊給我
#7 引用回覆 回覆 發表時間:2005-06-16 23:28:34 IP:220.134.xxx.xxx 未訂閱
對了~~~ RedSnow大大 像我是新手 學過以前的BASIC及C++語言(非視窗化程式語言,我有一些最原始的語法基礎,但物件導向沒基礎) 現在想學Delphi,還是學BCB4比較好啊???    我希望能學一種比較好的視窗化程式語言 因為我覺得微軟VB或VC真的比較難寫又難懂,功能語法又複雜    而又聽人家說Delphi一直有再進步改良跟上微軟平台之作業系統規格 但BCB4好像比較慢Delphi一步    所以一直困擾我 不知學什麼比較好???(Delphi或BCB4) 另外 不知道可否推薦幾本比較好的書學嗎?(要中文書,我英文很爛)    最後,真的很感謝RedSnow大大您這次的幫忙喔~~~十分謝謝您(對於陌生的我.....感謝)
RedSnow
版主


發表:79
回覆:1322
積分:845
註冊:2003-12-15

發送簡訊給我
#8 引用回覆 回覆 發表時間:2005-06-17 08:17:06 IP:218.19.xxx.xxx 未訂閱
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

發送簡訊給我
#9 引用回覆 回覆 發表時間:2005-06-17 11:18:03 IP:220.134.xxx.xxx 未訂閱
RedSnow大大您好: 看到您的說明,我明白囉!再次感謝您囉!我會好好去書店找本書,將Delphi給予其學好的!再次謝謝您囉!內心裏還是很感謝您幫我這次的忙,期待有一天能與您一樣,精通Delphi語言,謝謝您囉~~~!
Ktop_Robot
站務副站長


發表:0
回覆:3511
積分:0
註冊:2007-04-17

發送簡訊給我
#10 引用回覆 回覆 發表時間:2007-04-26 13:50:46 IP:000.000.xxx.xxx 未訂閱
提問者您好:


以上回應是否已得到滿意的答覆?


若已得到滿意的答覆,請在一週內結案,否則請在一週內回覆還有什麼未盡事宜,不然,
將由版主(尚無版主之區域將由副站長或站長)自由心證,選擇較合適之解答予以結案處理,
被選上之答題者同樣會有加分獎勵同時發問者將受到扣 1 分的處分。不便之處,請見諒。


有問有答有結案,才能有良性的互動,良好的討論環境需要大家共同維護,感謝您的配合。

------
我是機器人,我不接受簡訊.
系統時間:2024-05-17 11:41:02
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!