VPF::Управление мышью - Форум программистов

DrWeb

Дата 19.10.2010, 21:12 (ссылка)

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

Загрузка ...

Шустрый

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

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

Как в билдере мышью двигать элементами?например мышью подвинуть Image куда будет душе угодно smile

Добавлено через 10 минут и 10 секунд
Если кому надо разобрался

Код


int OldX;
int OldY;
bool IsMouseDown=false;

void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        OldX=X;
        OldY=Y;
        IsMouseDown=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
        if(IsMouseDown)
        {
                Image1->Left+=X-OldX;
                Image1->Top+=Y-OldY;
        }        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
        IsMouseDown=false;
}
//---------------------------------------------------------------------------

A5uKa

Дата 20.10.2010, 08:04 (ссылка)

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

Загрузка ...

TЋ♥s F1rȜ iƧ BurȠiƞg

Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

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

есть же drag and drop панель ...

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