VPF::Перетаскивание компонентов - Форум программистов

Rumata

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

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 24.7.2006

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

Подскажите, как перетащить компонент Label1 мышкой в режиме выполнения проги. Please//

586

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

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

Загрузка ...

Эксперт

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

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

Для любого компонента:

Код

int X0, Y0;
bool bMove = false;

void __fastcall TForm1::Label1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 bMove = true;
 X0 = X;
 Y0 = Y;
}

void __fastcall TForm1::Label1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 if(bMove)
 {
  ((TControl *)Sender)->Left += X - X0;
  ((TControl *)Sender)->Top += Y - Y0;
 }
}

void __fastcall TForm1::Label1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
 bMove=false;
}

Для любого компонента, исключая Label и Image:

Код

void __fastcall Form1::Panel1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 ReleaseCapture();
 ((TControl*)Sender)->Perform(WM_SYSCOMMAND, 0xF012, 0);
}

Link90

Дата 25.7.2006, 06:30 (ссылка)

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

Загрузка ...

"Битый" пиксель

Профиль
Группа: Участник
Сообщений: 214
Регистрация: 25.11.2005
Где: Иркутск - середин а земли!

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

Цитата

Для любого компонента, исключая Label и Image

На этот случай можно использовать компонент TStaticText, принципиально от TLabel он не отличается (ИМХО только тем, что можно рамку для текста сделать), но его можно таскать в RunTime при помощи кода, который привёл 586

Цитата

Код


void __fastcall Form1::Panel1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 ReleaseCapture();
 ((TControl*)Sender)->Perform(WM_SYSCOMMAND, 0xF012, 0);
}

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