Эмитатор OnMouseOver

@bambrik_p · Регистрация: 02.12.2010

Студворк — интернет-сервис помощи студентам

добрый день, помогите сделать эмитацию OnMouseOver и OnMouseOut в Delphi, чтобы при наведение картинка чуть увеличивалась и наоборот

@RobertMenus · 08.12.2010, 19:54

В MouseMove пишешь:
img.Width:=<новая длина картинки>
img.Height:=<новая ширина картинки>
Ну, понятно, на картинку наводишь - картинка увеличивается...
Для того чтобы картинка обратно уменьшилась можно под картинкой создать прозрачный слой (типа лейбл) , или какой-то другой элемент типа Picture, и в процедуре наводки на него написать:
img.Width:=<старая длина>
img.Height:=<старая ширина>
По-моему, самый простой вариант.

@FuKingBrain · 09.12.2010, 10:14

Все потомки TComponent могут посылать сообщения CM_MOUSEENTER и CM_MOUSELEAVE во время вхождения и покидания курсора мыши области компонента. Если вам необходимо, чтобы ваши компоненты обладали реакцией на эти события, необходио написать для них соответствующие обработчики.

Delphi

procedure CMMouseEnter(var msg:TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
..
..
..
procedure MyComponent.CMMouseEnter(var msg:TMessage);
begin
 
inherited;
{действия на вход мыши в область компонента}
end;
 
procedure MyComponent.CMMouseLeave(var msg: TMessage);
begin
 
inherited;
{действия на покидание мыши области компонента}
end;

Собственно в прикреплённом файле есть пример.

@bambrik_p 0 / 0 / 0 Регистрация: 02.12.2010 Сообщений: 10
		1
	Эмитатор OnMouseOver 08.12.2010, 16:16. Показов 2780. Ответов 2 Метки нет (Все метки) добрый день, помогите сделать эмитацию OnMouseOver и OnMouseOut в Delphi, чтобы при наведение картинка чуть увеличивалась и наоборот 0

@RobertMenus 37 / 36 / 4 Регистрация: 08.12.2010 Сообщений: 206
	08.12.2010, 19:54	2
	В MouseMove пишешь: img.Width:=<новая длина картинки> img.Height:=<новая ширина картинки> Ну, понятно, на картинку наводишь - картинка увеличивается... Для того чтобы картинка обратно уменьшилась можно под картинкой создать прозрачный слой (типа лейбл) , или какой-то другой элемент типа Picture, и в процедуре наводки на него написать: img.Width:=<старая длина> img.Height:=<старая ширина> По-моему, самый простой вариант. 0

Опции темы

Эмитатор OnMouseOver

Решение