VPF::lock ControlBar - Форум программистов

imageman

Дата 17.3.2008, 20:53 (ссылка)

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

Загрузка ...

Шустрый

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

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

Нужно в TControlBar запретить перетаскивание внутренних панелей мышкой........

Не могу понять как. Таскаются и всё тут.

Rrader

Дата 18.3.2008, 11:51 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Пример в аттаче

Присоединённый файл ( Кол-во скачиваний: 7 )

Sample.rar 5,67 Kb

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

Let's do this quickly!
Rest in peace, Vit!

imageman

Дата 18.3.2008, 17:38 (ссылка)

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

Загрузка ...

Шустрый

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

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

Rrader, спасибо за столь интересный ответ - побежал изучать.....

Код


Procedure TMForm.WndProc(Var Msg: TMessage);
Begin
  If (Msg.Msg = WM_MOUSEMOVE) And (Msg.WParam = MK_LBUTTON) Then
    { N / A }
  Else
    If Assigned(WProc) Then WProc(Msg);
End;

Procedure TMForm.CBForbClick(Sender: TObject);
Begin
  If CbForb.Checked Then
  Begin
    WProc := ControlBar1.WindowProc;
    ControlBar1.WindowProc := WndProc;
  End
  Else
    ControlBar1.WindowProc := WProc;
End;

Работает! Как я понял основано на перехвате сообщений мыши.

Это сообщение отредактировал(а) imageman - 18.3.2008, 18:47

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