Дежурный стрелочник
Группа: Участник
Сообщений: 35
|
Здравствуйте, господа!
Есть на форме компонент Image1 и Image2.
При клике на Image1 происходит событие Image1Click и дальше обрабатывается.
При перетаскивании Image1 в Image2 должно выполняться некое действие, назовем его "Перетаскивание Image1->Image2 ".
Так вот, столкнулся с тем, что при попытке перетаскивания Image1 происходит событие Image1Click, а затем нужное мне "Перетаскивание Image1->Image2 ".
В приложении необходимо обрабатывать как OnClick, так и перетаскивание. Как это сделать?
[CODE]
void __fastcall TForm1::Image1Click(TObject *Sender)
{//Клик по иконке_1
f4_ICO_Click(0);}
//==============
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{//Перетаскивание иконки_1
if(Button==mbLeft)Form1->Image1->BeginDrag(false,5);}
//Если поменять на mbRight — все OK! Но надо по-человечески...
//==============
void __fastcall TForm1::Image2DragDrop(TObject *Sender, TObject *Source,
int X, int Y)
{//Картинка раздела — Принятие перетаскиваемого объекта
if(Source==Form1->Image1)f4_DropPictureRazdel(0);
//==============
|
