| Вопрос: Как отрезать у WebBrowser'a... | Добавлено: 04.12.07 19:45 |
Автор вопроса:  VβÐUηìt | Web-сайт: смекаешь.рф
|
|
...меню? Ну в смысле, щелкаешь правой кнопкой, а контекстное меню не вылазит. Чтоб можно было сделать вид, что браузер собственный :)?
Заранее благодарен |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  gvozd Разработчик Offline Client Вопросов: 164 Ответов: 1317 
|
Web-сайт: Профиль | | #1 | Добавлено: 04.12.07 20:01 |
|
Private WithEvents mDoc As MSHTML.HTMLDocument Private Function mDoc_oncontextmenu() As Boolean mDoc.parentWindow.Event.returnValue = False ' MsgBox "Контекстное меню запрещено", vbCritical End Function |
||
|
Номер ответа: 2 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #2 | Добавлено: 06.12.07 17:01 |
| Посибо, но я про VB6 | ||
|
Номер ответа: 3 Автор ответа: Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561 |
Web-сайт: Профиль | | #3 | Добавлено: 07.12.07 08:36 |
|
я про VB6
- а gvozd тебе про что? ИМХО тоже не про Delphi 
Private WithEvents mDoc As MSHTML.HTMLDocument
Private Sub Command1_Click() WebBrowser1.Navigate "http://ya.ru" End Sub Private Function mDoc_oncontextmenu() As Boolean mDoc.parentWindow.Event.returnValue = False End Function Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Set mDoc = WebBrowser1.Document End Sub не забудь подключить Microsoft HTML Object Library |
||
|
Номер ответа: 4 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #4 | Добавлено: 07.12.07 18:49 |
|
Стуупил, забыл про хтмл объект
посибо |
||
|
Номер ответа: 5 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317
|
Web-сайт: Профиль | | #5 | Добавлено: 08.12.07 15:25 |
| Пожалуйста. | ||
Страница: 1 |