VPF::Как передвигать мышкой Image? - Форум программистов

Гость_Aleksey

Дата 23.10.2003, 14:40 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Например, знаю как заставить двигаться Panel:

void __fastcall TMyForm::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{

{
const
SC_DragMove = 0xF012;

ReleaseCapture();
((TPanel*)Sender)->Perform(WM_SYSCOMMAND, SC_DragMove, 0);
}
}
///////////////////

Но вот как заставить двигаться картинку , не знаю...
Если по аналогии , то не работает -
((TImage*)Sender)->Perform(WM_SYSCOMMAND, SC_DragMove, 0);

:-((

Ars

Дата 23.10.2003, 15:08 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 325
Регистрация: 28.8.2003
Где: Московская обл.

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

Попробуй так:

Код

int StartX,StartY;
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
   TMouseButton Button, TShiftState Shift, int X, int Y)
{
	StartX=X;
	StartY=Y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
   int X, int Y)
{
	if(Shift.Contains(ssLeft))
	{
  Image1->Left=Image1->Left-StartX+X;
  Image1->Top=Image1->Top-StartY+Y;
	}
}
//---------------------------------------------------------------------------

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

Есть многое на свете, друг Горацио,
С чем очень долго можно прое..!

Гость_Aleksey

Дата 23.10.2003, 17:55 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ars

Получилось !!!!

Ars, спасибо!!!

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