Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Перетаскивание за заголовок правой кнопкой, Можно ли реализовать? 
V
    Опции темы
WWWlad
Дата 20.12.2010, 14:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Доброго всем времени суток!

Можно ли сделать так,  чтобы мою форму можно было таскать по экрану за заголовок ПРАВОЙ кнопкой мыши? Как это сделать?
Пока проблемы на пути решения видится две:
1. Нужно отловить нажатие/отпускание правой кнопки на заголовке.
2. Нужно заблокировать появление стандартного контекстного меню "свернуть/развернуть/закрыть" при правом клике на заголовке.
PM   Вверх
Snowy
Дата 20.12.2010, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484
Ну вот как-то так можно:
Код
type
  TForm1 = class(TForm)
  private
    procedure NCRBUTTONDOWN(var Mes: Messages.TMessage); message WM_NCRBUTTONDOWN;
  end;

var Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.NCRBUTTONDOWN(var Mes: TMessage);
begin
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
end;
Но вот как заставить реагировать на отпускание правой кнопки - ХЗ.
PM MAIL   Вверх
WWWlad
Дата 22.12.2010, 16:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Snowy, 
спасибо! Действительно, обработка WM_NCRBUTTONDOWN, WM_NCRBUTTONUP спасла отца русской демократии  smile 
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

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

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

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

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


 




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


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

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