[Ramon]

У меня форма ActiveX..

В процедуре типа TMainForm.Panel1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
делаю проверку на кнопку обычным образом :

if button = mbRight then ...

И компилятор посылает меня фразой "Incompatible types"...

В обычном приложении такой ошибки естественно не возникает, т.к. написано все правильно...
Не могу понять в чем дело...?
Приходы ActiveX под Делфи? Или просто торможу?)

Кто может сталкивался с такой проблемой? Заранее спасибо за помощь...

[Rosenkrantz]

Проверяйте так:

Код:

if ssRight in Shift then...

[Ramon]

Ну что же... Как говорил кот Матроскин из хорошо известного нам всем мультфильма: "Ураааа! Зарабооотало!"))))

Спасибо огромное!

Действительно в классе TShiftState есть значения для кнопок мыши... Зачем тогда TMouseButton выдумавать, который то работате то нет? Наверно чтобы таких как я путать))

Ладно, еще раз спасибО!)