Статьи по Делфи
Меню сайта


Категории каталога
Мои статьи [2]
Функции и процедуры Win Api [20]
Работа с мышью [10]
Реестр и Делфи [11]
Работа с файлами [38]
Делфи и Хакер [10]
Инсталлятор собственными руками [6]
Хитрости в делфи [3]
Работа с системой [19]


Форма входа


Поиск по каталогу


Друзья сайта


Наш опрос
Понравились ли вам треки
Всего ответов: 156


Приветствую Вас, Гость · RSS 2020-09-19, 10:44 PM
Начало » Статьи » Работа с мышью

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

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;

Дополнение

Часто приходится сталкиваться с ситуацией, когда необходимо обработать два важных события для визуальных компонентов:

MouseEnter - когда событие мыши входит в пределы визуального компонента;
MouseLeave - когда событие мыши оставляет его пределы.
Известно, что все Delphi объявляет эти сообщения в виде:

Cm_MouseEnter;
Cm_MouseLeave.
Т.е. все визуальные компоненты, которые порождены от TControl, могут отлавливать эти события. Следующий пример показывает как создать наследника от TLabel и добавить два необходимых события OnMouseLeave и OnMouseEnter.

unit BS_Label;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TBS_Label = class(TLabel)

private

{ Private declarations }

FOnMouseLeave: TNotifyEvent;

FOnMouseEnter: TNotifyEvent;

procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;

procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

protected

{ Protected declarations }

public

{ Public declarations }

published

{ Published declarations }

property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;

property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;

end;

procedure Register;

implementation

procedure Register;

begin

RegisterComponents('Custom', [TBS_Label]);

end;

{ TBS_Label }

procedure TBS_Label.CMMouseEnter(var Message: TMessage);

begin

if Assigned(FOnMouseEnter) then

FOnMouseEnter(Self);

end;

procedure TBS_Label.CMMouseLeave(var Message: TMessage);

begin

if Assigned(FOnMouseLeave) then

FOnMouseLeave(Self);

end;

end.

Категория: Работа с мышью | Добавил: Admin (2006-12-17) | Автор: delphi
Просмотров: 8618 | Комментарии: 6 | Рейтинг: 0.0 |

Всего комментариев: 4
0
4 тайная комната   [Материал]
http://www.brigada-remontnikov.ru/ - Ремонт квартир и офисов под ключ в Санкт-Петербурге и области
http://winzoro.com/catalog/ISRB/ - темы windows 7
http://winzoro.net/windows7theme/ - картинки на

0
3 Свит-Авто   [Материал]
Кузовной ремонт от «Свит-Авто»

Кузовной ремонт - весьма сложный процесс и не каждой СТО он «по плечу». Для качественного восстановления поврежденных автомобилей необходимо не только дорогое и высококлассное оборудование, но также квалифицированный и обученный персонал. Именно такое сочетание смогли создать на СТО «Свит-Авто».

Составление калькуляций в программе «Audatex», «1С-Предприятие»
Когда поврежденный автомобиль попадает в руки специалистов «Свит-Авто», на него составляется подробная калькуляция. Это происходит после того как сервисный консультант проведет осмотр автомобиля, документально фиксируя повреждения, возникшие при ДТП. Процедура оценки повреждений должна выполняться перед началом ремонтных работ, даже в том случае, если независимый эксперт и аварийный комиссар страховой компании уже произвели дефектовку.
С помощью программы «Audatex» или «1С-Предприятие» сервисный консультант в кратчайшие сроки и максимально точно составляет предварительную калькуляцию на ремонт автомобиля. При необходимости объемы и стоимость работ по данной калькуляции согласовываются со страховой компанией. Стоит отметить, что страховые компании могут рассчитывать на скидку от 5 до 12%, в зависимости от объема работ.

Компьютерное измерение геометрии кузова
Кузовной участок станции оснащен современным универсальным компьютерным комплексом объемного 3D-измерения BlackHawk Shark-2. Этот электронно-измерительный комплекс позволяет быстро и качественно производить диагностику геометрии кузова с прецизионной точностью. Shark-2 содержит базу данных автомобилей, основанную на оригинальных данных заводов-производителей всех мировых автоконцернов. Используя программу симметрии, комплекс позволяет контролировать несущую часть кузова, ходовую часть, раму, дверные проемы и прочие элементы кузова. Клиентам, желающим приобрести подержанный автомобиль, Shark-2 поможет максимально быстро проверить геометрию кузова на предмет деформаций без установки автомобиля на стенд.

Устранение перекосов кузова любой сложности
Даже очень сильно деформированный кузов автомобиля можно выправить с помощью стапеля Blackhawk Korek. Этот агрегат, применяя огромное усилие в 10 тонн под определенным вектором, вытягивает детали кузова, не нарушая структуру металла. Он позволяет буквально моделировать картину удара в обратном направлении. Результат поражает – казалось бы, не подлежащие восстановлению деформации кузова и несущих элементов в виде «гармошек» и «винтообразных» перекосов путем сложных расчетов и последовательных манипуляций вновь обретают первозданный вид.

Сварочно-рихтовочные работы
При выполнении сварочно-рихтовочных работ применяется специальное оборудование и инструмент, который позволяет произвести высококачественный восстановительный ремонт любой сложности и в труднодоступных местах. При этом сохраняются заводские характеристики металла. Также используются антикоррозионные материалы, которые защищают металл в последующей эксплуатации автомобиля.

Ремонт пластиковых деталей
В процессе восстановления автомобиля после ДТП зачастую возникает необходимость ремонта пластиковых деталей и бамперов. Это целесообразно в случаях незначительных повреждений (вмятины, трещины, сколы, и т.п.), а также при повреждениях тюнингованных или эксклюзивных элементов. Используя передовые технологии и применяя высококачественные материалы фирмы 3М, на СТО «Свит-Авто» гарантируют прочность и долговечность отремонтированных пластмассовых деталей и бамперов.

Полная и локальная покраска
При выполнении малярных работ применяются технологии и расходный материал всемирно известной торговой марки GLASURIT, принадлежащей концерну BASF (Германия). Данные технологии позволяют производить высококачественную выготовку и покраску как отдельных деталей, так и кузова автомобиля в целом. Также компанией GLASURIT был разработан метод применения локальной покраски RATIO-SpotRepair. Этот метод имеет ряд преимуществ, таких как минимальное время ремонта, сохранение заводского лакокрасочного покрытия, отсутствие демонтажа, приемлемая цена. Малярные работы сопровождаются полной или частичной разборкой ремонтируемых элементов. Это существенно сказывается на конечном качестве ремонта. Система подбора красок дает возможность выполнить коррекцию цвета быстро и точно.

Полировка
Комплекс операций восстановительного ремонта завершается такими видами работ, как полировка, уборка салона, наружная мойка, чистка стекол, а также: обработка кузова восковым средством «100 PLUS» швейцарской фирмы Waxoyl, необходимого для защиты лакокрасочного покрытия от воздействия внешней среды, сохраняя при этом блеск автомобиля и защищая краску от выгорания, защита обивки салона.

СТО «Свит-Авто»
г. Киев, пр-т Московский, 21
Автосалон: (044) 247-70-00
Департамент запчастей: (044) 247-67-77
СТО: (044) 590-09-49
www.sto.sweet-auto.com.ua


0
2 СВИТ АВТО   [Материал]
В связи с увеличением количества потребителей для рынке продаж элитных автомобилей, каждое STO потерпел эволюцию, расширение сферы услуг либо же упадок. Современное племя требует не новшества в технологиях, однако и качества, удобства и безопасности в вождении авто.
STO "Свит Авто" предлагает приманка услуги таким элитным маркам автомобилей, вроде LEXUS, MAZDA, TOYOTA, HYUNDAI, MITSUBISHI, KIA.

Общество STO "Свит Авто" работающая в Украине более десяти лет точный обновляет и расширяет сферу услуг сообразно запросам своих клиентов а также улучшению качества и развития современных технологий.

Общество "Свит Авто", известная своей работой с элитными автомобилями корейских и японских брендов, безупречно сочетает свойство ремонта автомобиля а также заботу о приятном времяпровождении своих клиентов.

СТО "Свит Авто" выполняет исполненный спектр работ сообразно ремонту автомобиля и сервисному обслуживанию:

Исправление и обслуживание автомобиля предлагаемые услуги

- Техническое обслуживание и нынешний исправление;

- Диагностирование электронных систем;

- исправление и установка электронного оборудования;

- Диагностирование и ультразвуковая очистка инжекторов;

- Инструментальный контроль технического состояния;

- Мойка, химчистка, уборка;

- Шиномонтаж и балансировка колес;

- Контроль углов установки колес;

- испытание и регулировка света фар;

- испытание и заправка фреоном автомобильных систем кондиционирования воздуха;

- Тонирование стёкол.

- Испытание работоспособности амортизаторов

- Тонировка

Специалисты компании STO "Свит Авто" готовы к работе всякий сложности с Вашим автомобилем. Регулярное воспитание персонала компанией общество "Свит Авто" подтверждает известный и профессиональный исправление Вашего автомобиля. Имеется современное техническое обстановка, которое гарантирует личный подход к каждому автомобилю, с учетом особенностей его марки. У Вас довольно мочь предотвратить будущие неисправности с через диагностирования, также Вы сможете получить качественную быструю вспоможение и стоящий внушение специалистов.

Сообразно всем работам в STO реализуется порядок скидок сообразно именным дисконтным карточкам. Отдельный давалец компании получает одинаково безупречное свойство обслуживания.

Вас нравиться удивит мочь интересного и расслабляющего времяпровождения в комнате отдыха, во пора ремонта Вашего авто. В комнате отдыха ради клиентов имеется свежая литература, телевизор, Интернет, и мониторы дабы Вы могли смотреть хождение ремонта машины.

Ради Вас сервис услуг предоставляет суши бар, кто находится для втором этаже. Вы сможете нравиться успокаиваться и насладится великолепием японской кухни, однако учитывая особенности каждого человека, в список входит и европейская комната. Привлекательные цены позволят Вам исполнять себе табель даже в ходе рабочих будней.

Сервис услуг "Свит Авто" откроет ради Вас небывалый взор для бытовые проблемы, в частности исправление автомобиля, поскольку с этой компанией они решаются качественно и живо. С компанией "Свит Авто" - для всякий скорости!

Автор: Анна
Источник: http: //www.sto.sweet-auto.com.ua/


0
1 Егор   [Материал]
А Вы знаете, что максимальная скорость Lamborghini Gallardo - 315 км/ч.. На сайте официального диллера вы можете узнать о новинках. Здесь вы найдете контакты автосалона в Москве. Узнай больше о других моделях Lamborghini, например о lamborghini reventon.

Имя *:
Email *:
Код *: