Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Модификация формы 
V
    Опции темы
bent
Дата 17.4.2006, 09:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Здравствуйте.
После задания свойства TForm::BorderStyle = bsNone невозможно передвигать окно с помощью мышки. Как же реализовать такую возможность? smile  Может, кто нибудь делал? 
PM MAIL   Вверх
Ctrl_Alt_Del
Дата 17.4.2006, 10:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 2
Всего: 2
В *.h добавь переменную TPoint MousePoint;
Код

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
GetCursorPos(&MousePoint);
SetCapture(Handle);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
ReleaseCapture();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if(Shift.Contains(ssLeft))
{
     TPoint point;
     GetCursorPos(&point);
     Left = Left + point.x - MousePoint.x;
     Top = Top + point.y - MousePoint.y;
     MousePoint = point;
}
}
//---------------------------------------------------------------------------
 
PM MAIL ICQ   Вверх
_hunter
Дата 17.4.2006, 10:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 24
Всего: 98
http://forum.vingrad.ru/index.php?showtopic=40778
http://forum.vingrad.ru/index.php?showtopic=4344 


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Ctrl_Alt_Del
Дата 17.4.2006, 11:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 2
Всего: 2
_hunter, хехе точно..  smile 
Код

ReleaseCapture();
Perform(WM_SYSCOMMAND,0xF012,0);
 
PM MAIL ICQ   Вверх
bent
Дата 18.4.2006, 15:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Спасибо за помощь smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0688 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.