![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Запретить растягивать картинку [D7]
agaga © (2006-05-18 19:57:00)
Doc := (HTMLEdit1.DOM as IHTMLDocument2);
EventHandler := THTMLEvent.Create(Doc);
EventHandler.OnEvent := MyEvent;
Doc.onmousedown := EventHandler as IDispatch; // Нажатие мыши в документе
for i:=1 to Doc.all.length do begin
HTMLElement:=Doc.all.item(NULL,i) as IHTMLElement;
HTMLElement.onmousedown:=EventHandler as IDispatch; // Нажатие мыши в элементах
end;
procedure TForm1.KeyEvent(EventObject: IHTMLEventObj;
EventType: string);
begin
EventObject.cancelBubble:=true; // Отмена "вторичных" событий
EventObject.returnValue:=false; // Отмена действия
end;
Смысл в том, что пользователь нажимает мышкой на картинку, она (по умолчанию) выделяется, и её потом можно растягивать. А я этого не хочу, и пытаюсь блокировать все нажатия...
Но картинка всё равно выделяется... В чём дело?
Кто знает, подскажите!..
TStas (2006-05-18 22:45:00) [1]<img src='....' onclick='event.returnValue=false'>