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

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

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

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

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

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

Вопрос задал: 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

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

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

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