| register
23363
|
2006/5/4 10:14:36 |
procedure TEditWebBrowser.OnMyMessage(var Msg: TMsg; var Handled: Boolean);
var
p: TPoint;
ShiftState: TShiftState;
Key: word;
bKey: TKeyBoardState;
begin
//GetCursorPos(p);
p.X := Msg.pt.X - self.Left; //在单步调试时，第二次触发本事件 Self.Left 值就会变成 Inaccessible value ...
p.Y := Msg.pt.Y - self.Top; |
| ultraz
21739
|
2006/2/24 20:41:26 |
怎么自定义右键菜单呢?
isShowSelfPopupMenu设置为false,并且指定了PopupMenu1,为什么它自己的还会出来?
后来我修改了控件源代码,把右键菜单都屏蔽了,重编译安装.结果还是不行,请大侠指教. |
| senfore
20214
|
2005/12/21 14:26:33 |
| 没有再更新么？？在编译的时候会报dubug Excpetion错误。。。 |
| kingsix1978
18878
|
2005/11/3 15:32:01 |
| 更正一下，是TEmbeddedWeb |
| kingsix1978
18877
|
2005/11/3 15:25:01 |
| 作者真是太牛X了，提个小建议，记得以前有个TEmbbledWeb，极大的扩展了delphi自带的TWebBrowser，要是从那个东西继承，可能会带来更多的特性。 |
| fengjiwei
17762
|
2005/9/12 12:44:33 |
看过，试过，研究过，很高兴，很兴奋...
楼主继续努力啊，希望能做出一个开源版的Delphi下的Html编辑器组件，我代表广大菜鸟非常敬仰你！祝你成功... |
| fengjiwei
17761
|
2005/9/12 12:15:40 |
| 厉害，大虾能不能给个Demo看看啊！ |
| cdma3105
17603
|
2005/9/6 15:15:13 |
把有关的：
for i:=0 to length(self.EditWebBrowsers) do
改成：
for i:=0 to length(self.EditWebBrowsers) - 1 do
就可以了。 |
| yanhuizen
17531
|
2005/9/3 12:40:56 |
| 有BUG |
| cdma3105
17501
|
2005/9/2 14:43:57 |
| 我也是delphi7, 控件安装后，放一个在FORM上，一运行就在OleCtrls.pas中的if FOleControl = nil then中报错。 |
| lovefox
17480
|
2005/9/2 8:56:02 |
| 没有地方下载文件嘛。该不是自己粘贴代码，写组件吧 |
| yuzi
17476
|
2005/9/2 6:45:35 |
谢谢，在D7下控件可以安装，但运行时到这一行错误
if not self.EditWebBrowsers[i].OleObject.document.hasfocus then |
| senfore
17474
|
2005/9/2 1:49:16 |
| 能否写一个CanGoback和CanGoForward，这样可以判断是否能够前进和后退。。wb的标准写法是写到CommandStateChange里了。。觉的不方便。。 |
| myy
17468
|
2005/9/1 23:03:48 |
如果能做到Outlook Express的邮件编辑的效果，就很不错了。
对不起，我还没来得及试用呢，呵呵。 |
