| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Ограничение по перемещению формы [D5, WinXP]
MARcoDEN © (2003-02-04 12:22:00)Доброго времени суток, мастера! У меня к вам такой вопрос: как сделать так, чтобы пользователь мог перемещать форму только по вертикали, т.е. либо вверх, либо вниз? Желательно с примером!
Заранее благодарен!
С уважением,
MARcoDEN
MARcoDEN (2003-02-06 10:05:00) [1]2 Романов Р.В.:
Премного благодарен!
Романов Р.В. (2003-02-04 13:02:00) [2]TForm1 = class(TForm)
private
procedure WMMOVING(var Msg: TMessage); message WM_MOVING;
procedure TForm1.WMMOVING(var Msg: TMessage);
begin
PRect(Msg.LParam)^.Left := Left;
PRect(Msg.LParam)^.Right := Width + Left;
end;
| |
