| 3972 |
end; |
end; |
| 3973 |
end; |
end; |
| 3974 |
// ************************************************************************* |
// ************************************************************************* |
|
//! WebBrowserの検索ダイアログを呼び出す |
|
|
// ************************************************************************* |
|
|
procedure OpenFindDialog(Browser: TWebbrowser); |
|
|
const |
|
|
CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}'; |
|
|
HTMLID_FIND = 1; |
|
|
var |
|
|
CmdTarget : IOleCommandTarget; |
|
|
vaIn, vaOut: OleVariant; |
|
|
PtrGUID: PGUID; |
|
|
begin |
|
|
if Browser.Document <> nil then begin |
|
|
New(PtrGUID); |
|
|
PtrGUID^ := CGID_WebBrowser; |
|
|
try |
|
|
Browser.Document.QueryInterface(IOleCommandTarget, CmdTarget); |
|
|
if CmdTarget <> nil then begin |
|
|
try |
|
|
CmdTarget.Exec(PtrGUID, HTMLID_FIND, 0, vaIn, vaOut); |
|
|
finally |
|
|
CmdTarget._Release; |
|
|
end; |
|
|
end; |
|
|
except |
|
|
end; |
|
|
Dispose(PtrGUID); |
|
|
end; |
|
|
end; |
|
|
|
|
|
// ************************************************************************* |
|
| 3975 |
//! 現在表示しているスレッドの検索ダイアログを表示する |
//! 現在表示しているスレッドの検索ダイアログを表示する |
| 3976 |
// ************************************************************************* |
// ************************************************************************* |
| 3977 |
procedure TGikoDM.OpenFindDialogActionExecute(Sender: TObject); |
procedure TGikoDM.OpenFindDialogActionExecute(Sender: TObject); |
| 3978 |
begin |
begin |
| 3979 |
if( GikoForm.ActiveContent <> nil) and (GikoForm.ActiveContent.Browser <> nil) then begin |
if( GikoForm.ActiveContent <> nil) and (GikoForm.ActiveContent.Browser <> nil) then begin |
| 3980 |
OpenFindDialog(GikoForm.ActiveContent.Browser); |
GikoForm.ActiveContent.OpenFindDialog; |
| 3981 |
end; |
end; |
| 3982 |
end; |
end; |
| 3983 |
|
|