VPF::[C++ Builder] Добавить событие OnMouseLeave кнопке

Vorona

Дата 27.12.2006, 22:55 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 155
Регистрация: 12.10.2004
Где: Украина, Днепропе тровск

Репутация: нет
Всего: 2

Прошу помощи в написании события OnMouseLeave для кнопки))) Новый компонет на основе кнопки создала, догадываюсь, что далее должен последовать код после
__published:
тут

Код


class PACKAGE TButtonMy : public TButton
{
private:
protected:
public:
        __fastcall TButtonMy(TComponent* Owner);
__published:
};

Еще предполагаю, что разрабатывать это событие надо на основе OnMouseMove... Но бог не наделил знаниями написать сам код...)
Может можно достать как-то его из других компонентов, где есть такое событие? Если да, то как его достать?))

Это сообщение отредактировал(а) Vorona - 27.12.2006, 22:56

Rockie

Дата 28.12.2006, 06:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1143
Регистрация: 23.4.2006

Репутация: 13
Всего: 31

Vorona, Здесь задавал вопрос про Label со свойствами ссылки, SenkraD приводил похожий пример. Не совсем то что надо но должно помочь.

[недоглядел, исправил]

Это сообщение отредактировал(а) Rockie - 28.12.2006, 07:06

--------------------

Чтобы иметь большой гардероб - надо иметь большой гардероб.

Vorona

Дата 28.12.2006, 22:52 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Rockie,
Поможет 100 процентов, в крайнем случае его же и использую)))
Можно только вопросиков пару -
1) Наш эдит в данной ситуации - наследник от кого?
2) Что такое TWndMethod, Messages::TMessage??

Приведу код для ясности

Код


//Headerfile
private:
   TWndMethod OldLabelProc;
   void __fastcall NewLabelProc(Messages::TMessage &Message);

//CppFile
__fastcall TForm1::TForm1(TComponent *Owner)
    :TForm(Owner)
{
   OldLabelMethod         = Label1->WindowProc;
   Label1->WindowProc = NewLabelProc;
}

void __fastcall TForm1::NewLabelProc(Messages::TMessage &Message)
{
    if(Message.Msg == CM_MOUSEENTER)//Мышь вошла в пределы лабли
    {
       Label1->Font->Color = clBlue;
       Cursor = crHandPoint;
    }
    else
    {
        if(Message.Msg == CM_MOUSELEAVE)//Мышь вышла за пределы лабли
       {
          Label1->Font->Color = clBlack;
          Cursor = crDefault;
       }
    } 
    OldLabelMethod(Message);//остальные месаги обрабатывает по умолчанию
}

Alexeis

Дата 29.12.2006, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Хочу немного уточнить. Сообщение CM_MOUSELEAVE не виндовое и генерится в VCL. У него есть проблемка, к сожалению часто при резких движениях мыши оно не срабатывает. Единственный надежный способ это перехват мышки вне формы, по всему экрану. Т.е. как только координаты ее вне указанного прямоугольника, то нужно генерить CM_MOUSELEAVE самостоятельно.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Rockie

Дата 29.12.2006, 18:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1143
Регистрация: 23.4.2006

Репутация: 13
Всего: 31

Vorona, какой именно эдит? Посмотреть, от чего отнаследован компонент, можно нажав f1 на компоненте на форме, а затем Hierarchy.

Цитата(Vorona @ 28.12.2006, 22:52

)

2) Что такое TWndMethod, Messages::TMessage??

Для активного окна в Windows обрабатывается куча сообщений(например "перерисовывать окно", "проверить, не изменила ли местоположение мышь" и тд.) В VCL можно получить очередь сообщений отдельно для каждого контрола:

Код

OldLabelMethod = Label1->WindowProc;

"Встраиваемся" в эту очередь сообщений, проверяем, находится ли мышь в поле метки, если надо обрабатываем и возвращаем контроль Windows. Кстати здесь очепятка, вместо OldLabelMethod должен быть OldLabelProc.

--------------------

Чтобы иметь большой гардероб - надо иметь большой гардероб.

Vorona

Дата 30.12.2006, 00:52 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Rockie,
Ок спасибо за инфу, буду пытаться разобраться, возможно (скорее всего) возникнет еще куча вопросов....)))

Цитата

Vorona, какой именно эдит?

Я имела в виду кнопка smile

alexeis1,
Я чувствую, что настоялько плохо в этом всем разбираюсь, что не понимаю ваш пост smile

Т.е. приведенный и обсуждаемый код может не всегда срабатывать?
Надо перехватывать не те сообщения??... Не понимаю smile

Alexeis

Дата 30.12.2006, 01:35 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Цитата(Vorona @ 30.12.2006, 00:52

)

Т.е. приведенный и обсуждаемый код может не всегда срабатывать?

Попробуйте поставить компонент, у которого вы хотите перехватывать сообщение, на самый край формы. А в обработчике поставьте бряк. И еще желательно в настройках мыши поставить максимальную скорость. После этого наведите мышь на компонент и резко дергайте мышь, так чтобы она вышла за пределы формы. При таких условиях событие может и не наступить вообще. Это было замечено в делфи, но поскольку VCL у них общая, то и проблема должна быть общая.

--------------------

Vorona

Дата 30.12.2006, 23:24 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

alexeis1,

Ну у меня ситуация на самом деле проще - это же не коммерческий проект, а всего-навсего лаба...) Поэтому лишь бы как-нибудь работало...)

Vorona

Дата 1.1.2007, 14:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Стоп,я чего-то не понимаю..))) А разве этот код - это вообще код нового компонента??
Причем там форма вообще???

Мне надобно написать свой компонент, в палитру добавить... Форма - это ж уже потом...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »