Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 5 400

/ вопрос открыт /

Доброго времени суток, уважаемые эксперты!

Форма моей прогаммы без рамки, BorderStyle bsNone.
НА всю форму растянут объект TImage. Как сделать,чтобы при нажатии на объект Timage повторялось действие как при нажатии на рамку, т.е перетаскивание окна. можно сделать такое при нажатии на форму

procedure TForm1.WMLButtonDown(var Msg: TMessage);
begin
Perform(WM_NCLBUTTONDOWN, HTCAPTION, Msg.LParam);
end;

А вот как сделать для Image не знаю. Подскажите пожалуйста.

Jaysan Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Jaysan (статус: Посетитель)
Вопрос отправлен: 12 июня 2011, 17:22
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: DNK

Здравствуйте, Jaysan!
Такую штуку позволяет провернуть одна древняя магия.

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Perform(WM_SYSCOMMAND, $F012, 0);
end;

Ответ отправил: DNK (статус: Студент)
Время отправки: 12 июня 2011, 18:26


Мини-форум вопроса

Всего сообщений: 0.

13 июня 2011, 08:11: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с компонентами и библиотеками модератором Ерёмин А.А.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 30 мая 2023, 10:25
Выполнено за 0.03 сек.
Рейтинг@Mail.ru